Hi All,
With PB12.5 here.
Would like to know if possible to add extra worksheet into excel, as it is default to 3 sheets now.
When I code to insert data into WorkSheets[4], it will prompts error "Error accessing external object property worksheet at line...."
So, would like to know how can I insert more worksheets as I need to add 3-4 more worksheets in the same excel.
Please advise.
Thank you in advance.
Below are my current code for your reference.
ole_excel = CREATE OLEObject
lole_excel.ConnectToNewObject( "excel.application" )
lole_excel.visible = false
lole_excel.workbooks.add()
// Insert graph image into excelsheet
lole_graph = lole_excel.Application.ActiveWorkBook.WorkSheets[1]
lole_graph.Name = 'Graph'
lole_graph.Shapes.addPicture(ls_path+'Graph.wmf', 0, -1, 0, 0, 320, 300)
// Insert Deficit data into excelsheet
lole_deficit = lole_excel.Application.ActiveWorkBook.WorkSheets[2]
lole_deficit.Name = 'Deficit List'
dw_2.SaveAsFormattedText(ls_path+'DeficitList.txt', EncodingANSI!, "~t", "", "~r~n", TRUE)
// Open in Excel
lole_BufferWorkBook = lole_excel.WorkBooks.Open(ls_path+'DeficitList.txt')
lole_BufferWorkBook.Worksheets(1).Cells.Select
lole_Excel.CutCopyMode = False
lole_BufferWorkBook.Worksheets(1).Cells.Copy
// Paste to sheet
lole_deficit.Paste
lole_deficit.Cells.EntireColumn.AutoFit
// clear from clipboard
lole_Excel.CutCopyMode = False
// Close
lole_BufferWorkBook.CLOSE(FALSE)
// Insert Completed Late data into excelsheet
lole_completedlate = lole_excel.Application.ActiveWorkBook.WorkSheets[3]
lole_completedlate.Name = 'Completed Late List'
dw_3.SaveAsFormattedText(ls_path+'Completedlate.txt', EncodingANSI!, "~t", "", "~r~n", TRUE)
// Open in Excel
lole_BufferWorkBook = lole_excel.WorkBooks.Open(ls_path+'Completedlate.txt')
lole_BufferWorkBook.Worksheets(1).Cells.Select
lole_Excel.CutCopyMode = False
lole_BufferWorkBook.Worksheets(1).Cells.Copy
// Paste to sheet
lole_completedlate.Paste
lole_completedlate.Cells.EntireColumn.AutoFit
// clear from clipboard
lole_Excel.CutCopyMode = False
// Close
lole_BufferWorkBook.CLOSE(FALSE)
/////////////!!! - Code for WorkSheets[4]
// Insert Planned data into excelsheet
lole_planned = lole_excel.Application.ActiveWorkBook.WorkSheets[4]
lole_planned.Name = 'Planned List'
dw_4.SaveAsFormattedText(ls_path+'PlannedList.txt', EncodingANSI!, "~t", "", "~r~n", TRUE)
// Open in Excel
lole_BufferWorkBook = lole_excel.WorkBooks.Open(ls_path+'PlannedList.txt')
lole_BufferWorkBook.Worksheets(1).Cells.Select
lole_Excel.CutCopyMode = False
lole_BufferWorkBook.Worksheets(1).Cells.Copy
// Paste to sheet
lole_planned.Paste
lole_planned.Cells.EntireColumn.AutoFit
// clear from clipboard
lole_Excel.CutCopyMode = False
// Close
lole_BufferWorkBook.CLOSE(FALSE)
//////////////
// Delete temporary files
//FileDelete (ls_path + "Graph.wmf" )
FileDelete (ls_path + "DeficitList.txt" )
FileDelete (ls_path + "Completedlate.txt" )
FileDelete (ls_path + "PlannedList.txt" )
BR,
Yow