Kim
05-04-2003, 10:08 AM
Hi,
I copied the following code from Microsoft and pasted it into a "Run Script" function in "Visual Build Professional" v5.0. When testing the script, Error at Line 4, Column 1 occur.
What am I doing wrong?
------CODE--------------------------------------------------------------------
' VBScript source code
Dim ExcelSheet
Set ExcelSheet = CreateObject("Excel.Sheet")
' Make Excel visible through the Application object.
ExcelSheet.Application.Visible = True
' Place some text in the first cell of the sheet.
ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1"
' Save the sheet.
ExcelSheet.SaveAs "C:\DOCS\TEST.XLS"
' Close Excel with the Quit method on the Application object.
ExcelSheet.Application.Quit
' Release the object variable.
Set ExcelSheet = Nothing
I copied the following code from Microsoft and pasted it into a "Run Script" function in "Visual Build Professional" v5.0. When testing the script, Error at Line 4, Column 1 occur.
What am I doing wrong?
------CODE--------------------------------------------------------------------
' VBScript source code
Dim ExcelSheet
Set ExcelSheet = CreateObject("Excel.Sheet")
' Make Excel visible through the Application object.
ExcelSheet.Application.Visible = True
' Place some text in the first cell of the sheet.
ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1"
' Save the sheet.
ExcelSheet.SaveAs "C:\DOCS\TEST.XLS"
' Close Excel with the Quit method on the Application object.
ExcelSheet.Application.Quit
' Release the object variable.
Set ExcelSheet = Nothing