高级表格导出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 />     返回 (假)

用到的模块：LibXL 4.0.4 【Unicode版excel操作】【excel截图】
https://bbs.125.la/forum.php?mod=viewthread&tid=14755679
(出处: 精易论坛)

用到的支持库：高级表格支持库 3.0#4版 - 20200725
https://bbs.125.la/forum.php?mod=viewthread&tid=14602106
(出处: 精易论坛)

kantal

感谢分享，很给力！~

fangguisheng

学习学习啊啊十大

lphehe

都看不懂 头好大

pnf

感谢分享，好东西

Antsyks

66666666666666666666666666

nymanyim

感谢楼主的轮子，跑得真快，但是好像不支持创建unicode xls表吗，会提示命令丢失

xiaoSeven

大佬，从单元格中取出的内容带空格，还清楚不掉怎么回事

1300886755

感谢分享

515667395

多谢分享