請問如何用VBA開啟檔案總管視窗讀取Folder或Files的路徑or檔名
- 帖子
- 46
- 主題
- 18
- 精華
- 0
- 積分
- 67
- 點名
- 0
- 作業系統
- WINXP,win7
- 軟體版本
- office2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 肚子裡
- 註冊時間
- 2010-5-22
- 最後登錄
- 2011-10-27
|
請問如何用VBA開啟檔案總管視窗讀取Folder或Files的路徑or檔名
Dear 各位大大，
請問大大有沒有辦法讓user 在Excel裡面 按下Button 然後就會看到檔案總管視窗(類似存檔畫面的視窗)，然後指另一個路徑。
讓User 選取檔案夾或檔案，然後可以複製該檔案 或 檔案夾的 路徑 or 檔名。
選好後路徑or檔名~ 會自動複製到某存格上。
謝謝各位厲害的大大~!!
目前我只知道可以打開視窗而已 網路上查到的是這樣
Fname = Application.GetOpenFilename
還有檢視檔案 用MsgBox顯示
Dim NextFile As String
Dim AllFiles As String
AllFiles = ""
NextFile = Dir("C:\", 0)
While NextFile <> ""
AllFiles = AllFiles & Chr(13) & NextFile
NextFile = Dir
Wend
MsgBox AllFiles
謝謝各位大大~ |
|
|
|
|
|
|
|
- 帖子
- 46
- 主題
- 18
- 精華
- 0
- 積分
- 67
- 點名
- 0
- 作業系統
- WINXP,win7
- 軟體版本
- office2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 肚子裡
- 註冊時間
- 2010-5-22
- 最後登錄
- 2011-10-27
|
回復 2# Hsieh
謝謝版主~
請問後半段
我不太懂，我想知道如果是要指定貼回路徑到某一儲存格 該怎麼寫呢?
謝謝版主大大!!- For i = 1 To .SelectedItems.Count
- Cells(i, 1) = .SelectedItems(i)
- MsgBox .SelectedItems(i)
- Next
- End With
- End Sub
|
|
|
|
|
|
|
|
- 帖子
- 46
- 主題
- 18
- 精華
- 0
- 積分
- 67
- 點名
- 0
- 作業系統
- WINXP,win7
- 軟體版本
- office2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 肚子裡
- 註冊時間
- 2010-5-22
- 最後登錄
- 2011-10-27
|
回復 4# luhpro
謝謝大大~ 我完全明白了!! |
|
|
|
|
|
|
|
- 帖子
- 46
- 主題
- 18
- 精華
- 0
- 積分
- 67
- 點名
- 0
- 作業系統
- WINXP,win7
- 軟體版本
- office2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 肚子裡
- 註冊時間
- 2010-5-22
- 最後登錄
- 2011-10-27
|
|
|
|
|
|
|
|
發表於 2010-10-13 00:13
| 
