filename = "c:\temp\test.xlsx" 'Parse command line arguments CmdLine = "" Set Args = WScript.Arguments For I = 0 to Args.Count - 1 if (I > 0) Then CmdLine = CmdLine & " " End if CmdLine = CmdLine & Args(I) Next Set Args = nothing Set xlApp = CreateObject("Excel.Application") set xlBook = xlApp.WorkBooks.Open(filename) set xlSht = xlApp.activesheet xlApp.DisplayAlerts = False 'write data into the spreadsheet xlSht.Cells(xlSht.UsedRange.Rows.Count+1, 1) = CmdLine xlBook.Save xlBook.Close SaveChanges=True xlApp.Quit