如何在VB中自动运行EXCEL中的宏

Question

如果我的电脑中EXCEL的宏安全性设置为中,运行时提示是否运行宏,可否在VB中直接调用EXCEL中的宏

Answer 1

当然可以,宏代码实际上就是VB6代码,可以包装成为VB6里面的函数或过程直接调用~

Answer 2

是可以实现的，虽然在excel里设置安全性，
但用vb6访问时不会提示是否运行宏，例子如下：1. 在创建c:\a.xls，把宏安全性设置为中，然后，
    添加模块，在模块里加入：
    Public Sub test()
        Beep
    End Sub
测试： 打开文件，会提示是否运行宏
2. 在vb6里添加两个按钮，输入代码：
Option ExplicitDim x As Object
    
Private Sub Command1_Click() '打开文件
    Set x = CreateObject("excel.application")
    x.Visible = True
    x.workbooks.open "c:\a.xls"End SubPrivate Sub Command2_Click() '点击，听到beep一声
    On Error Resume Next
    x.Run "test"
End Sub