- 帖子
- 127
- 主題
- 28
- 精華
- 0
- 積分
- 160
- 點名
- 0
- 作業系統
- W7
- 軟體版本
- 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-11-1
- 最後登錄
- 2017-5-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 |
|
發表於 2012-4-1 21:20
| 
