VBA选择文件夹对话框

lhl-RT · 发表于 2021-10-22 16:05:27

第一种方法是使用Windows API 调用显示对话框。第二种方法用“Microsoft shell 控件和自动化 ”对象库。
第一种方法可以在Windows的任意版本使用（win95或更晚），这种方法可定位到开始文件夹，通过操作注册表，记录上次所选文件夹，再次启用后，可直接跳转到上次所选。
而第二种方法需要用户安装了Internet Explorer 5或更高版本，这种方法，通过多次尝试，无法定位到开始文件夹，这样就不太方便，选择起来就不够人性化。

SelectFolderDialog.zip (18.03 KB, 下载次数: 118, 售价: 10 金币)

使用Shell对象的BrowseForFolder方法打开选择文件夹对话框.zip (8.91 KB, 下载次数: 74, 售价: 5 金币)

第三种方法，利用office控件，这种方法，实际运行起来，比较慢。
具体参见：VBA多选文件选择对话框 (swbbsc.com)9楼

Sub SelectFolder文件夹()
'选择单一文件夹
ConnectExcel True
Set swApp = CreateObject("SldWorks.Application") '启动SW
With ExApp.FileDialog(4)
.Title = "请选择要查找的文件夹"
.InitialFileName = swApp.GetCurrentWorkingDirectory '设置文件对话框中初始显示的路径是sw当前文件路径
' .InitialFileName = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}" '获取上一次打开的路径
If .Show = -1 Then
'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。
MsgBox "您选择的文件夹是：" & .SelectedItems(1), vbOKOnly + vbInformation, "信息"
End If
End With
End Sub

复制代码

UDF998 · 发表于 2021-10-23 10:49:06

学习的好资料，感谢感谢

qqfly332211 · 发表于 2021-10-26 12:24:34

感谢楼主分享，很不错！

126505118 · 发表于 2021-10-26 17:58:13

下载下来看看，应该会有用！

淡淡的雲 · 发表于 2021-10-27 08:28:28

经典案例图书

好东西，努力学习学习！

lznlsd · 发表于 2021-10-27 13:38:35

走过路过，不要错

qxzch · 发表于 2021-10-27 16:56:40

经典案例图书

受教了，谢谢！

打铁名酱007 · 发表于 2021-11-18 08:26:18

为什么我打开宏，里面是红色的

lhl-RT · 发表于 2021-11-18 09:32:21

打铁名酱007 发表于 2021-11-18 08:26
为什么我打开宏，里面是红色的

针对win10以及win10以下版本，为了保证程序在这两种系统中都可以正常运行，程序中增加了条件编译语句（条件编译通常用来编译不同平台上的同一个程序）。如果你的系统为win10，那么在win10以下版本中运行的条件语句会变成红色。

jiacai007 · 发表于 2021-12-21 20:57:25

很不错，顶一下！

浅蓝色的天空 · 发表于 2022-6-1 00:08:36

楼主辛苦了！

hejunxin888 · 发表于 2022-8-26 16:07:22

楼主辛苦了！

hejunxin888 · 发表于 2022-8-26 16:07:28

楼主辛苦了！

384432485 · 发表于 2022-8-26 16:41:49

楼主太有才了，膜拜中……

moscow19870105 · 发表于 2022-8-27 10:32:08

加入QQ群
参与讨论和学习

或扫描二维码加入

走过路过，不要错过

moscow19870105 · 发表于 2022-8-27 10:32:13

经典案例图书

走过路过，不要错过

moscow19870105 · 发表于 2022-8-27 10:36:23

加入QQ群
参与讨论和学习

或扫描二维码加入

SolidWorks2020 用此宏要崩溃

lider_2010 · 发表于 2023-8-28 12:24:43

经典案例图书

楼主太有才了，膜拜中……

FMVPcurry30 · 发表于 2023-8-28 17:32:00

感谢楼主分享，很不错！

rex2023 · 发表于 2023-9-30 07:15:12

好品数字
感谢楼主分享，很不错！

		自动登录	找回密码
密码			立即注册

VBA选择文件夹对话框

评分

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献