在自动化测试过程中,采用Excel作为数据源是很常见的。而在访问数据之前,需要对数据进行动态更新,这时候就需要通过VBA来实现。
首先在在Excel中编辑一个测试宏并保存:
sub Test_Macro()
msgbox "This is a macro in Excel"
end sub
在外部VBS代码中,调用这个宏:
Set oExcel = createobject("Excel.Application")
oExcel.Visible = false
Set oWorkbooks = oExcel.Workbooks.Open("c:/test macro.xls")
oExcel.Run "Test_Macro"
oWorkbooks.Close
oExcel.Quit
Set oWorkbooks= nothing
Set oExcel= nothing