CommonDialog???

liub1979

前几天到自定义区看了看,发现了一个有用的函数,于是下了. 但里面提到的CommonDialog类,我的VBA不认得,程序运行到Public Function getFileBySelect(DialogTitle, DefaultExt, Filter) As Variant 就出错!!!怎么办? 现将程序片段贴出,还请各位师傅指点迷津. '通过选定多个图形文件插入到图形中的过程 Sub IntBlkBySelectDwg() .... End Sub '选定多个文件的函数，使用了CommonDialog类
Public Function getFileBySelect(DialogTitle, DefaultExt, Filter) As Variant Dim dlg As CommonDialog
Dim Files As Variant
Dim i As Integer Set dlg = New CommonDialog
With dlg
.DialogTitle = DialogTitle
.DefaultExt = DefaultExt
.Filter = Filter
.Flags = OFN_EXPLORER Or OFN_HIDEREADONLY Or OFN_ALLOWMULTISELECT
If .ShowOpen Then
getFileBySelect = .ParseFileNames
End If
End With End Function '由文件全路径名称返回文件的函数
....

雪山飞狐_lzh

在附加控件选项选择

mccad

其实选择文件对话框可以通过多种方式来实现： 1.就是飞狐版主所说的使用控件。应该说是比较简单的方法。
2.使用CommonDialog类，该类的下载地址
http://www.mjtd.com/mcdown/list.asp?id=83 而示例可以在二次开发的栏目中找到。
3.使用API方法，见 http://www.mjtd.com/a2/list.asp?id=472

liub1979

谢谢版主!谢谢老大!

3xxx

又学习了。谢谢！