如何用<em>VBA</em>打开选择文件和选择路径的对话框-excel选择路径 vba,exc

Set objFD = Application.FileDialog(msoFileDialogFolderPicker)
With objFD
If .Show = -1 Then
' 如果单击copy了确定按钮，则将选取的路径保zd存在变量中
sPath = .SelectedItems(1)
End If
End With

'注意引用　microsoft　office 10.0 （或以上）　object librarye68a847a686964616f337'在文件对话框对中返回选择一个文件夹的路径.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
VBA调用内知置对话道框—版FileDialog | VBA实例权教程 http:///cat1/314.html

'在文件对话框对中返回选择一个文zhidao件夹的路径版.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'--------------------------------------------------------'在文件对权话框对中，选择一个文件。