VBA多选文件选择对话框

lhl-RT

在SW中，如果采用VBA选择文件，可以用函数GetOpenFileName来选择文件，但该函数只支持单选一个文件，不支持选择多个文件。

1. Dim Filter                      As String
   
2. Dim fileName                    As String
   
3. Dim fileConfig                  As String
   
4. Dim fileDispName                As String
   
5. Dim fileOptions                 As Long
   
6. 
   
7. Private Sub CommandButton1_Click()
   
8. 
   
9.     Filter = "SolidWorks Files (*.sldprt; *.sldasm; *.slddrw)|*.sldprt;*.sldasm;*.slddrw|Filter name (*.fil)|*.fil|All Files (*.*)|*.*|"
   
10.    
    
11.     fileName = swApp.GetOpenFileName("File to Attach", "", Filter, fileOptions, fileConfig, fileDispName)
    
12. 
    
13.     Debug.Print fileName
    
14. 
    
15. 
    
16. End Sub

复制代码

那么，如果同时选择多个文件怎么办呢？
通过查找资料及自己的摸索，终于找到了解决这个问题的办法。
1.如果电脑安装了office相关软件，可以借助office的控件；

1. Option Explicit
   
2. Dim swApp                      As Object
   
3. Dim fileName                   As Variant
   
4. Dim xlapp                      As Object
   
5. Dim i                          As Long
   
6. Sub main()
   
7.     Dim strFilter           As String
   
8.     On Error Resume Next
   
9.    
   
10.     Set swApp = CreateObject("SldWorks.Application")
    
11. 
    
12.     Set xlapp = CreateObject("Excel.Application")
    
13.    
    
14.     strFilter = "SolidWorks文件 ,*.sldprt;*.sldasm;*.slddrw"
    
15. 
    
16.     fileName = xlapp.GetOpenFileName(strFilter, , Title:="选择SolidWorks文件...", MultiSelect:=True)
    
17.     Set xlapp = Nothing
    
18.    
    
19.     If IsArray(fileName) Then
    
20.         For i = LBound(fileName) To UBound(fileName)
    
21.             Debug.Print fileName(i)
    
22.         Next i
    
23.     End If
    
24. End Sub
    

复制代码

运行程序后，等对话框弹出后，可通过ctrl+A，ctrl+右键，shift+右键，等方式选择多个文件

利用Office控件多选方式选择文件

2.通过API函数，选择多个文件






打开多选文件对话框(2).zip (30.7 KB, 下载次数: 188, 售价: 30 金币)

2021-10-12 09:34 上传

点击文件名下载附件
售价: 30 金币  [记录]
下载积分: 金币 -1

tg000057

好东西，感谢分享！

jamy1979

很不错，顶一下！

qqfly332211

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

UDF998

   经典案例图书

活到老学到老！

UDF998

在第二种方法基础上修改能否选中单个文件夹

lhl-RT

   经典案例图书

UDF998 发表于 2021-10-22 09:18
在第二种方法基础上修改能否选中单个文件夹

这主要是选择文件的，选择文件夹有专门的对话框！当然，通过修改代码，也可以选择文件夹，但意义不大。

UDF998

lhl-RT 发表于 2021-10-22 10:10
这主要是选择文件的，选择文件夹有专门的对话框！当然，通过修改代码，也可以选择文件夹，但意义不大。

感谢，你有已经做好的选择文件夹的对话框吗? 能否发个帖子参考一下

lhl-RT

这个示例利用Office控件选择文件或文件夹，其中有：1.单选文件，
2.多选文件，
3.单选文件夹
用Office控件选择文件或文件夹.zip (10.93 KB, 下载次数: 118, 售价: 10 金币)

2021-10-22 14:21 上传

点击文件名下载附件
售价: 10 金币  [记录]
下载积分: 金币 -1

UDF998

感谢感谢，这种方法已经尝试过了，在各位大神的指导下，我目前在SWVBA只能采用这两种方法，使用第一个方法不够直观，用着不习惯。如果直接调用Excel的文件夹对话框，从进程里看到了Excel在后台启动了，从而导致程序运行速度太慢，目前还在找其它方法。

makejon

很不错，找到组织了！

qqfly332211

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

SW初学00

很不错，顶一下！

samult

感谢楼主分享

FLYADAY

加入QQ群
参与讨论和学习

或扫描二维码加入

厉害，顶一个！

巴顿2017

   经典案例图书

楼主辛苦了！

SW初学00

加入QQ群
参与讨论和学习

或扫描二维码加入

楼主您好，请问在装配体中选取多个零件或组件改怎么改代码呢？

yni621

   经典案例图书

感谢楼主分享，很不错！

1109188289

SW机械工程师网，找到组织了！

1109188289

很不错，希望能共享模型，谢谢！