请高手解决

Question

在自己的VB程序中如何嵌入VBA

Answer 1

下面的代码示例演示了VB如何连接到AutoCAD并且如何用Clear和Description属性处理错误信息变量Err。如果你的编程环境不支持这些属性，你需要适当地修改示例。 
  Sub ConnectToAcad()
Dim acadApp As AcadApplication
On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
MsgBox "Now running " + acadApp.Name + _
" version " + acadApp.Version
End Sub

Answer 2

对不起，我太着急了，
我的意思是，把VBA作为自己开发的程序里面的脚本

Answer 3

你的问题莫名其妙
vba你懂吗？你知道什么是vba吗？

Answer 4

我知道你的意思，是把VBA作为你自己程序的一部分开放给用户。
自己的程序作为主框架，VBA作为plug-in.

Answer 5

VBA不是在应用程序里嵌入的脚本吗？
我想在我的程序里也能象CAD一样嵌入脚本啊

Answer 6

不，是VBA
我要在自己的程序里面允许用户用VBA扩展我的程序
我要做的工作是这样的
我做一个开发环境，允许用户自己放自己的控件到应用程序里，并且写上VBA的代码

Answer 7

http://www.china-pub.com/computers/common/info.asp?id=978

Answer 8

你可以用多个On Error Goto 的方法来处理比如说Sub ConnectToAcad()
    Dim acadApp As AcadApplication
    On Error Goto NewRun
    Set acadApp = GetObject(, "AutoCAD.Application")
    MsgBox "Now running " + acadApp.Name + _
           " version " + acadApp.Version
    Exit Sub
NewRun:
    Err.Clear
    On Error Goto errLine
    Set acadApp = CreateObject("AutoCAD.Application")
    MsgBox "Now running " + acadApp.Name + _
           " version " + acadApp.Version
    Exit Sub
errLine:
    MsgBox Err.Description
    Err.Clear
End Sub