如题所述
'注意引用 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
温馨提示:答案为网友推荐,仅供参考
第1个回答 2019-08-23
1ifilename = Application.GetOpenFilename("Excel 表格 (*.xls), *.xls", , , , False)
ifilename就是选中文件的带路径的文件名,用InStrRev(ifilename,
"\"),配以left()函数就可以获得文件所在文件夹。
ifilename就是选中文件的带路径的文件名,用InStrRev(ifilename,
"\"),配以left()函数就可以获得文件所在文件夹。