FileDialog对象必须先设置AllowMultiSelect为True才能选择多个文件吗？

作者：绿色风分类：时间：2022-08-17 浏览：139

楼主
水星钓鱼

Q:VBA内置的选取多文件对话框对象Application.FileDialog(msoFileDialogFilePicker)一定要先设置
AllowMultiSelect为True属性才能一次性选择多个文件吗？
A：不需要。Application.FileDialog(msoFileDialogFilePicker)的AllowMultiSelect属性默认就是True。无需先设置
为True。
如以下过程

Sub xyf()
Dim FD As FileDialog
Set FD = Application.FileDialog(msoFileDialogFilePicker)
Dim FilePath As Variant
With FD
.AllowMultiSelect = True
If .Show = -1 Then
For Each FilePath In .SelectedItems
MsgBox FilePath
Next
End If
End With
End Sub

可以用如下过程代替：

Sub xyf()
Dim FD As FileDialog
Set FD = Application.FileDialog(msoFileDialogFilePicker)
Dim FilePath As Variant
With FD
.AllowMultiSelect = True
If .Show = -1 Then
For Each FilePath In .SelectedItems
MsgBox FilePath
Next
End If
End With
End Sub

一样可以一次性选择多个文件。

2楼
い卋玑┾宝珼

辛苦了,谢谢分享

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表