tinysoft
/
TSOffice
5
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

v1.2.7-patch3

This commit is contained in:
csh 2023-03-24 10:15:35 +08:00
parent 35ef5fdbb4
commit 08f046ed02
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
funcext/TSOffice/worksheet/xlsxWorkBook.tsf
View File

@ -1057,21 +1057,21 @@ Type xlsxWorkBook = Class
begin begin
name := sheetNames_[i]['name']; name := sheetNames_[i]['name'];
xml_file := GetXmlFileObj(sheetNames_[i]['file']); 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 if name = sheet then
Begin 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); node.SetAttribute('tabselected', 1);
workbook := GetXmlFileObj('xl/workbook.xml'); workbook := GetXmlFileObj('xl/workbook.xml');
book_view_node := workbook.FirstChildElement('workbook').FirstChildElement('bookViews').FirstChildElement('workbookView'); book_view_node := workbook.FirstChildElement('workbook').FirstChildElement('bookViews').FirstChildElement('workbookView');
@ -1079,8 +1079,8 @@ Type xlsxWorkBook = Class
End End
else else
begin begin
sheet_node := xml_file.FirstChildElement('worksheet').FirstChildElement('sheetViews').FirstChildElement('sheetView'); node := xml_file.FirstChildElement('worksheet').FirstChildElement('sheetViews').FirstChildElement('sheetView');
sheet_node.SetAttribute('tabselected', 0); node.SetAttribute('tabselected', 0);
end end
end end
End End