求助关于MSComDlg无法创建对象

今晚打老虎

我用VBA在CAD环境中使用 CreateObject("MSComDlg.CommonDialog") 创建对象。在开发环境中一切正常，而在测试的机器上却不能创建对象。诸位斑竹，是不是在测试机器上缺少了什么必须的控件，如果是的话，缺少的是什么控件？ 代码如下： Public Sub gsImportDwg()
On Error GoTo Err_Proc

'1 选择设计文件
Dim dlgOpen As Object '在这个地方就连这样都不行 set dlgOper = new MSComDlg.CommonDialog
Set dlgOpen = CreateObject("MSComDlg.CommonDialog")
With dlgOpen
.DialogTitle = "选择Dwg文件"
.Filter = "Dwg 文件(*.dwg)|*.dwg|所有文件(*.*)|*.*"
.DefaultExt = "*.dwg"
.CancelError = False
.ShowOpen

Dim sFile As String
sFile = .FileName
End With
Set dlgOpen = Nothing
end sub

雪山飞狐_lzh

这两天怎么都是关于CommonDialog的？


试试CommonDialog类，本论坛有提供下载

今晚打老虎

呵呵，down下来look,look.

今晚打老虎

不对啊斑竹用这个类能解决 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=22235帖子中的8楼的问题么？

雪山飞狐_lzh

这个类可以直接调用，不用注册

今晚打老虎

看错了是10楼提出的问题。

mccad

这是二次开发栏目的两篇文章，使用是就是CommonDialog类：
通过选定目录来插入目录中的所有图形文件到当前图形中
通过选定多个图形文件插入到图形中
而实用函数栏目下有两个API的函数，可以直接用：
GetFile ：调用文件打开对话框
GetFolder ：调用系统选择文件夹对话框