vbsからExcelを起動する方法について。 tsv形式のテキストファイルをエクセルで開き、 個人用マクロブックに記載されたマクロでデータを整理する、 という処理をvbsで行いたいです。
vbsからExcelを起動する方法について。 tsv形式のテキストファイルをエクセルで開き、 個人用マクロブックに記載されたマクロでデータを整理する、 という処理をvbsで行いたいです。 下記のコードを試したのですが、マクロの部分がうまくいきません。 手動でファイルを開きマクロをAlt+F8で起動する分には問題ありません。 コードの表示をすると他に開いているファイルのコードが表示されていませんでした。 vbsでファイルを開いた場合、 マクロはほかのブックとは別に参照しているのでしょうか? 原因と対策をご教授願いたいです。 Set objExcel = CreateObject("Excel.Application") objExcel.Application.Visible = true objExcel.Workbooks.Open(ファイルパス) objExcel.Application.Run 個人用マクロブックのマクロ
Visual Basic・76閲覧・50
ベストアンサー
個人用マクロブックも開いてあげないといけないようです。 以下は、開いて保存し閉じるまでの一例です。（エクセルとの連携は、後処理まできちんと実行さた方が安全です） Option Explicit Dim objExcel Set objExcel = WScript.CreateObject("Excel.Application") With objExcel .Application.Visible = true Dim objBook Set objBook = .Workbooks.Open(ファイルパス) .Workbooks.Open(個人用マクロブックのフルパス) .Application.Run "PERSONAL.XLSB!プロシージャ名" objBook.Save .Workbooks.Close .Quit End With Set objBook = Nothing Set objExcel = Nothing
質問者からのお礼コメント
御二方回答ありがとうございます。 vbsから自動でコードを実行するには 色々と条件分岐が大変そうですね・・・
お礼日時：7/3 21:27
