怎样调用excel 中的宏?

感谢您使用微软产品。您可以参考下面的代码：Dim xlapp As Object 'Excel.Application
Set xlapp = CreateObject("Excel.Application")' Add a new workbook
Dim xlbook As Object 'Excel.Workbook
Set xlbook = xlapp.Workbooks.Add' Add a module
Dim xlmodule As Object 'VBComponent
Set xlmodule = xlbook.VBProject.VBComponents.Add(1) 'vbext_ct_StdModule' Add a macro to the module...
Dim strCode As String
strCode = "sub MyMacro()" & vbCr & _
           "   msgbox ""Inside generated macro!!!"" " & vbCr & _
           "end sub"
xlmodule.CodeModule.AddFromString strCode' Run the new macro!
xlapp.Run "MyMacro"具体您可以参考下面的文章：Q194611 HOWTO: Create and Call an Excel Macro Programmatically from VB
http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q194611如果您使用Excel 2002，您需要在Excel 2002中设置允许其他程序访问VBA object model。具体您可以参考下面的文章：Q282830 PRB: Programmatic Access to Office XP VBA Project Is Denied
http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q282830希望对您有帮助！本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。为了为您创建更好的讨论环境，请参加我们的用户满意度调查(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。