It creates a book with 3 sheets (Main, Other1 and Other2) and fill one cell in Other1 and other cell in Other2. * Name for the first sheet */ĬhWorkSheet = chWorkBook:Sheets:GetByIndex(0).ĭO WHILE (chWorkBook:Sheets:getCount() > 1):ĬhWorkBook:Sheets:removeByName(chWorkSheet:getName() ). * 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 kommentar(er)
