Sub SelectFiles()
Dim a, s
With Application.FileDialog(msoFileDialogFilePicker)
.Show
Set a = .SelectedItems
End With
' далее в качестве примера имена выбранных файлов распечатываются в отладочном окне
For Each s In a
Debug.Print s
Next
End Sub
要选择文件夹,请使用:
Sub SelectFolder()
Dim a
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
Set a = .SelectedItems
End With
Debug.Print a(1)
End Sub
要选择列表中的文件,请使用:
要选择文件夹,请使用: