This commit is contained in:
csh
2023-02-01 15:18:46 +08:00
parent 2037e8c2fe
commit 6cbbc3b98c
8 changed files with 69 additions and 38 deletions
+8
View File
@@ -517,6 +517,14 @@ protect.SelectUnLockedCells := true;
excel.ProtectSheet(sheetName2, protect);
println("[success] ProtectSheet");
// SetDefaultFont
font := tofficeobj('tfont');
font.name := '黑体';
font.size := 13;
font.themecolor := 1;
excel.SetDefaultFont(font);
println("[success] SetDefaultFont");
[err, errmsg] := excel.saveas("", "d:\\temp\\test.xlsx");
println("saveas : {}", err);