v1.1.9-patch1

2023-02-22 18:00:29 +08:00
parent 6721a005ca
commit b8a23ba5a2
1 changed files with 1 additions and 1 deletions
@@ -336,7 +336,7 @@ Type xlsxWorkBook = Class
 		begin
 			if LowerCase(lpstr.GetText()) = LowerCase(sourceSheet) then
 			begin
-				if ifnil(pstr) then vector.InsertFirstChild('element', 'vt:lpstr');
+				if ifnil(pstr) then lpstr := vector.InsertFirstChild('element', 'vt:lpstr');
 				else lpstr := vector.InsertAfterChild(pstr, 'element', 'vt:lpstr');
 				lpstr.SetValue(destSheet);
 				break;