|
|
前几天到自定义区看了看,发现了一个有用的函数,于是下了.
但里面提到的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
'由文件全路径名称返回文件的函数
.... |
|
置顶卡
