【利用FileDialog產生檔案選取視窗】
With Application.FileDialog(msoFileDialogFilePicker) '開啟選取檔案視窗
.InitialFileName = ActiveWorkbook.Path & "\*.*" '預設為目前檔案所在位置
.AllowMultiSelect = False '只能選取單一檔案
If .Show <> 0 Then '如果有選到檔案
Dim sFileName As String
sFileName = Dir(.SelectedItems(1)) '取得檔名
End If
End With
相關課程：
章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/
※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※