〖求助〗怎么在SW的VBA里面使用FileDialog

Allate

问题的产生是当想实现浏览文件夹的时候，如果引入Shell，用BrowseForFolder方法，会出现如下的效果：

这样浏览起来有点不够方便。

如果可以使用FileDialog的话，就可以实现以下的效果：

这样操作起来无疑会方便很多，但是这个只能在Office里面实现，到了SW里面就会提示没有这个方法。
相关代码如下：

1. Dim fd As FileDialog
   
2.     Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   

复制代码

而在SW里面，会这样提示：

意思就是Application没有FileDialog这个方法。

不知道大家有没有遇到过这个问题，都是怎么解决的呢？还请不吝赐教！

P.S. 相关的引用都检查过，该有的都已经有了。

Allate

忘记提供相关的代码了，在此附上

1. Dim fd          As FileDialog
   
2. Dim xlApp       As Excel.Application
   
3. Set xlApp = Excel.Application
   
4. Set fd = xlApp.FileDialog(msoFileDialogFolderPicker)
   
5. If fd.Show = -1 Then MsgBox fd.SelectedItems(1)

复制代码

P.S. 引用需要Office和Excel的Object

wenrui

顶一下，坐等高手！

xiaocake

在Excel VBA里面Application代表Excel.Application，在Solidworks VBA里面 Application 代表Sldworks.Application，可能我说的不严谨，但是你这么理解就是了。
创建一个 Excel.Application对象，再使用其对应的FileDialog就行了，前提得保证你电脑上已经安装了Excel或WPS。
你理解了就知道怎么写代码了

Allate

   经典案例图书

xiaocake 发表于 2021-6-21 09:33
在Excel VBA里面Application代表Excel.Application，在Solidworks VBA里面 Application 代表Sldworks.Appli ...

厉害！经过高手的提点，一下子就成功了！非常感谢！

fan03488

看大佬们聊天就是愉快,虽然看不懂

打铁名酱007

   经典案例图书

同问，初学者路过

UDF998

很不错，顶一下！

UDF998

Allate 发表于 2021-7-16 14:25
忘记提供相关的代码了，在此附上

除了这两个种方法，目前有没有其它方法调用文件夹选择对话框？也遇到了同样的问题，调用Excel的是好用，但是反应有点慢

Allate

UDF998 发表于 2021-10-20 14:01
除了这两个种方法，目前有没有其它方法调用文件夹选择对话框？也遇到了同样的问题，调用Excel的是好用， ...

参考这个帖子：
https://www.swbbsc.com/thread-336374-1-1.html

UDF998

Allate 发表于 2021-10-20 14:44
参考这个帖子：
https://www.swbbsc.com/thread-336374-1-1.html

这个方法就是你发的那种方法，调用Excel

Allate

UDF998 发表于 2021-10-20 15:54
这个方法就是你发的那种方法，调用Excel

你没看到他发的另外一种方法么？

xiaofly888

非常不错，求楼主分享！

linkral

Allate 发表于 2021-7-16 14:25
忘记提供相关的代码了，在此附上

谢谢楼主积极分享学习过程。