〔VBA〕FileDialog-開啟視窗選取檔案--v033

【利用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/

※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※