请教VB高手

[chenxue097]

VB中如何在调用EXCEL的同时启动录制宏
谢谢！

[WuYunpeng]

'假如Excel文件标识为c:\wyp.xls 文件内的宏名为Macro1
'首先添加Excel对象库的引用，代码如下：

Private myExcel As Excel.Application
private sub Tests()
Set myExcel = GetObject(, "excel.application")
If Err.Number <> 0 Then
Err.Clear
Set myExcel = CreateObject("excel.application")
If Err.Number <> 0 Then
MsgBox "Excel打开出错，或没有正确安装。", vbOKOnly + 16, "错误："
End
End If
End If
myExcel.Workbooks.Open "c:\wyp.xls"
myExcel.Run "Macro1"
myExcel.Visible = True
Set myExcel = Nothing
end sub