VB скрипт для вставки макроса в файл Excel

Question

В некоторых случаях нам нужно вставлять макрос в лист Excel программно.Я нашел скрипт VB, который вставит конкретный макрос в упомянутый лист Excel.

Answer 1

Set objExcel = CreateObject("Excel.Application")
strPath = WScript.ScriptFullName
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPath)
strFolder = objFSO.GetParentFolderName(objFile) 
excelLocation = strFolder & "\GeneratedReport.xls"
macroVBSLocation = strFolder & "\sendMailModule.bas"
objExcel.Visible = True
objExcel.DisplayAlerts = False
Set objWorkbook = objExcel.Workbooks.Open(excelLocation)
       objWorkbook.VBProject.VBComponents.Import macroVBSLocation
objWorkbook.Save
objExcel.Quit

excelLocation указывает на место, где будет присутствовать excel.macroVBSLocation указывает на место, где будет присутствовать макрос.