以编程方式将宏添加到excel中´；保存工作簿后不会显示

我想在许多excel工作表中添加一个现有宏（auto_open.bas）。因此，我编写了一个vbscript来添加这个宏。在调试模式下，我可以看到宏被附加到VBComponents“列表”中。似乎一切都很顺利，它保存了工作簿。但是如果我打开工作簿，我在可执行文件列表中看不到宏。 你能给我一个建议吗

        Set objExcel = CreateObject("Excel.Application") 
        objExcel.Visible = False
        objExcel.WindowState = -4137
        Set objWorkbook = objExcel.Workbooks.Open(path)
        objWorkbook.VBProject.VBComponents.Import(pathToMacro & "auto_open.bas")
        objWorkbook.Save
        objWorkbook.Close
        objExcel.quit

---

提前感谢

使用此SaveAs方法解决了此问题

“obj工作簿.SaveAs Datei，52”

52=表示工作簿将另存为启用宏的工作簿