Save の直後に Quit を実行すると強制終了されたと解釈されるため、RESUME.XLW が作成される。

これを回避するには、ブックを閉じてからアプリケーションを終了させる。 1

2

3

4

5

6

7

8

 strFullPath = "C:test.xlsx"

Set xlApp = CreateObject("Excel.Application")

Set xlWorkbook = xlApp.Workbooks.Open(strFullPath)

Set xlSheet = xlWorkbook.Worksheets(1)

xlSheet.Cells(2,4).Value = "2,4"

xlWorkbook.Save

xlWorkbook.Close

xlApp.Quit