* Purpose: Delete all sheets of the workbook and create new one with the name passed */ĭEF INPUT PARAMETER ip_sheetName AS CHAR. IF ip_Last THEN lastSheet = chWorkBook:Sheets:getCount().ĬhWorkBook:Sheets:insertNewByName(ip_Label,lastSheet).ĬhWorkSheet = chWorkBook:Sheets:GetByName(ip_Label). * TRUE: We add the sheet at the end FALSE: We add the sheet at the begining */ */ĭEF INPUT PARAM ip_Label AS CHAR NO-UNDO.ĭEF INPUT PARAM ip_Last AS LOG NO-UNDO. * Purpose: Create new sheet in the workbook with the the name passed. I needed to change the Assign in save_book procedure to make it work from:ĬhrFileName = "file:///" ip_OutputPath ip_FileName ".sxc"ĬhrFileName = REPLACE(chrFileName, "\\", "\")ĬhrFileName = REPLACE(chrFileName, "/\", "\")ĬhrFileName = REPLACE(chrFileName, "\", "/").ĬhrFileName = "file:///" ip_OutputPath ip_FileName ".odt" I've tested this Include on Progress 10.2B and OOO 3.2.1 and it works fine!
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |