超列导出excel能自动带标题吗？

xf702

请问一下哪种导出模块可以实现这种带标题（如：XX测试记录）的？

xf702

tw1 发表于 2023-11-14 22:11
来源于论坛，多用搜索，就可以找到相关的源码，稍加修改就能实现自己要的功能。 ...

好的，我再研究研究，表格自动列宽、导出格式可以为xlxs。。。

tw1

xf702 发表于 2023-11-14 22:04
厉害了！！！

来源于论坛，多用搜索，就可以找到相关的源码，稍加修改就能实现自己要的功能。

xf702

tw1 发表于 2023-11-14 21:45
[e=0].版本 2
.支持库 iext
.支持库 eExcel2000

厉害了！！！

tw1

xf702 发表于 2023-11-14 20:00
完成了第一步，我还想在表格里面加数据。。超级列表框导出后自动带上标题栏。超列数据写到计次循环里，该 ...

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
i	整数型

超级列表框1.插入列 (, “序号”, 100, , , )
超级列表框1.插入列 (, “名称”, 100, , , )
超级列表框1.插入列 (, “问题记录”, 100, , , )
超级列表框1.插入列 (, “整改措施”, 100, , , )

子程序名	返回值类型	公开	备 注
_导出_被单击

变量名	类 型	静态	数组	备 注
表头	文本型		0
i	整数型
ii	整数型
保存路径	文本型

Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.激活工作簿 ()
Excel工作簿1.首单元格 ＝ “A1”
Excel工作簿1.尾单元格 ＝ “D1”
Excel工作簿1.合并 ()
Excel工作簿1.内容 ＝ “xxx测试记录”
Excel工作簿1.行高 ＝ 30
Excel工作簿1.字体名 ＝ “黑体”
Excel工作簿1.字体加粗 ＝ 真
Excel工作簿1.水平对齐方式 ＝ 3
Excel工作簿1.表格序号 ＝ 1
表头 ＝ { “序号”, “名称”, “问题记录”, “整改措施” }
计次循环首 (取数组成员数 (表头), i)
Excel工作簿1.首单元格 ＝ 字符 (97 ＋ i － 1) ＋ 到文本 (2)
Excel工作簿1.尾单元格 ＝ 字符 (97 ＋ i － 1) ＋ 到文本 (2)
Excel工作簿1.内容 ＝ 表头 [i]
单元格式设置 ()
计次循环尾 ()
计次循环首 (超级列表框1.取表项数 (), ii)
处理事件 ()
计次循环首 (取数组成员数 (表头), i)
Excel工作簿1.首单元格 ＝ 字符 (97 ＋ i － 1) ＋ 到文本 (ii ＋ 2)
Excel工作簿1.尾单元格 ＝ 字符 (97 ＋ i － 1) ＋ 到文本 (ii ＋ 2)
Excel工作簿1.内容 ＝ 超级列表框1.取标题 (ii － 1, i － 1)
单元格式设置 ()
计次循环尾 ()
计次循环尾 ()
保存路径 ＝ 取当前目录 () ＋ “\” ＋ “测试记录.xls”
Excel工作簿1.保存 (保存路径)
Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()
Excel程序1.退出 ()
Excel程序1.释放 ()
信息框 (“导出成功!”, #信息图标, , )
执行 (4, 取当前目录 () ＋ “\” ＋ “测试记录.xls”, , , )  ' 取消这条，就不打开文件
返回 ()

子程序名	返回值类型	公开	备 注
单元格式设置

变量名	类 型	静态	数组	备 注
单元格对象	对象

Excel工作簿1.行高 ＝ 20
Excel工作簿1.字体大小 ＝ 11
Excel工作簿1.水平对齐方式 ＝ 3
Excel工作簿1.列宽 ＝ 20
单元格对象 ＝ Excel工作簿1.取单元格对象 ()
单元格对象.读对象型属性 (“Borders”, ).写属性 (“LineStyle”, 1)

子程序名	返回值类型	公开	备 注
_录入_被单击

变量名	类 型	静态	数组	备 注
i	整数型
索引	整数型

索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 1, 编辑框_名称.内容)
超级列表框1.置标题 (索引, 2, 编辑框_问题.内容)
超级列表框1.置标题 (索引, 3, 编辑框_措施.内容)
序号 ()

子程序名	返回值类型	公开	备 注
序号

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (超级列表框1.取表项数 (), i)
超级列表框1.置标题 (i － 1, 0, 到文本 (i))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_退出_被单击

