Automate Excel with VBScript

[Marcus Tettmar]

Contributed By: Marcus Tettmar [email protected]
Submitted On: 21/02/03

VBSTART
Sub ExcelExample
Dim xlApp
Dim xlBook
Dim xlSheet

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

xlApp.visible = True
'optionally make the sheet visible
'xlSheet.Application.Visible = True
xlSheet.Cells(1,1).Value = "This is the column A, row 1"
'etc
xlSheet.SaveAs "C:\files\mysheet.xls"
xlApp.Quit

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
VBEND
VBRun>ExcelExample

[doug4knfpu]

Contributed By: Marcus Tettmar [email protected]
Submitted On: 21/02/03

VBSTART
Sub ExcelExample
Dim xlApp
Dim xlBook
Dim xlSheet

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

xlApp.visible = True
'optionally make the sheet visible
'xlSheet.Application.Visible = True
xlSheet.Cells(1,1).Value = "This is the column A, row 1"
'etc
xlSheet.SaveAs "C:\files\mysheet.xls"
xlApp.Quit

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
VBEND
VBRun>ExcelExample

can you explain this a little better?

[Marcus Tettmar]

Well, microsoft might be the best people to explain it. Which bit do you want help with? The Excel COM object reference is here:
http://msdn.microsoft.com/en-us/library ... s.80).aspx

[doug4knfpu]

Thanks for the reply, I found my answer on microsoft.com