我的作業簿中有這個宏（效果很好）-
Dim filename As String
' select file
With Application.FileDialog(msoFileDialogFilePicker)
If .Show <> -1 Then Exit Sub
filename = .SelectedItems(1)
End With
現在，上面的代碼允許用戶選擇任何型別的多個檔案。如何修改它，使其只允許用戶選擇特定型別(.xml)的單個檔案？請指導...謝謝！:)
編輯：我在這篇文章的評論中由@Tim Williams 鏈接的文章中找到了這段代碼 [謝謝蒂姆 :)] -
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Add = "XML Files |*.xml"
.AllowMultiSelect = False
.Title = "Select XML file"
If .Show <> -1 Then Exit Sub
filename = .SelectedItems(1)
End With
但是我收到此錯誤 -Compilation Error : Argument not optional并且.Add正在突出顯示...我試圖搜索錯誤原因，但找不到相關結果...我該怎么辦？請指導...
uj5u.com熱心網友回復：
https://docs.microsoft.com/en-us/office/vba/api/excel.application.filedialog有一個很好的概述，以及https://wellsr.com/vba/2018/excel/vba-select-files -with-msoFileDialogFilePicker/有更多關于使用msoFileDialogFilePicker
具體來說，您要設定：
.AllowMultiSelect = False 'allow only 1 file to be selected
.Filters.Add "XML files", "*.xml", 1 'select only files with "xml" extension
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/363800.html