销毁 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
eExcel2000	EXCEL2000支持库
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 eExcel2000<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> <br /> 超级列表框1.插入列 (, “序号”, 100, , , )<br /> 超级列表框1.插入列 (, “名称”, 100, , , )<br /> 超级列表框1.插入列 (, “问题记录”, 100, , , )<br /> 超级列表框1.插入列 (, “整改措施”, 100, , , )<br /> <br /> .子程序 _导出_被单击<br /> .局部变量 表头, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 ii, 整数型<br /> .局部变量 保存路径, 文本型<br /> <br /> Excel程序1.创建 ()<br /> Excel工作簿1.置程序 (Excel程序1)<br /> Excel工作簿1.激活工作簿 ()<br /> Excel工作簿1.首单元格 ＝ “A1”<br /> Excel工作簿1.尾单元格 ＝ “D1”<br /> Excel工作簿1.合并 ()<br /> Excel工作簿1.内容 ＝ “xxx测试记录”<br /> Excel工作簿1.行高 ＝ 30<br /> Excel工作簿1.字体名 ＝ “黑体”<br /> Excel工作簿1.字体加粗 ＝ 真<br /> Excel工作簿1.水平对齐方式 ＝ 3<br /> <br /> Excel工作簿1.表格序号 ＝ 1<br /> 表头 ＝ { “序号”, “名称”, “问题记录”, “整改措施” }<br /> .计次循环首 (取数组成员数 (表头), i)<br />     Excel工作簿1.首单元格 ＝ 字符 (97 ＋ i － 1) ＋ 到文本 (2)<br />     Excel工作簿1.尾单元格 ＝ 字符 (97 ＋ i － 1) ＋ 到文本 (2)<br />     Excel工作簿1.内容 ＝ 表头 <i><br />     单元格式设置 ()<br /> .计次循环尾 ()<br /> .计次循环首 (超级列表框1.取表项数 (), ii)<br />     处理事件 ()<br />     .计次循环首 (取数组成员数 (表头), i)<br />         Excel工作簿1.首单元格 ＝ 字符 (97 ＋ i － 1) ＋ 到文本 (ii ＋ 2)<br />         Excel工作簿1.尾单元格 ＝ 字符 (97 ＋ i － 1) ＋ 到文本 (ii ＋ 2)<br />         Excel工作簿1.内容 ＝ 超级列表框1.取标题 (ii － 1, i － 1)<br />         单元格式设置 ()<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 保存路径 ＝ 取当前目录 () ＋ “\” ＋ “测试记录.xls”<br /> Excel工作簿1.保存 (保存路径)<br /> Excel工作簿1.关闭 ()<br /> Excel工作簿1.释放 ()<br /> Excel程序1.退出 ()<br /> Excel程序1.释放 ()<br /> 信息框 (“导出成功!”, #信息图标, , )<br /> 执行 (4, 取当前目录 () ＋ “\” ＋ “测试记录.xls”, , , )  ' 取消这条，就不打开文件<br /> 返回 ()<br /> <br /> .子程序 单元格式设置<br /> .局部变量 单元格对象, 对象<br /> <br /> Excel工作簿1.行高 ＝ 20<br /> Excel工作簿1.字体大小 ＝ 11<br /> Excel工作簿1.水平对齐方式 ＝ 3<br /> Excel工作簿1.列宽 ＝ 20<br /> 单元格对象 ＝ Excel工作簿1.取单元格对象 ()<br /> 单元格对象.读对象型属性 (“Borders”, ).写属性 (“LineStyle”, 1)<br /> <br /> .子程序 _录入_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> 索引 ＝ 超级列表框1.插入表项 (, , , , , )<br /> 超级列表框1.置标题 (索引, 1, 编辑框_名称.内容)<br /> 超级列表框1.置标题 (索引, 2, 编辑框_问题.内容)<br /> 超级列表框1.置标题 (索引, 3, 编辑框_措施.内容)<br /> 序号 ()<br /> <br /> .子程序 序号<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     超级列表框1.置标题 (i － 1, 0, 到文本 (i))<br /> .计次循环尾 ()<br /> <br /> .子程序 _退出_被单击<br /> <br /> 销毁 ()

xf702

tw1 发表于 2023-11-14 13:25
[e=0].版本 2
.支持库 eExcel2000

完成了第一步，我还想在表格里面加数据。。超级列表框导出后自动带上标题栏。超列数据写到计次循环里，该怎么写呢

xf702

tw1 发表于 2023-11-14 13:25
[e=0].版本 2
.支持库 eExcel2000

还真弄出来了！！厉害了！！

tw1

  

变量名	类 型	静态	数组	备 注
计次1	整数型
导出表头	文本型		0
i	整数型
保存路径	文本型

Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.激活工作簿 ()
Excel工作簿1.表格序号 ＝ 1
Excel工作簿1.首单元格 ＝ “A1”
Excel工作簿1.尾单元格 ＝ “D1”
Excel工作簿1.合并 ()
Excel工作簿1.内容 ＝ “xxx测试记录”
Excel工作簿1.行高 ＝ 30
Excel工作簿1.字体名 ＝ “黑体”
Excel工作簿1.字体加粗 ＝ 真
Excel工作簿1.水平对齐方式 ＝ 3
导出表头 ＝ { “序号”, “名称”, “问题记录”, “整改措施” }
计次循环首 (取数组成员数 (导出表头), 计次1)
Excel工作簿1.首单元格 ＝ 字符 (97 ＋ 计次1 － 1) ＋ 到文本 (i ＋ 2)
Excel工作簿1.尾单元格 ＝ 字符 (97 ＋ 计次1 － 1) ＋ 到文本 (i ＋ 2)
Excel工作簿1.内容格式 ＝ “@”
Excel工作簿1.内容 ＝ 导出表头 [计次1]
单元格式设置 ()
计次循环尾 ()
保存路径 ＝ 取当前目录 () ＋ “\” ＋ “测试记录.xls”
Excel工作簿1.保存 (保存路径)
Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()
Excel程序1.退出 ()
Excel程序1.释放 ()
信息框 (“导出成功!”, #信息图标, , )
返回 ()

子程序名	返回值类型	公开	备 注
单元格式设置

变量名	类 型	静态	数组	备 注
单元格对象	对象

Excel工作簿1.行高 ＝ 20
Excel工作簿1.字体大小 ＝ 11
Excel工作簿1.水平对齐方式 ＝ 3
Excel工作簿1.列宽 ＝ 20
单元格对象 ＝ Excel工作簿1.取单元格对象 ()
单元格对象.读对象型属性 (“Borders”, ).写属性 (“LineStyle”, 1)

i支持库列表	支持库注释
eExcel2000	EXCEL2000支持库

.版本 2<br /> .支持库 eExcel2000<br /> <br /> .局部变量 计次1, 整数型<br /> .局部变量 导出表头, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 保存路径, 文本型<br /> <br /> Excel程序1.创建 ()<br /> Excel工作簿1.置程序 (Excel程序1)<br /> Excel工作簿1.激活工作簿 ()<br /> Excel工作簿1.表格序号 ＝ 1<br /> <br /> Excel工作簿1.首单元格 ＝ “A1”<br /> Excel工作簿1.尾单元格 ＝ “D1”<br /> Excel工作簿1.合并 ()<br /> Excel工作簿1.内容 ＝ “xxx测试记录”<br /> Excel工作簿1.行高 ＝ 30<br /> Excel工作簿1.字体名 ＝ “黑体”<br /> Excel工作簿1.字体加粗 ＝ 真<br /> Excel工作簿1.水平对齐方式 ＝ 3<br /> <br /> 导出表头 ＝ { “序号”, “名称”, “问题记录”, “整改措施” }<br /> .计次循环首 (取数组成员数 (导出表头), 计次1)<br />     Excel工作簿1.首单元格 ＝ 字符 (97 ＋ 计次1 － 1) ＋ 到文本 (i ＋ 2)<br />     Excel工作簿1.尾单元格 ＝ 字符 (97 ＋ 计次1 － 1) ＋ 到文本 (i ＋ 2)<br />     Excel工作簿1.内容格式 ＝ “@”<br />     Excel工作簿1.内容 ＝ 导出表头 [计次1]<br />     单元格式设置 ()<br /> .计次循环尾 ()<br /> <br /> 保存路径 ＝ 取当前目录 () ＋ “\” ＋ “测试记录.xls”<br /> <br /> Excel工作簿1.保存 (保存路径)<br /> Excel工作簿1.关闭 ()<br /> Excel工作簿1.释放 ()<br /> Excel程序1.退出 ()<br /> Excel程序1.释放 ()<br /> 信息框 (“导出成功!”, #信息图标, , )<br /> 返回 ()<br /> <br /> .子程序 单元格式设置<br /> .局部变量 单元格对象, 对象<br /> <br /> Excel工作簿1.行高 ＝ 20<br /> Excel工作簿1.字体大小 ＝ 11<br /> Excel工作簿1.水平对齐方式 ＝ 3<br /> Excel工作簿1.列宽 ＝ 20<br /> 单元格对象 ＝ Excel工作簿1.取单元格对象 ()<br /> 单元格对象.读对象型属性 (“Borders”, ).写属性 (“LineStyle”, 1)

tw1

https://bbs.125.la/forum.php?mod ... amp;highlight=excel  这个符合你的要求

tw1

tw1 发表于 2023-11-13 21:04
我用的是打开模板，替换方式写入数据。
.版本 2
.支持库 eExcel2000

.版本 2
.支持库 eExcel2000

.子程序 设置表格内容
.参数 工作表, Excel工作簿
.参数 首单元, 文本型
.参数 尾单元, 文本型
.参数 内容, 文本型

.如果 (尾单元 ＝ “”)
    尾单元 ＝ 首单元
.否则

.如果结束
工作表.首单元格 ＝ 首单元
工作表.尾单元格 ＝ 尾单元
工作表.内容 ＝ 内容