v1.6.9

funcext/TSOffice/TOfficeObj.tsf

@@ -1,4 +1,4 @@
-// Version 1.6.8
+// Version 1.6.9
 Function TOfficeObj(n);
 Begin
 	case lowercase(n) of

funcext/TSOffice/TSDocxFile.tsf

@@ -1,4 +1,4 @@
-// Version 1.6.8
+// Version 1.6.9
 Type TSDocxFile = Class
 	///Version: V1.0 2022-09-20
 	///适用于 Microsoft Word docx格式文件

funcext/TSOffice/TSXlsxFile.tsf

@@ -1,4 +1,4 @@
-// Version 1.6.8
+// Version 1.6.9
 Type TSXlsxFile = Class
 	///Version: V1.0 2022-08-08
 	///适用于 Microsoft Excel? 2007 及以上版本创建的电子表格文档。支持 XLSX / XLSM / XLTM / XLTX 等多种文档格式。
@@ -222,7 +222,7 @@ Type TSXlsxFile = Class
 		value := class(TSXml).CurCodePageToUtf8(val);
 		// 处理cell设定的样式
 		if not ifarray(opt) then opt := array();
-		workbook_.SetCellStyleOpt(sheet, axis, opt);
+		workbook_.SetCellStyleOpt(sheet_name, axis, opt);
 		SetCellType(sheet, axis, value, opt);
 		return workbook_.SetCellValue(sheet_name, axis, value, opt);
 	End;