vba 中如何使用文件选择器

用文件对话框

With

Application.FileDialog(msoFileDialogOpen)

.Title

=

"选择文件"

.AllowMultiSelect

=

True

.Filters.Add

"Excel

Files",

"*.xls"

.FilterIndex

=

2

'默认的文件筛选条件的索引号

.Show

FileCount

=

.SelectedItems.Count

Filename

=

.SelectedItems(1)

End

With

'注意引用　microsoft　office 10.0 （或以上）　object library'在文件对话框对中返回选择一个文件夹的路径.Public Function ChooseFolder() As StringDim dlgOpen As FileDialogSet dlgOpen = Application.FileDialog(msoFileDialogFolderPicker)With dlgOpenIf .Show = -1 ThenChooseFolder = .SelectedItems(1)End IfEnd WithSet dlgOpen = NothingEnd Function'--------------------------------------------------------'在文件对话框对中，选择一个文件。Public Function ChooseOneFile(Optional TitleStr As String= 选择你要的文件, Optional TypesDec As String = 所有文件,Optional Exten As String = *.*) As StringDim dlgOpen As FileDialogSet dlgOpen = Application.FileDialog(msoFileDialogFilePicker)With dlgOpen.Title = TitleStr.Filters.Clear'清除所有的文件类型..Filters.Add TypesDec, Exten.AllowMultiSelect = False '不能多选.If .Show = -1 Then'.AllowMultiSelect = True '多个文件'For Each vrtSelectedItem In .SelectedItems'MsgBox Path name:& vrtSelectedItem'Next vrtSelectedItemChooseOneFile = .SelectedItems(1)'第一个文件End IfEnd With

Sub a()

Dim file1 As String, file2 As String

file1 = "C:\Users\630gn\Desktop\新建文本文档.txt"

file2 = "C:\Users\630gn\Desktop\新建文件夹\文本文档.txt"

Name file1 As file2

End Sub

'不用那么复杂，就一句话  name [ ] as [ ]，测试结果如下

---