From 08f046ed02d61c6a5b49b4ad23a2c7aa57f5a8c6 Mon Sep 17 00:00:00 2001 From: csh Date: Fri, 24 Mar 2023 10:15:35 +0800 Subject: [PATCH] v1.2.7-patch3 --- funcext/TSOffice/worksheet/xlsxWorkBook.tsf | 30 ++++++++++----------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/funcext/TSOffice/worksheet/xlsxWorkBook.tsf b/funcext/TSOffice/worksheet/xlsxWorkBook.tsf index b2d4eb6..03846af 100644 --- a/funcext/TSOffice/worksheet/xlsxWorkBook.tsf +++ b/funcext/TSOffice/worksheet/xlsxWorkBook.tsf @@ -1057,21 +1057,21 @@ Type xlsxWorkBook = Class begin name := sheetNames_[i]['name']; xml_file := GetXmlFileObj(sheetNames_[i]['file']); + work_node := xml_file.FirstChildElement('worksheet'); + sheet_node := work_node.FirstChildElement('sheetViews'); + if not ifObj(sheet_node) then + begin + prev_node := class(TSXml).GetWorkSheetPrevNode(work_node, 'sheetViews'); + sheet_node := work_node.InsertAfterChild(prev_node, 'element', 'sheetViews'); + end + node := sheet_node.FirstChildElement('sheetView'); + if not ifObj(node) then + begin + node := sheet_node.InsertFirstChild('element', 'sheetView'); + node.SetAttribute('workbookViewId', 0); + end if name = sheet then Begin - work_node := xml_file.FirstChildElement('worksheet'); - sheet_node := work_node.FirstChildElement('sheetViews'); - if not ifObj(sheet_node) then - begin - prev_node := class(TSXml).GetWorkSheetPrevNode(work_node, 'sheetViews'); - sheet_node := work_node.InsertAfterChild(prev_node, 'element', 'sheetViews'); - end - node := sheet_node.FirstChildElement('sheetView'); - if not ifObj(node) then - begin - node := sheet_node.InsertFirstChild('element', 'sheetView'); - node.SetAttribute('workbookViewId', 0); - end node.SetAttribute('tabselected', 1); workbook := GetXmlFileObj('xl/workbook.xml'); book_view_node := workbook.FirstChildElement('workbook').FirstChildElement('bookViews').FirstChildElement('workbookView'); @@ -1079,8 +1079,8 @@ Type xlsxWorkBook = Class End else begin - sheet_node := xml_file.FirstChildElement('worksheet').FirstChildElement('sheetViews').FirstChildElement('sheetView'); - sheet_node.SetAttribute('tabselected', 0); + node := xml_file.FirstChildElement('worksheet').FirstChildElement('sheetViews').FirstChildElement('sheetView'); + node.SetAttribute('tabselected', 0); end end End