关于易导出到表格 时如何写出表名？

wh1234567

https://bbs.125.la/thread-14850611-7-1.html
这是原帖，经过老师指点以及帮忙写完了，本人深表感激，现在想在原来基础上增加2个参数：工作表表名、工作表标签颜色，
如果“工作表表名”的参数为空则默认为标题，如果标题也为空则自动为文件名，如何实现？
类似就是表格左下角位置显示的名称

wh1234567

  

.版本 2.支持库 iext

子程序名	返回值类型	公开	备 注
超级列表框导出xls	逻辑型		只适用于报表列表框
参数名	类 型	参考	可空	数组	备 注
保存文件	文本型				保存路径
列表框	超级列表框				超级列表框对象
是否保存表头	逻辑型				为真保存，为假不保存
报表标题	文本型				为空无标题，
报表字体	文本型				默认"宋体"
报表字体尺寸	文本型				默认"30"

变量名	类 型	静态	数组	备 注
局_文件号	整数型
列数	整数型
表项数	整数型
i	整数型
j	整数型
p	整数型

局_文件号 ＝ 打开文件 (保存文件, 4, 1)
表项数 ＝ 列表框.取表项数 ()
列数 ＝ 列表框.取列数 ()
移到文件首 (局_文件号)
如果真 (报表标题 ≠ “”)
如果真 (是否为空 (报表字体))
报表字体 ＝ “宋体”
如果真 (是否为空 (报表字体尺寸))
报表字体尺寸 ＝ “30”
写文本行 (局_文件号, #常量3 )
写文本行 (局_文件号, “  <tr>”)
写文本行 (局_文件号, “<th  colspan='” ＋ 到文本 (列数) ＋ “' style='font-family:” ＋ 报表字体 ＋ “;font-size:” ＋ 报表字体尺寸 ＋ “px;'>” ＋ 报表标题 ＋ “</th>”)
写文本行 (局_文件号, “  </tr>”)
写文本行 (局_文件号, #常量2 )
写文本行 (局_文件号, #常量1 )
如果真 (是否保存表头 ＝ 真)
写文本行 (局_文件号, “  <tr>”)
计次循环首 (列数, p)
写文本行 (局_文件号, “    <th>” ＋ 列表框.取列标题 (p － 1) ＋ “</th>”)
计次循环尾 ()
写文本行 (局_文件号, “  </tr>”)
计次循环首 (表项数, i)
写文本行 (局_文件号, “  <tr>”)
计次循环首 (列数, j)
写文本行 (局_文件号, “    <td>” ＋ 列表框.取标题 (i － 1, j － 1) ＋ “</td>”)
计次循环尾 ()
写文本行 (局_文件号, “  </tr>”)
计次循环尾 ()
写文本行 (局_文件号, #常量2 )
关闭文件 (局_文件号)
返回 (真)

.版本 2.支持库 iext<br /> <br /> .子程序 超级列表框导出xls, 逻辑型, 公开, 只适用于报表列表框<br /> .参数 保存文件, 文本型, , 保存路径<br /> .参数 列表框, 超级列表框, , 超级列表框对象<br /> .参数 是否保存表头, 逻辑型, , 为真保存，为假不保存<br /> .参数 报表标题, 文本型, 可空, 为空无标题，<br /> .参数 报表字体, 文本型, 可空, 默认"宋体"<br /> .参数 报表字体尺寸, 文本型, 可空, 默认"30"<br /> .局部变量 局_文件号, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 表项数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 p, 整数型<br /> <br /> 局_文件号 ＝ 打开文件 (保存文件, 4, 1)<br /> 表项数 ＝ 列表框.取表项数 ()<br /> 列数 ＝ 列表框.取列数 ()<br /> 移到文件首 (局_文件号)<br /> .如果真 (报表标题 ≠ “”)<br />     .如果真 (是否为空 (报表字体))<br />         报表字体 ＝ “宋体”<br />     .如果真结束<br />     .如果真 (是否为空 (报表字体尺寸))<br />         报表字体尺寸 ＝ “30”<br />     .如果真结束<br />     写文本行 (局_文件号, #常量3)<br />     写文本行 (局_文件号, “  <tr>”)<br />     写文本行 (局_文件号, “<th  colspan='” ＋ 到文本 (列数) ＋ “' style='font-family:” ＋ 报表字体 ＋ “;font-size:” ＋ 报表字体尺寸 ＋ “px;'>” ＋ 报表标题 ＋ “</th>”)<br />     写文本行 (局_文件号, “  </tr>”)<br />     写文本行 (局_文件号, #常量2)<br /> .如果真结束<br /> 写文本行 (局_文件号, #常量1)<br /> .如果真 (是否保存表头 ＝ 真)<br />     写文本行 (局_文件号, “  <tr>”)<br />     .计次循环首 (列数, p)<br />         写文本行 (局_文件号, “    <th>” ＋ 列表框.取列标题 (p － 1) ＋ “</th>”)<br />     .计次循环尾 ()<br />     写文本行 (局_文件号, “  </tr>”)<br /> .如果真结束<br /> .计次循环首 (表项数, i)<br />     写文本行 (局_文件号, “  <tr>”)<br />     .计次循环首 (列数, j)<br />         写文本行 (局_文件号, “    <td>” ＋ 列表框.取标题 (i － 1, j － 1) ＋ “</td>”)<br />     .计次循环尾 ()<br />     写文本行 (局_文件号, “  </tr>”)<br /> .计次循环尾 ()<br /> 写文本行 (局_文件号, #常量2)<br /> 关闭文件 (局_文件号)<br /> 返回 (真)

samll88

wh1234567 发表于 2025-3-16 20:57
上面图片只是想表达表名是在什么位置，一个表格文件一般只需要一个表名吧？我的主要意思是如何在导出时带 ...

一般都会自己加的,是不是没导出0行

samll88

备用文本 ＝ “姓名,年龄,体重”
先这样写一行表格名称

导出的时候忽略0行,

最后
备用文本+没有表名的表格


补充内容 (2025-3-16 19:57):
不过我记得可以导出来吧,计次循序的时候要i-1

补充内容 (2025-3-16 19:58):
当我没说,理解错了

wh1234567

samll88 发表于 2025-3-16 19:51
备用文本 ＝ “姓名,年龄,体重”
先这样写一行表格名称

上面图片只是想表达表名是在什么位置，一个表格文件一般只需要一个表名吧？我的主要意思是如何在导出时带上自定义表名

wh1234567

samll88 发表于 2025-3-16 21:00
一般都会自己加的,是不是没导出0行

默认的应该是文件名吧，我说的是自定义名

samll88

wh1234567 发表于 2025-3-16 21:01
默认的应该是文件名吧，我说的是自定义名

那就不知道了,没试过,可能不具备这功能

wh1234567

samll88 发表于 2025-3-16 21:03
那就不知道了,没试过,可能不具备这功能

那其他模块是怎么实现自定义表名的？

samll88

wh1234567 发表于 2025-3-16 21:06
那其他模块是怎么实现自定义表名的？

https://space.bilibili.com/2137445087/channel/collectiondetail?sid=3235360
这里有详细教程,你可以研究下

wh1234567

这个问题，，，，，

wh1234567

  

子程序名	返回值类型	公开	备 注
超级列表框导出xls	逻辑型		只适用于报表列表框
参数名	类 型	参考	可空	数组	备 注
保存文件	文本型				保存路径
列表框	超级列表框				超级列表框对象
是否保存表头	逻辑型				为真保存，为假不保存
报表标题	文本型				为空无标题，
报表字体	文本型				默认"宋体"
报表字体尺寸	文本型				默认"30"

变量名	类 型	静态	数组	备 注
局_文件号	整数型
列数	整数型
表项数	整数型
i	整数型
j	整数型
p	整数型

局_文件号 ＝ 打开文件 (保存文件, 4, 1)
表项数 ＝ 列表框.取表项数 ()
列数 ＝ 列表框.取列数 ()
移到文件首 (局_文件号)
如果真 (报表标题 ≠ “”)
如果真 (是否为空 (报表字体))
报表字体 ＝ “宋体”
如果真 (是否为空 (报表字体尺寸))
报表字体尺寸 ＝ “30”
写文本行 (局_文件号, #常量3 )
写文本行 (局_文件号, “  ”)
写文本行 (局_文件号, “” ＋ 报表标题 ＋ “”)
写文本行 (局_文件号, “  ”)
写文本行 (局_文件号, #常量2 )
写文本行 (局_文件号, #常量1 )
如果真 (是否保存表头 ＝ 真)
写文本行 (局_文件号, “  ”)
计次循环首 (列数, p)
写文本行 (局_文件号, “    ” ＋ 列表框.取列标题 (p － 1) ＋ “”)
计次循环尾 ()
写文本行 (局_文件号, “  ”)
计次循环首 (表项数, i)
写文本行 (局_文件号, “  ”)
计次循环首 (列数, j)
写文本行 (局_文件号, “    ” ＋ 列表框.取标题 (i － 1, j － 1) ＋ “”)
计次循环尾 ()
写文本行 (局_文件号, “  ”)
计次循环尾 ()
写文本行 (局_文件号, #常量2 )
关闭文件 (局_文件号)
返回 (真)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 超级列表框导出xls, 逻辑型, 公开, 只适用于报表列表框<br /> .参数 保存文件, 文本型, , 保存路径<br /> .参数 列表框, 超级列表框, , 超级列表框对象<br /> .参数 是否保存表头, 逻辑型, , 为真保存，为假不保存<br /> .参数 报表标题, 文本型, 可空, 为空无标题，<br /> .参数 报表字体, 文本型, 可空, 默认"宋体"<br /> .参数 报表字体尺寸, 文本型, 可空, 默认"30"<br /> .局部变量 局_文件号, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 表项数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 p, 整数型<br /> <br /> 局_文件号 ＝ 打开文件 (保存文件, 4, 1)<br /> 表项数 ＝ 列表框.取表项数 ()<br /> 列数 ＝ 列表框.取列数 ()<br /> 移到文件首 (局_文件号)<br /> .如果真 (报表标题 ≠ “”)<br />     .如果真 (是否为空 (报表字体))<br />         报表字体 ＝ “宋体”<br />     .如果真结束<br />     .如果真 (是否为空 (报表字体尺寸))<br />         报表字体尺寸 ＝ “30”<br />     .如果真结束<br />     写文本行 (局_文件号, #常量3)<br />     写文本行 (局_文件号, “  ”)<br />     写文本行 (局_文件号, “” ＋ 报表标题 ＋ “”)<br />     写文本行 (局_文件号, “  ”)<br />     写文本行 (局_文件号, #常量2)<br /> .如果真结束<br /> 写文本行 (局_文件号, #常量1)<br /> .如果真 (是否保存表头 ＝ 真)<br />     写文本行 (局_文件号, “  ”)<br />     .计次循环首 (列数, p)<br />         写文本行 (局_文件号, “    ” ＋ 列表框.取列标题 (p － 1) ＋ “”)<br />     .计次循环尾 ()<br />     写文本行 (局_文件号, “  ”)<br /> .如果真结束<br /> .计次循环首 (表项数, i)<br />     写文本行 (局_文件号, “  ”)<br />     .计次循环首 (列数, j)<br />         写文本行 (局_文件号, “    ” ＋ 列表框.取标题 (i － 1, j － 1) ＋ “”)<br />     .计次循环尾 ()<br />     写文本行 (局_文件号, “  ”)<br /> .计次循环尾 ()<br /> 写文本行 (局_文件号, #常量2)<br /> 关闭文件 (局_文件号)<br /> 返回 (真)

如何在这个代码里增加自定义“工作表表名、工作表标签颜色”这2个功能？