0

多くの 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

前もって感謝します

4

1 に答える 1

1

このSaveAsメソッドで解決しました

"objWorkbook.SaveAs Datei, 52"

52 = ワークブックがマクロ有効ワークブックとして保存されることを意味します

于 2013-08-15T06:04:50.730 に答える