VBA 有關路徑的問題(算已解決)

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-4-1 21:20 | 只看該作者

VBA 有關路徑的問題(算已解決)

本帖最後由 icestormer 於 2012-5-3 09:34 編輯

file_path_get = Application.GetOpenFilename("EXCE檔(*.XLS),*xls") <<<用左方的程式碼開舊檔後取得完整路徑

C:\Users\user\Desktop\jEveAssets\測試用2.xls <<完整路徑/檔名如左

但奇怪的是我把它存在P1後存EXCEL >關掉> 重開..
Range("p1").Value = file_path_get '取得完整路徑

神奇的事發生了他會自動變成
C:\Users\user\Documents\測試用1.xls <<<不管我把檔案放在那一槽在那一目錄下都會被自動改路徑名稱(檔案名不會改) 請問怎會這樣呢?
主要是想弄一個手動選取舊檔並讀取它的完整路徑再利用路徑做其它使用

另外不知有沒有什麼方法可以在不開啓目標檔.XLS情況下讀取到它的工作表(工作表只有一頁)?
目前是採用
傳入參數後>(讀取P1的值(完整路徑)>打開它>取得它的工作表名稱>再關掉後 >回傳工作表名稱
Sub get_sheets_name(sheet_name, close_name)
file_path= Range("p1").Value
Worksheets("分析表").Activate
Workbooks.Open Filename:=file_path
sheet_name = ActiveSheet.Name
Workbooks(close_name).Close
End Sub

PS:我是用W7 及OFFICE2003

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-4-2 10:27 | 只看該作者

本帖最後由 GBKEE 於 2012-4-2 12:21 編輯

回復 1# icestormer
Application.GetOpenFilename 是沒有開啟檔案的,如有選取檔案會傳回這檔案的完整路徑名稱
試試看是這樣的嗎?

Option Explicit
Sub Ex()
Dim file_path_get As String, Wo As Workbook
file_path_get = Application.GetOpenFilename("EXCE檔(*.XLS),*xls")
Set Wo = Workbooks.Open(file_path_get) '設定變數為開啟選取的檔案
WorkBooks("分析表").Sheets(1).[a1] = Wo.Sheets(1).Name '取得第一個工作表名稱
Wo.Close 0 '關閉選取的檔案不存檔
End Sub

複製代碼

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

3^#

發表於 2012-4-2 11:17 | 只看該作者

本帖最後由 icestormer 於 2012-4-2 11:40 編輯

回復 2# GBKEE

你好
執行下去後出現這個錯誤呢如下圖(執行階段錯誤 9 ,陣列索引超出範圍
http://imgur.com/xc6Gz
是錯在這行 Worksheets("分析表").Sheets(1).[p1] = Wo.Sheets(1).Name '取得第一個工作表名稱我是把你的程式碼COPY後完整貼上去執行的不知方法是否有錯?

另外
神奇的事發生了他會自動變成
C:\Users\user\Documents\測試用1.xls <<<不管我把檔案放在那一槽在那一目錄下都會被自動改路徑名稱(檔案名不會改) 請問怎會這樣呢?

暫時找到另一個方法處理如果我寫入的路徑名稱是放在[A1]內這時要另外寫一個把[a1].copy 到[a2] 然後巨集就採用[A2]的就可行了

因只要存檔後 [A1]的路徑名稱會被自動改變但 [A2]的郤不會.. 不知這到底是怎一回事..

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

4^#

發表於 2012-4-2 11:41 | 只看該作者

回復 4# GBKEE

有但一樣出現同一個問題

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2012-4-2 12:31 | 只看該作者

回復 4# icestormer
Worksheets("分析表").Sheets(1) 這語法錯誤已更正 2# 的程式碼
神奇的事發生了不管我把檔案放在那一槽在那一目錄下
不是神奇的是 GetOpenFilename 會傳回選取檔案的完整路徑名稱
[A1]=file_path 當然會自動改路徑名稱

Sub Ex()
Dim file_path_get As String
file_path = Application.GetOpenFilename("EXCE檔(*.XLS),*xls")
MsgBox file_path
End Sub

複製代碼

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

6^#

發表於 2012-4-2 12:45 | 只看該作者

回復 5# GBKEE

我的意思是

是神奇的是 GetOpenFilename 會傳回選取檔案的完整路徑名稱
我用這個指令取得一個檔案的完整路徑
[例如A1] 是C:\Users\user\Desktop\最近儲存檔\測試用12.xls 但只要我一存檔>關掉EXCEL>重開
就會變成C:\Users\user\Documents\測試用1.xls

不管我檔案是放在那裡檔名為何都會被自動改變只有檔案名稱-測試用1.xls不變