請問如何用VBA開啟檔案總管視窗讀取Folder或Files的路徑or檔名

webbliu

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

謝謝各位大大~

GBKEE

回復 12# boblovejoyce
即EXCEL在哪兒? 預設開啟的位置~ 同EXCEL位置

1. Sub Ex()
   
2.     With ActiveWorkbook
   
3.         ChDrive .Path
   
4.         ChDir .Path
   
5.     End With
   
6. End Sub

複製代碼

boblovejoyce

回復 8# GBKEE

爬文剛好爬到這個項次~
請問GBKEE大大~~~
如果EXCEL的檔案 和要讀取進來檔案 若都會在同一個資料夾內
有機會選取檔案得時候,就已經是指定這個資料夾了~~??
即EXCEL在哪兒? 預設開啟的位置~ 同EXCEL位置:)

apolloooo

學到了，感謝各位大大。

佩玄

OK~~感謝~~

oobird

Shell "explorer D:\文件檔\附屬檔案"

GBKEE

回復 7# 佩玄
Private Sub CommandButton1_Click()
    With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = "D\文件檔\附屬檔案"
        .AllowMultiSelect = True
        .Show
        For i = 1 To .SelectedItems.Count
            Cells(i, 1) = .SelectedItems(i)
            MsgBox .SelectedItems(i)
        Next
    End With
End Sub

佩玄

大師:
     如果我要開啟的路徑是: D\文件檔\附屬檔案
請問程式要怎麼修改?

webbliu

回復 2# Hsieh


    謝謝版主的指導!!

webbliu

回復 4# luhpro


    謝謝大大~ 我完全明白了!!