Excel中调用VBA选择目标文件夹

2008-09-02 06:53:52  編輯來源:互聯網  简体版  手機版  評論  字體: 小|中|大

 

　　进行文件操作时，经常要用 VBA 选择目标文件夹，现提供实现代码：

　　1.FileDialog 属性

　　Sub Sample1()

　　With Application.FileDialog(msoFileDialogFolderPicker)

　　If .Show = True Then

　　MsgBox .SelectedItems(1)

　　End If

　　End With

　　End Sub

　　2.shell 方法

　　Sub Sample2()

　　Dim Shell, myPath

　　Set Shell = CreateObject("Shell.Application")

　　Set myPath = Shell.BrowseForFolder(&O0, "请选择文件夹", &H1 + &H10, "G:")

　　If Not myPath Is Nothing Then MsgBox myPath.Items.Item.Path

　　Set Shell = Nothing

　　Set myPath = Nothing

　　End Sub

 

 

 

进行文件操作时，经常要用 VBA 选择目标文件夹，现提供实现代码： 　　1.FileDialog 属性 Sub Sample1() 　　 With Application.FileDialog(msoFileDialogFolderPicker) 　　　　 If .Show = True Then 　　　　　　 MsgBox .SelectedItems(1) 　　　　 End If 　　 End With End Sub 　　2.shell 方法 Sub Sample2() 　　 Dim Shell, myPath 　　 Set Shell = CreateObject("Shell.Application") 　　 Set myPath = Shell.BrowseForFolder(&O0, "请选择文件夹", &H1 + &H10, "G:") 　　 If Not myPath Is Nothing Then MsgBox myPath.Items.Item.Path 　　 Set Shell = Nothing 　　 Set myPath = Nothing End Sub