Writing to Excel from .vbs script

[Samson]

Hi Again

Writing a script that will put some data into an excel document then display it on screen, however when the script runs it says "Object Required: Excel"...


... any ideas?

Dim ExcelSheet
ExcelSheet = CreateObject(Excel.Application)
Excelsheet.Application.Visible = True
ExcelSheet.Application.Cells(1,1) = "Username"
ExcelSheet.Application.Cells(1,2) = "Date"
ExcelSheet.Application.Cells(1,3) = "Time"
ExcelSheet.Application.Cells(1,4) = "Machine Name"
ExcelSheet.SaveAs "QuerybyUser" & qUserN & Replace(Date,"/","") & ".xls"
ExcelSheet.Application.Quit
Set ExcelSheet = Nothing

Thanks

[SYNACK]

You may need to declare the creation object as a method of wscript in your code first ie:

Dim objXL
Set objXL = WScript.CreateObject("Excel.Application")

objXL.Visible = TRUE

objXL.WorkBooks.Add

Automate Excel In Vbscript

edit:- Post2: combined from latter post

did you remember to put set in front of your application assignment?

Set ExcelSheet = WScript.CreateObject(Excel.Application)

[Samson]

No effect, still the "Object Required: Excel" error.... odd.

[Samson]

did you remember to put set in front of your application assignment?

Set ExcelSheet = WScript.CreateObject(Excel.Application)

I did

[SYNACK]

Obvious question but is excel installed on the machine that you are running the script on?

[Samson]

Obvious question but is excel installed on the machine that you are running the script on?

Indeed it is..

Actually..

The script is stored on the server, but I'm running it locally.... wouldn't make a difference would it?

[dan400007]

Running from a server location shouldn't make any difference, below is an example of opening excel:

dim objExcel, objWorkbook, objWorksheet, strCellValue

'Launch Excel
Set objExcel = CreateObject("Excel.Application")

'Set Excel to be visible
objExcel.Application.Visible = True

'Open a workbook
Set objWorkbook = objExcel.Workbooks.Open("C:\UCv2\userlistv2.xlsx")

'Select a worksheet
Set objWorksheet = objWorkbook.Worksheets(1)

'Get the value of cell A1
strCellValue = objExcel.Cells(1, 1).Value

'Put the value of strCellValue into cell A1
objWorksheet.Cells(1, 1).Value = strCellValue

'Save the workbook,
objWorkbook.Save

'Quit Excel
objExcel.Quit