UseFileDialogOpen() DimlngCountAs Long '开启\"打开文件\"对话框 WithApplication.FileDialog(msoFileDialogOpen) .AllowMultiSelect= True .Show '显示所选的每个文件的路径
ForlngCount=1To.SelectedItems.Count
MsgBox.SelectedItems(lngCount) NextlngCount EndWith
End Sub示例说明：本示例显示“打开文件”对话框，当用户在其中选择一个或多个文件后，将依次显示每个文件的路径。其中，FileDialog属性返回打开和保存对话框中一系列对象的集合，您可以对该集合对象的属性进行进一步的设置，如上例中的
AllowMul
因篇幅问题不能全部显示，请点此查看更多更全内容