如何通过VBA在Word中启动Excel的宏

amberer

基本思路是，通过Word中的宏打开指定的Excel文件，同时启动该Excel文件中的宏（用户窗体），完成一定操作后将结果粘贴回Word。
现在问题卡在，如何在Word中通过VBA启动Excel中的宏，如果是其他Word文件中的宏则可以直接使用
Application.Run "Book1.xls!Module1.xxx"
语句，但是该语句无法实现逾越Word执行Excel中的宏。
感谢！

loquat

能执行也没有意义啊。

loquat

Sub Test()
Dim xlApp As Excel.Application
Dim xlBook As Workbook
Set xlApp = GetObject(, "Excel.Application")
Set xlBook = xlApp.Workbooks("Test.xls")
xlApp.Run xlBook.FullName & "!MeThee.Test"
End Sub

amberer

loquat 发表于 2014-10-13 17:31
Sub Test()
Dim xlApp As Excel.Application
Dim xlBook As Workbook

实在太感谢了！解决我的大问题！
不过我稍做了一些修改才能运行，把xlApp.Run xlBook.FullName & "!MeThee.Test"中的Fullname改成Name
另外加一句AppActivate xlApp.Caption语句把Excel程序激活。