超列_导出表格

紫苏7798

下午发现了个帖子 超列导出excel模板生成xls文件问题_精易论坛 (125.la),找到个模块,寻找最新的小虫子的excel模块_精易论坛 (125.la)    但论坛没看到使用例子就自己研究写了一下,目前功能正常,当摸索学习了





补充内容 (2024-7-16 02:02):
37楼  自用优化版

紫苏7798

把这个删掉或者注释掉,之前研究命令忘记删了,

紫苏7798

  

子程序名	返回值类型	公开	备 注
超列_到表格	逻辑型		name.xlsx 返回是否成功保存
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框
Excel路径	文本型				输入name 或 name.xlsx ,创建 或 打开 name.xlsx ,自动添加扩展名
工作表名	文本型				同名替换区域内容,别名则新建,空为新建当前时间表名
不带表头	逻辑型				默认假 带表头
单元格式	文本型				常规【G/通用格式】2位小数【0.00_】文本【@】日期【"yyyy""年""m""月"";@"】百分比【0.00%】中文大写数字【[DBNum2][$-804]G/通用格式】。注明：可参考【取单元格格式】方法取出的值。

变量名	类 型	静态	数组	备 注
局簿组	文本型		0
sy	整数型
a	整数型
b	整数型
局存在	逻辑型
表格	EXCEL程序对象
w	单元格对象
局区域	文本型

如果真 (取文本右边 (Excel路径, 5) ≠ “.xlsx”)
Excel路径 ＝ Excel路径 ＋ “.xlsx”

局存在 ＝ 文件是否存在 (Excel路径)
表格.创建 ()
w.置程序 (表格)
判断 (局存在)
表格.打开文件 (Excel路径, , 假, , )
表格.新建工作簿 ()

如果真 (是否为空 (工作表名))
工作表名 ＝ “A” ＋ 到文本 (表格.取工作表数 ())

表格.新建工作表 (工作表名)
sy ＝ 表格.取工作表索引 (工作表名)
a ＝ 超级列表框.取表项数 ()
b ＝ 超级列表框.取列数 ()
局区域 ＝ “A1:” ＋ EXCEL_数字转换列号 (b) ＋ 到文本 (a ＋ 1)
如果真 (取反 (是否为空 (单元格式)))
w.格式_置单元格格式 (sy, 局区域, 单元格式)

计次循环首 (a, a)
计次循环首 (b, b)
w.置文本值壹 (sy, a, b, 超级列表框.取标题 (a － 1, b － 1))
计次循环尾 ()
计次循环尾 ()
如果真 (取反 (不带表头))
w.插入一行 (sy, “A1”)
计次循环首 (超级列表框.取列数 (), b)
w.置文本值壹 (sy, 1, b, 超级列表框.取列标题 (b － 1))
计次循环尾 ()

' 局区域 ＝ w.取已用区域地址 (sy)
w.置自动列宽 (sy, 局区域)
表格.取工作簿数组 (局簿组)
如果真 (取数组成员数 (局簿组) ＞ 0)
判断 (局存在)
局存在 ＝ 表格.保存 (局簿组 [1])
局存在 ＝ 表格.另存为 (局簿组 [1], Excel路径, 51, , )


表格.退出程序 ()
返回 (局存在)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 超列_到表格, 逻辑型, 公开, name.xlsx 返回是否成功保存<br /> .参数 超级列表框, 超级列表框<br /> .参数 Excel路径, 文本型, , 输入name 或 name.xlsx ,创建 或 打开 name.xlsx ,自动添加扩展名<br /> .参数 工作表名, 文本型, 可空, 同名替换区域内容,别名则新建,空为新建当前时间表名<br /> .参数 不带表头, 逻辑型, 可空, 默认假 带表头<br /> .参数 单元格式, 文本型, 可空, 常规【G/通用格式】2位小数【0.00_】文本【@】日期【"yyyy""年""m""月"";@"】百分比【0.00%】中文大写数字【[DBNum2][$-804]G/通用格式】。注明：可参考【取单元格格式】方法取出的值。<br /> .局部变量 局簿组, 文本型, , "0"<br /> .局部变量 sy, 整数型<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 局存在, 逻辑型<br /> .局部变量 表格, EXCEL程序对象<br /> .局部变量 w, 单元格对象<br /> .局部变量 局区域, 文本型<br /> <br /> .如果真 (取文本右边 (Excel路径, 5) ≠ “.xlsx”)<br />     Excel路径 ＝ Excel路径 ＋ “.xlsx”<br /> .如果真结束<br /> <br /> 局存在 ＝ 文件是否存在 (Excel路径)<br /> 表格.创建 ()<br /> w.置程序 (表格)<br /> .判断开始 (局存在)<br />     表格.打开文件 (Excel路径, , 假, , )<br /> .默认<br />     表格.新建工作簿 ()<br /> .判断结束<br /> <br /> .如果真 (是否为空 (工作表名))<br />     工作表名 ＝ “A” ＋ 到文本 (表格.取工作表数 ())<br /> .如果真结束<br /> <br /> <br /> 表格.新建工作表 (工作表名)<br /> sy ＝ 表格.取工作表索引 (工作表名)<br /> a ＝ 超级列表框.取表项数 ()<br /> b ＝ 超级列表框.取列数 ()<br /> <br /> 局区域 ＝ “A1:” ＋ EXCEL_数字转换列号 (b) ＋ 到文本 (a ＋ 1)<br /> <br /> .如果真 (取反 (是否为空 (单元格式)))<br />     w.格式_置单元格格式 (sy, 局区域, 单元格式)<br /> .如果真结束<br /> <br /> .计次循环首 (a, a)<br />     .计次循环首 (b, b)<br />         w.置文本值壹 (sy, a, b, 超级列表框.取标题 (a － 1, b － 1))<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> .如果真 (取反 (不带表头))<br />     w.插入一行 (sy, “A1”)<br />     .计次循环首 (超级列表框.取列数 (), b)<br />         w.置文本值壹 (sy, 1, b, 超级列表框.取列标题 (b － 1))<br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> ' 局区域 ＝ w.取已用区域地址 (sy)<br /> <br /> w.置自动列宽 (sy, 局区域)<br /> 表格.取工作簿数组 (局簿组)<br /> <br /> .如果真 (取数组成员数 (局簿组) ＞ 0)<br />     .判断开始 (局存在)<br />         局存在 ＝ 表格.保存 (局簿组 [1])<br />     .默认<br />         局存在 ＝ 表格.另存为 (局簿组 [1], Excel路径, 51, , )<br />     .判断结束<br /> <br /> .如果真结束<br /> <br /> 表格.退出程序 ()<br /> 返回 (局存在)

少年已三十

学习学习

哭红眼吓死你

大佬模块有吗

木木大大

谢谢分享，牛逼·~~

dykj2022

        感谢分享，很给力！~

Loyal2014

谢谢分享

Loyal2014

谢谢分享

原始世界

谢谢分享，很不错

zhaode2888

谢谢分享！