| |
▼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
|
|
しん
- 04/6/10(木) 21:18 -
