打开Excel文件，在最后一行添加公式，保存Excel文件

Question

我需要打开一个Excel文件，将公式添加到col“ G”中的lastRow + 1中，然后再次保存。我尝试过：

Dim fso, Workbook, Sheet, lastRow, file

file="MyFile.xls"
Set fso = CreateObject("Scripting.FileSystemObject")
Set EXCEL = CreateObject("Excel.Application")
Set Workbook = EXCEL.Workbooks.Open(file)
Set Sheet = EXCEL.Application.ActiveSheet
lastRow = Sheet.Cells(Sheet.Rows.Count, 7).End(xlUp).Row -> "Unknown Runtime-error"
Range("G" + CStr(lastRow + 1)).Select
ActiveCell.Formula = "=SUM(G2:G" + CStr(lastRow) + ")"
Selection.Font.Bold = True      

Workbook.SaveAs file, "56"
Workbook.close

EXCEL.quit

设置公式的代码在VBA-Excel-Macro内部非常有效，但在使用VBS时根本无法实现：我只是在第8行3中收到“未知的运行时错误，代码800A03EC”-不会确实可以帮助您找出可能出问题的地方。

有什么想法如何在Excel 2013中的VBS中实现这项功能？