高级表格导出Excel,LibxlW,支持Unicode - 精易论坛

子程序名	返回值类型	公开	备注
高级表格导出Excel_W版	逻辑型
参数名	类型	参考	可空	数组	备注
高级表格	高级表格
保存路径W	字节集

变量名	类型	静态	数组	备注
WBook	LibxlW_Book
WSheet	LibxlW_Sheet
WFormat	LibxlW_Format
col	整数型
row	整数型
高级表格列类型	整数型
wText	字节集
aText	文本型

如果 (WBook.创建_XLSX ())

返回 (假)
WBook.注册 (, )
WSheet ＝ WBook.表格_添加 (LibxlW_A2W (“Sheet1”, , , ), )

变量循环首 (0, 高级表格.列数－ 1, 1, col)

高级表格列类型＝高级表格.取列类型 (col)

变量循环首 (0, 高级表格.行数－ 1, 1, row)

调试输出 (row, col)

判断 (高级表格列类型＝ #表格常量 .宽文本型)

wText ＝高级表格.取宽文本数据 (row, col)

如果 (wText ＝ { })

WSheet.单元格_置值_文本和格式 (row, col, wText, )

aText ＝到文本 (高级表格.取数据 (row, col))

如果 (aText ＝ “”)

WSheet.单元格_置值_文本和格式 (row, col, LibxlW_A2W (aText, , , ), )

WFormat ＝ WSheet.单元格_取格式_类 (row, col)

WFormat.置_边框 ( #Borderstyle_Thin )

变量循环尾 ()

如果 (WBook.保存 (保存路径W))

返回 (真)

返回 (假)

i支持库列表	支持库注释
eGrid	高级表格支持库
spec	特殊功能支持库

.版本 2<br />
.支持库 eGrid<br />
.支持库 spec<br />
<br />
.子程序 高级表格导出Excel_W版, 逻辑型, 公开<br />
.参数 高级表格, 高级表格<br />
.参数 保存路径W, 字节集<br />
.局部变量 WBook, LibxlW_Book<br />
.局部变量 WSheet, LibxlW_Sheet<br />
.局部变量 WFormat, LibxlW_Format<br />
.局部变量 col, 整数型<br />
.局部变量 row, 整数型<br />
.局部变量 高级表格列类型, 整数型<br />
.局部变量 wText, 字节集<br />
.局部变量 aText, 文本型<br />
<br />
.如果 (WBook.创建_XLSX ())<br />
<br />
.否则<br />
    返回 (假)<br />
.如果结束<br />
WBook.注册 (, )<br />
WSheet ＝ WBook.表格_添加 (LibxlW_A2W (“Sheet1”, , , ), )<br />
<br />
<br />
.变量循环首 (0, 高级表格.列数 － 1, 1, col)<br />
    高级表格列类型 ＝ 高级表格.取列类型 (col)<br />
    .变量循环首 (0, 高级表格.行数 － 1, 1, row)<br />
<br />
        调试输出 (row, col)<br />
<br />
        .判断开始 (高级表格列类型 ＝ #表格常量.宽文本型)<br />
            wText ＝ 高级表格.取宽文本数据 (row, col)<br />
            .如果 (wText ＝ {  })<br />
<br />
            .否则<br />
                WSheet.单元格_置值_文本和格式 (row, col, wText, )<br />
            .如果结束<br />
<br />
        .默认<br />
            aText ＝ 到文本 (高级表格.取数据 (row, col))<br />
            .如果 (aText ＝ “”)<br />
<br />
            .否则<br />
                WSheet.单元格_置值_文本和格式 (row, col, LibxlW_A2W (aText, , , ), )<br />
            .如果结束<br />
<br />
        .判断结束<br />
        WFormat ＝ WSheet.单元格_取格式_类 (row, col)<br />
        WFormat.置_边框 (#Borderstyle_Thin)<br />
    .变量循环尾 ()<br />
.变量循环尾 ()<br />
.如果 (WBook.保存 (保存路径W))<br />
    返回 (真)<br />
.否则<br />
    返回 (假)