Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
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