Excel中调用VBA选择目标文件夹EXCEL.VBA -电脑资料

    进行文件操作时，经常要用 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

    相关文章：

    Excel 2003快速求取各班各科最高分

    Excel 2003使用技巧：特殊班级排序

    浅析Excel 2003中多张表格同时显示的方法

    用Excel 2003轻松自制学生练习测试卷

    Excel 2003数据处理三则