This commit is contained in:
csh 2024-05-06 15:12:37 +08:00
parent c3432d1812
commit 5469ca318d
4 changed files with 10 additions and 4 deletions

View File

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

View File

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

View File

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

View File

@ -1,5 +1,11 @@
# 更新日志 # 更新日志
## 2023-5-6
### excel
1. 修复单元格继承列样式失败问题
## 2023-4-12 ## 2023-4-12
### V1.6.8 ### V1.6.8