0

我想将现有的宏（auto_open.bas）添加到许多 Excel 工作表中。因此我写了一个 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

先感谢您

4

1 回答 1

1

用这个 SaveAs 方法解决了

“objWorkbook.SaveAs Datei, 52”

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

于 2013-08-15T06:04:50.730 回答