I might be missing something, but this script will update a cell in an Open excel sheet with new data. I think the difference is GetObject vs CreateObject
REM On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If xlApp is Nothing Then
MsgBox "Excel not loaded [" & Err.Number & "] " & Err.Description
' MsgBox "App Loaded"
Dim wb_name, sheet_name, row, col, new_data
REM wb_name = WScript.Arguments.Item(0)
REM sheet_name = WScript.Arguments.Item(1)
REM row = Int(WScript.Arguments.Item(2))
REM col = Int(WScript.Arguments.Item(3))
REM new_data = WScript.Arguments.Item(4)
wb_name = "writetest.xlsx"
sheet_name = "Sheet1"
row = 3
col = 8
new_data = "some new data"
UpdateWorkbookCell xlApp, wb_name, sheet_name, row, col, new_data
Sub UpdateWorkbookCell(xlApp, wb_name, sheet_name, row, col, new_data)
For Each wb In xlApp.Workbooks
If wb_name = wb.Name Then
For Each sheet In wb.Sheets
If sheet_name = sheet.Name Then
sheet.Cells(row, col) = new_data
It's lacking a lot of error handling, but does update the already opened excel workbook/sheet/cell with the new value. The commented out WScript.Arguments bits were for testing from the command line but the script also ran inside of sCRT v9 just fine.