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

修复SetSheetName返回报错问题

This commit is contained in:
csh 2022-10-28 17:18:19 +08:00
parent 2674ab8eb3
commit acea813ed1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -253,10 +253,10 @@ Type xlsxWorkBook = Class
Function SetSheetName(sourceName, destName); Function SetSheetName(sourceName, destName);
Begin Begin
ind := sheetIndexMap_[ LowerCase(destName) ]; ind := sheetIndexMap_[ LowerCase(destName) ];
if ifint(ind) then return array(-3, sheet2 + ' is already exist.'); if ifint(ind) then return array(-3, destName + ' is already exist.');
ind := sheetIndexMap_[ LowerCase(sourceName) ]; ind := sheetIndexMap_[ LowerCase(sourceName) ];
if not ifint(ind) then return array(-4, sheet1 + ' is not exist.'); if not ifint(ind) then return array(-4, sourceName + ' is not exist.');
//设置 xl/workbook.xml //设置 xl/workbook.xml
workbook := GetXmlFileObj('xl/workbook.xml'); workbook := GetXmlFileObj('xl/workbook.xml');