From b8a23ba5a216135b758c2370429d1686c3060ab5 Mon Sep 17 00:00:00 2001
From: csh <caoshenghui@tinysoft.com.cn>
Date: Wed, 22 Feb 2023 18:00:29 +0800
Subject: [PATCH] v1.1.9-patch1

---
 funcext/TSOffice/worksheet/xlsxWorkBook.tsf | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/funcext/TSOffice/worksheet/xlsxWorkBook.tsf b/funcext/TSOffice/worksheet/xlsxWorkBook.tsf
index 333145c..87f9570 100644
--- a/funcext/TSOffice/worksheet/xlsxWorkBook.tsf
+++ b/funcext/TSOffice/worksheet/xlsxWorkBook.tsf
@@ -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;