在VBA代码运行以后，调用【目标文件夹】的方法

首先要介绍，在VBA代码运行以后，调用【目标文件夹】的方法：① 微软Excel VBA 默认选择文件夹的Dialog对话框Sub ListFilesTest()With Application.FileDialog(msoFileDialogFolderPicker) '运行后出现标准的选择文件夹对话框If .Show Then myPath = .SelectedItems(1) Else Exit Sub '如选中则返回=-1 / 取消未选则返回=0End WithIf Right(myPath, 1) <> "" Then myPath = myPath & ""'返回的是选中目标文件夹的绝对路径,但除了本地C盘、D盘会以"C:"形式返回外，其余路径无""需要自己添加End Sub复制代码② 视窗浏览器界面选择目标文件夹Sub ListFilesTest()Set myFolder = CreateObject("Shell.Application").BrowseForFolder(0, "GetFolder", 0)If Not myFolder Is Nothing Then myPath$ = myFolder.Items.Item.Path Else MsgBox "Folder not Selected": Exit SubIf Right(myPath, 1) <> "" Then myPath = myPath & ""'同样返回的是选中目标文件夹的绝对路径,但除了本地C盘、D盘会以"C:"形式返回外，其余路径无""需要添加End Sub复制代码…………这两种选择目标文件夹的方法，总的效果应该都不错。方法-1 默认Dialog对话框左侧栏有桌面、我的文档等快捷方式，也比较符合一般人的使用习惯。优点是，本层文件夹内的子文件夹全部以大图标方式列出（也可以改为列表）看起来较为轻松。缺点是，如果有多层子文件夹，需要一层一层地点下去……似乎比较累一点。与此相对、方法-2 是浏览器形式，点击+号可以展开、点击-号可以折叠。因此也有很多人特别喜欢这一种的，尤其是有多层子文件夹时很方便。…………因此，这两种方法你喜欢哪一种都可以，可以多试几次然后定下来。