通过VBS打开Excel并在其中运行宏

Question

I need run a VBA macro in Excel but from VBS file. My code for opening Excel file and writing some values is below:

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\user\Desktop\test1.xlsm")
objExcel.Application.Visible = True
objExcel.Cells(1,2).Value = "Test value"
WScript.Quit

I have 2 simple macros in this file: test1 and test2 . I need run them by VBS.

Answer 1

To run macros from other macros you only have to add these lines to your code... As long as you have saved you macros in the personal sheet the code should look like this... If you have saved them in another sheet, then change the part of the code where it says personal.xlsb for your sheet's name...

Application.Run "PERSONAL.XLSB!test1"
Application.Run "PERSONAL.XLSB!test2"

Answer 2

I need to put somethink like:

objExcel.Application.Run "test1"

after

Set objWorkbook = objExcel.Workbooks.Open("C:\Users\user\Desktop\test1.xlsm")

an my code will look like:

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\user\Desktop\test1.xlsm")
objExcel.Application.Visible = True
objExcel.Application.Run "test1"
objExcel.Application.Run "test2"