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

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 /> 返回 (真)