求助：调用通用对话框出错

roych

印象中这个控件是没有单击事件，甚至没有标签什么的，很奇怪你是怎么使用的。enter事件？还是通过按钮来调用?
如果通过按钮来调用，不如使用FileDialog。
实话说，我对这个控件无感。

roych

Superleistung 发表于 2016-6-7 10:13
我是在单击按钮中这样调用的，目的是获取导入文件路径，见下面代码
我先开始是一个个窗体敲，后来烦了就 ...

如果是在Excel上使用，有一个GetOpenFileName函数可以轻易弹出一个对话框；如果代码是在Access则建议使用FileDialog（须引用Office 15.0 library）。附上GetOpenFileName的用法：

1. Sub t()
   
2.     Dim arr()
   
3.     Dim i As Long
   
4.     arr = Application.GetOpenFilename("excel文件(*.xlsx),*.xlsx", , "请选择文件", "打开", True)
   
5.     For i = LBound(arr) To UBound(arr)
   
6.         If Len(arr(i)) > 0 Then
   
7.             Debug.Print arr(i)
   
8.         End If
   
9.     Next
   
10. End Sub

复制代码

这里最后一个参数设置为true是允许多选，该参数可忽略（默认为false）。