Мне нужно открыть Excel-файл, добавить формуляр в lastRow + 1 в столбце «G» и затем сохранить его снова. Я попробовал:
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 char 3, код 800A03EC» - которая не очень помогает понять, что может быть не так.
Есть идеи, как заставить это работать в VBS с Excel 2013?