如何用vb调用或运行excel vba模块中的代码-excel的调用vba,vba调用其他excel的宏

Set xlsApp = Nothing

/*----------有参调用百模度式-------------*/
xls文件中问代码如下答：内
Sub test2(str As String)
MsgBox (str)
End Sub

VB代码如下：
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSheet As Excel.Worksheet

Set xlsApp = New Excel.Application
Set xlsBook = xlsApp.Workbooks.Open(App.Path + "\test.xls")
Set xlsSheet = xlsBook.Worksheets(1)
xlsApp.Visible = False

Call xlsApp.Run("test2", "Hello!容World!")

首先，工程－引用microsoftExcel11.0)bjectLibrary然后代码如下：DimxlAppAsObjectDimxlBookAsObjectSetxlApp=CreateObject("Excel.Application")SetxlBook=xlApp.Workbooks.AddWithxlAppxlApp.Visible=False.Rows(1).Font.Bold=True'设置第一行百为粗体.Cells(10,10).Value＝"姓名".Application.Visible=TrueEndWithSetxlApp=NothingSetxlBook=Nothing如想了解其他度操作知excel的代码，可以在excel中，点击菜单的工道具——宏——录制新宏。然后你手动对excel操作，操作完成后停止录制。再点击工具——宏——visualbasic编辑器，找到刚内才录制的宏，就可以看到容刚才对excel所做的操作对应的vb代码了。

vb可以调用Excel，并百运行其中的度宏问的：
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSheet As Excel.Worksheet

Set xlsApp = New Excel.Application
Set xlsBook = xlsApp.Workbooks.Open(App.Path + "\test.xls") '打开你的答EXCEL文档内
Set xlsSheet = xlsBook.Worksheets(1)
xlsApp.Visible = False

Call xlsApp.Run("复制放样坐标容12")　'运行你的宏