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

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

8^#

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

回復 7# 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兔年全勤獎章

7^#

發表於 2012-4-2 13:22 | 只看該作者

回復 6# icestormer
傳上檔案看看

帖子: 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不變

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

4^#

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

回復 4# GBKEE

有但一樣出現同一個問題

帖子: 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]的郤不會.. 不知這到底是怎一回事..

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

複製代碼