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

tw1

xf702 发表于 2023-11-13 21:24
好的，我试试，用了什么模块？

没使用模块。

tw1

xf702 发表于 2023-10-15 17:07
看来是没有了。。。

在论坛上找了个源码给修改的，就是没有表格格式。暂时还没有能力达到你图片上的效果。还有一种方式就是，先建一个模板，再打开模板写入数据，这样就会有你图片上那样的效果了。

xf702

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

好的，我试试，用了什么模块？

tw1

xf702 发表于 2023-10-15 17:07
看来是没有了。。。

我用的是打开模板，替换方式写入数据。
.版本 2
.支持库 eExcel2000

Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.打开 (取运行目录 () ＋ “\模板.xlt”)
Excel工作簿1.表格名 ＝ “sheet1”

设置表格内容 (Excel工作簿1, “a” ＋ 到文本 (i ＋ 1), “”, “XXX测试记录表”)
设置表格内容 (Excel工作簿1, “a” ＋ 到文本 (i ＋ 2), “”, “序号”)
设置表格内容 (Excel工作簿1, “b” ＋ 到文本 (i ＋ 2), “”, “问题记录”)



Excel工作簿1.表格序号 ＝ 1
.计次循环首 (超级列表框1.取表项数 (), i)   
    Excel工作簿1.首单元格 ＝ “a” ＋ 删首空 (到文本 (i ＋ 3))
    Excel工作簿1.尾单元格 ＝ “a” ＋ 删首空 (到文本 (i ＋ 3))
    Excel工作簿1.行高 ＝ 20
    Excel工作簿1.内容 ＝ 超级列表框1.取标题 (i － 1, 0)
    Excel工作簿1.字体大小 ＝ 11

Excel工作簿1.首单元格 ＝ “b” ＋ 删首空 (到文本 (i ＋ 3))
    Excel工作簿1.尾单元格 ＝ “b” ＋ 删首空 (到文本 (i ＋ 3))
    Excel工作簿1.行高 ＝ 20
    Excel工作簿1.内容 ＝ 超级列表框1.取标题 (i － 1, 0)
    Excel工作簿1.字体大小 ＝ 11



计次循环尾 ()





文件保存路径= 取当前目录 () ＋ “\” + “xx记录表.xls”

Excel工作簿1.保存 (文件保存路径)
Excel工作簿1.关闭 ()
Excel程序1.释放 ()

xf702

看来是没有了。。。

xf702

田心南 发表于 2023-10-13 17:16
懒得折腾了  兄弟  没搞

哎。。。麻烦大神动动手了，造福一下新手们。。。

123456ppt

田心南 发表于 2023-10-13 17:16
懒得折腾了  兄弟  没搞

我把我改成那个可以导出图片的那个发给你的时候你可不是这么说的

田心南

xf702 发表于 2023-10-13 15:16
1.7版那个吗？

是的                    

田心南

123456ppt 发表于 2023-10-13 14:27
emm，你不是跟我说改成了发我嘛，都过去这么久了。。

懒得折腾了  兄弟  没搞

xf702

123456ppt 发表于 2023-10-13 14:27
emm，你不是跟我说改成了发我嘛，都过去这么久了。。

收到后，给我也发一份呗