Question

如何用VBA打开选择文件和选择路径的对话框

Answer 1

'注意引用　microsoft　office 10.0 （或以上）　object library '在文件对话框对中返回选择一个文件夹的路径. Public Function ChooseFolder() As String Dim dlgOpen As FileDialog Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker) With dlgOpen If .Show = -1 Then ChooseFolder = .SelectedItems(1)End IfEnd With Set dlgOpen = Nothing End Function '-------------------------------------------------------- '在文件对话框对中，选择一个文件。 Public Function ChooseOneFile(Optional TitleStr As String = 选择你要的文件, Optional TypesDec As String = 所有文件, Optional Exten As String = *.*) As String Dim dlgOpen As FileDialog Set 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 vrtSelectedItem ChooseOneFile = .SelectedItems(1) '第一个文件End IfEnd With

Answer 2

1ifilename = Application.GetOpenFilename("Excel 表格 (*.xls), *.xls", , , , False)
ifilename就是选中文件的带路径的文件名，用InStrRev(ifilename,
"\")，配以left()函数就可以获得文件所在文件夹。