WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

OLE with Excel
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Add Worksheet


title = "Excel Files"
path = DirScript()
mask = "XLS Files (*.xls)|*.xls"
xls = AskFilename(title, path, mask, "", 1)

; Create Excel Object
objXL = ObjectCreate("Excel.Application")
objXL.Visible = @TRUE
objXL.DisplayAlerts = @FALSE

; Open XLS file
objWorkbooks = objXL.Workbooks
objWorkbooks.Open(XLS)

; Activate a specific worksheet - by name
wrkshtname = AskLine( "Activate Worksheet", "Please enter the worksheet name", "Sheet2" )
objWorkSheet = objXL.Workbooks(1).Worksheets(wrkshtname)
objWorkSheet.Activate

;**** OR ****

;; Activate a specific worksheet - by number
;wrkshtnum = AskLine( "Activate Worksheet", "Please enter the worksheet number", "1" )
;wrkshtnum = ObjectType( "UI4", wrkshtnum ) ;Force string to 4-byte unsigned integer.
;objWorkSheet = objXL.Workbooks(1).Worksheets(wrkshtnum)
;objWorkSheet.Activate

; Create a worksheet, when it doesn't exist
before = objXL.Workbooks(1).Worksheets.count
objXL.Worksheets.Add

; Save and quit Excel.
;objXL.Save
;objXL.Quit

; Close Object handles
objWorkSheet = 0
objWorkbooks = 0
objXL = 0

Article ID:   W18100
Filename:   Add Worksheet.txt
File Created: 2008:11:25:12:05:26
Last Updated: 2008:11:25:12:05:26