VB Script
Sub RunMacro(filename, macroname) ' ' This procedure will execute a Excel macro. ' Dim oExcel Set oExcel = CreateObject("excel.application") oExcel.Workbooks.Open(filename) oExcel.Run macroname oExcel.ActiveWorkbook.Save oExcel.Workbooks.Close oExcel.Quit Set oExcel = Nothing End Sub
Advertisements