怎样编写VB6程序（不是VBA！！）运行xls中的marco

Question

我有一些xls文件里面写了一些VBA marco，而且是通过一些按钮触发事件的，那么，现在我想写一个VB程序（注意：不是写VBA）来实现读取这些xls文件并触发里面的按钮事件，请问该怎么实现？？

Answer 1

首先在VB程序中读到xls文件，然后把xls文件的按钮事件代码拷贝到VB按钮中，把相应的取表格数据的代码换换就好
应该不能直接触发xls文件的按钮事件

Answer 2

其实要在vb里做，也是通过使用vba来调用宏的。。在excel的帮助里查找 Application.Run的用法吧。

Answer 3

VB6:
Sub test() 
Set xlApp = CreateObject("Excel.Application") 
xlApp.Workbooks.Open 文件路径 
xlApp.Sheets(表名).CommandButton1_Click 
End SubVB.NET:
Dim xlsApp As Excel.ApplicationClass
Dim xlsWB As Excel.WorkbookClass
Dim xlsWBs As Excel.Workbooks
xlsApp = New Excel.ApplicationClass
xlsWBs = xlsApp.Workbooks
MarcoPath = "d:\test.xls"
xlsWB = xlsWBs.Open(MarcoPath)
'Run macro
xlsApp.Run("GenCAP")
xlsWB.Close()
xlsApp.Quit()