|
▼IROC さん:
こんばんは、しんです。VBSありがとうございました。
IROCさんのVBScriptを下記のように少し手を加えて、ブックの保存と閉じるをできるようにしましたが、IROCさんのコード通り
xlApp.DisplayAlerts = False
にすると、TESTを行った結果(たとえば
Sub TEST
Cells(1,1).Value = "TEST"
End Sub
の実行結果(セルA1の内容がTESTとして表示される)のブック保存ができません。
TESTマクロの実行結果がブックに保存できるようにするには、下記コードをどのように加筆修正すればよいのか教えて頂けませんか?
Dim xlBook
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
xlApp.DisplayAlerts = True 'ブックに保存するどうかの確認メッセージ
Set xlBook = xlApp.Workbooks.Open("C:\Sample2.xls")
xlApp.Run "TEST"
xlApp.Workbooks.Close 'ブックを閉じる
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
|
|