易如何自动给导出的Excel表格文件插入标题？

wh1234567

b0y 发表于 2025-3-14 10:55
颜色可以自己改啊
RGB 颜色表与十六进制颜色值码 - Codeeeee 在线小工具
用颜色的名称 rgb()   #xxxxx ...

效果不错，如果按刚才我发的参数格式多增加一些就理想化了，呵呵呵，期待老师完善，这个代码功能不错

b0y

wh1234567 发表于 2025-3-14 11:14
效果不错，如果按刚才我发的参数格式多增加一些就理想化了，呵呵呵，期待老师完善，这个代码功能不错 ...

其他的你自己看着改一下吧  有些是这个导出方法不支持的

wh1234567

b0y 发表于 2025-3-14 13:29
其他的你自己看着改一下吧  有些是这个导出方法不支持的

能支持的尽量完善一下吧，期待老师，我怕弄错了

补充内容 (2025-3-14 13:57):
主要行高太密密麻麻了，最好是能自定义，还有为啥导出的内容靠边或居中不一制？发现其他列都是靠左的，而最后有一列却靠右了，不知在哪修正

b0y

wh1234567 发表于 2025-3-14 13:54
能支持的尽量完善一下吧，期待老师，我怕弄错了

补充内容 (2025-3-14 13:57):

这个是简易方式生成的 不依赖excel支持库 不需要带dll   要是想很多属性excel都支持 那就excel支持库来导出 那很多属性都能设置  比如用libxl  

wh1234567

b0y 发表于 2025-3-14 10:55
颜色可以自己改啊
RGB 颜色表与十六进制颜色值码 - Codeeeee 在线小工具
用颜色的名称 rgb()   #xxxxx ...

只差这几个功能了：还得指望老师添加完善一下了，呵呵呵，如果行高列宽无法增加的话，估计背景颜色和是否加粗应该可以加的吧？
背景颜色
是否加粗
行高
列宽

补充内容 (2025-3-14 18:32):
那个表格内容靠左靠右居中，能不能修正一下，发现表格里的所有列不统一

b0y

wh1234567 发表于 2025-3-14 18:24
只差这几个功能了：还得指望老师添加完善一下了，呵呵呵，如果行高列宽无法增加的话，估计背景颜色和是否 ...

超级列表框导出XLS_html.e (7.8 KB, 下载次数: 2, 售价: 2 枚 精币)

2025-3-14 19:15 上传

点击文件名下载附件

好了 除了宽高 都有了  其他自己搞吧

b0y

上一张按了下回车参数错位了  

wh1234567

b0y 发表于 2025-3-14 19:54
上一张按了下回车参数错位了

老师深有研究，感谢老师，如果想加上“标题对齐方式”、“表头对齐方式”的话怎么添加代码呢？另外标题和表头默认都是字体加粗的吗？

补充内容 (2025-3-14 20:41):
还有边框线粗细和颜色能不能自定义？

wh1234567

b0y 发表于 2025-3-14 19:54
上一张按了下回车参数错位了

表头和表格边框线粗细和颜色能不能自定义？现在只差行高列宽 这几个功能了，我觉得按现在的功能来说，行高也应该可以实现才对，期待老师佳音

wh1234567

b0y 发表于 2025-3-14 19:54
上一张按了下回车参数错位了

  

子程序名	返回值类型	公开	备 注
超级列表框导出xls	逻辑型
参数名	类 型	参考	可空	数组	备 注
保存文件	文本型				保存文件完整路径带文件名
列表框	超级列表框				超级列表框对象
是否保存表头	逻辑型				为真保存，为假不保存
报表标题	文本型				为空无报表标题
报表字体	文本型
报表字体尺寸	文本型				默认30
报表字体颜色	文本型
报表字体加粗	逻辑型
报表背景色	文本型
报表标题对齐方式	整数型				0默认 1左对齐 2居中 3右对齐 4两端对齐
表头字体	文本型
表头字体尺寸	文本型
表头字体颜色	文本型
表头字体加粗	逻辑型
表头背景色	文本型
表头对齐方式	整数型				0默认 1左对齐 2居中 3右对齐 4两端对齐
表格字体	文本型
表格字体尺寸	文本型
表格字体颜色	文本型
表格字体加粗	逻辑型
表格背景色	文本型
表格对齐方式	整数型				0默认 1左对齐 2居中 3右对齐 4两端对齐

变量名	类 型	静态	数组	备 注
局_文件号	整数型
列数	整数型
表项数	整数型
i	整数型
j	整数型
p	整数型
b1	文本型			是否加粗
b2	文本型
b3	文本型
b4	文本型
b5	文本型
b6	文本型
align_biaoti	文本型			标题水平对齐方式
align_biaotou	文本型			表头水平对齐方式
align_biaoge	文本型			表格水平对齐方式

如果真 (报表标题对齐方式 ＞ 4)  ' 水平对齐 text-align
报表标题对齐方式 ＝ 0
align_biaoti ＝ 多项选择 (报表标题对齐方式 ＋ 1, “”, “left”, “center”, “right”, “justify”)
如果真 (表头对齐方式 ＞ 4)
表头对齐方式 ＝ 0
align_biaotou ＝ 多项选择 (表头对齐方式 ＋ 1, “”, “left”, “center”, “right”, “justify”)
如果真 (表格对齐方式 ＞ 4)
表格对齐方式 ＝ 0
align_biaoge ＝ 多项选择 (表格对齐方式 ＋ 1, “”, “left”, “center”, “right”, “justify”)
局_文件号 ＝ 打开文件 (保存文件, 4, 1)
表项数 ＝ 列表框.取表项数 ()
列数 ＝ 列表框.取列数 ()
移到文件首 (局_文件号)
如果真 (报表标题 ≠ “”)
如果真 (报表字体尺寸 ＝ “”)
报表字体尺寸 ＝ “30”
写文本行 (局_文件号, #常量3 ＋ 报表背景色 ＋ “;'>”)
写文本行 (局_文件号, “  ”)
如果真 (报表字体加粗)
b1 ＝ “”
b2 ＝ “”
写文本行 (局_文件号, “” ＋ b1 ＋ 报表标题 ＋ b2 ＋ “”)  ' 我修改增加对齐方式，不知道是否正确
写文本行 (局_文件号, “  ”)
写文本行 (局_文件号, #常量2 )
写文本行 (局_文件号, #常量1 )
如果真 (是否保存表头 ＝ 真)
写文本行 (局_文件号, “  ”)
如果真 (表头字体加粗)
b3 ＝ “”
b4 ＝ “”
计次循环首 (列数, p)
写文本行 (局_文件号, “    ” ＋ b3 ＋ 列表框.取列标题 (p － 1) ＋ b4 ＋ “”)
计次循环尾 ()
写文本行 (局_文件号, “  ”)

如果真 (表格字体加粗)
b5 ＝ “”
b6 ＝ “”
计次循环首 (表项数, i)
写文本行 (局_文件号, “  ”)
计次循环首 (列数, j)
写文本行 (局_文件号, “    ” ＋ b5 ＋ 列表框.取标题 (i － 1, j － 1) ＋ b6 ＋ “”)
计次循环尾 ()
写文本行 (局_文件号, “  ”)
计次循环尾 ()
写文本行 (局_文件号, #常量2 )
关闭文件 (局_文件号)
返回 (真)

子程序名	返回值类型	公开	备 注
_按钮2_被单击

超级列表框导出xls (取特定目录 ( #系统桌面 ) ＋ “/1.xls”, 超级列表框1, 真, 编辑框3.内容, “楷体”, “26”, “#FD3131”, 真, “#C8F5F4”, 2, “楷体”, “20”, “#220A29”, 真, “#F0F8E0”, 2, “楷体”, “14”, “#220A29”, 假, “#F0F8E0”, 2)

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

.版本 2<br /> .支持库 iext<br /> .支持库 shell<br /> <br /> .子程序 超级列表框导出xls, 逻辑型, 公开<br /> .参数 保存文件, 文本型, , 保存文件完整路径带文件名<br /> .参数 列表框, 超级列表框, , 超级列表框对象<br /> .参数 是否保存表头, 逻辑型, , 为真保存，为假不保存<br /> .参数 报表标题, 文本型, 可空, 为空无报表标题<br /> .参数 报表字体, 文本型, 可空<br /> .参数 报表字体尺寸, 文本型, 可空, 默认30<br /> .参数 报表字体颜色, 文本型, 可空<br /> .参数 报表字体加粗, 逻辑型, 可空<br /> .参数 报表背景色, 文本型, 可空<br /> .参数 报表标题对齐方式, 整数型, 可空, 0默认 1左对齐 2居中 3右对齐 4两端对齐<br /> .参数 表头字体, 文本型, 可空<br /> .参数 表头字体尺寸, 文本型, 可空<br /> .参数 表头字体颜色, 文本型, 可空<br /> .参数 表头字体加粗, 逻辑型, 可空<br /> .参数 表头背景色, 文本型, 可空<br /> .参数 表头对齐方式, 整数型, 可空, 0默认 1左对齐 2居中 3右对齐 4两端对齐<br /> .参数 表格字体, 文本型, 可空<br /> .参数 表格字体尺寸, 文本型, 可空<br /> .参数 表格字体颜色, 文本型, 可空<br /> .参数 表格字体加粗, 逻辑型, 可空<br /> .参数 表格背景色, 文本型, 可空<br /> .参数 表格对齐方式, 整数型, 可空, 0默认 1左对齐 2居中 3右对齐 4两端对齐<br /> .局部变量 局_文件号, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 表项数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 p, 整数型<br /> .局部变量 b1, 文本型, , , 是否加粗<br /> .局部变量 b2, 文本型<br /> .局部变量 b3, 文本型<br /> .局部变量 b4, 文本型<br /> .局部变量 b5, 文本型<br /> .局部变量 b6, 文本型<br /> .局部变量 align_biaoti, 文本型, , , 标题水平对齐方式<br /> .局部变量 align_biaotou, 文本型, , , 表头水平对齐方式<br /> .局部变量 align_biaoge, 文本型, , , 表格水平对齐方式<br /> <br /> .如果真 (报表标题对齐方式 ＞ 4)  ' 水平对齐 text-align<br />     报表标题对齐方式 ＝ 0<br /> .如果真结束<br /> align_biaoti ＝ 多项选择 (报表标题对齐方式 ＋ 1, “”, “left”, “center”, “right”, “justify”)<br /> <br /> .如果真 (表头对齐方式 ＞ 4)<br />     表头对齐方式 ＝ 0<br /> .如果真结束<br /> align_biaotou ＝ 多项选择 (表头对齐方式 ＋ 1, “”, “left”, “center”, “right”, “justify”)<br /> <br /> .如果真 (表格对齐方式 ＞ 4)<br />     表格对齐方式 ＝ 0<br /> .如果真结束<br /> align_biaoge ＝ 多项选择 (表格对齐方式 ＋ 1, “”, “left”, “center”, “right”, “justify”)<br /> <br /> 局_文件号 ＝ 打开文件 (保存文件, 4, 1)<br /> 表项数 ＝ 列表框.取表项数 ()<br /> 列数 ＝ 列表框.取列数 ()<br /> 移到文件首 (局_文件号)<br /> .如果真 (报表标题 ≠ “”)<br />     .如果真 (报表字体尺寸 ＝ “”)<br />         报表字体尺寸 ＝ “30”<br />     .如果真结束<br />     写文本行 (局_文件号, #常量3 ＋ 报表背景色 ＋ “;'>”)<br />     写文本行 (局_文件号, “  ”)<br />     .如果真 (报表字体加粗)<br />         b1 ＝ “<strong>”<br />         b2 ＝ “</strong>”<br />     .如果真结束<br />     写文本行 (局_文件号, “” ＋ b1 ＋ 报表标题 ＋ b2 ＋ “”)  ' 我修改增加对齐方式，不知道是否正确<br />     写文本行 (局_文件号, “  ”)<br />     写文本行 (局_文件号, #常量2)<br /> .如果真结束<br /> 写文本行 (局_文件号, #常量1)<br /> .如果真 (是否保存表头 ＝ 真)<br />     写文本行 (局_文件号, “  ”)<br />     .如果真 (表头字体加粗)<br />         b3 ＝ “<strong>”<br />         b4 ＝ “</strong>”<br />     .如果真结束<br />     .计次循环首 (列数, p)<br />         写文本行 (局_文件号, “    ” ＋ b3 ＋ 列表框.取列标题 (p － 1) ＋ b4 ＋ “”)<br />     .计次循环尾 ()<br />     写文本行 (局_文件号, “  ”)<br /> .如果真结束<br /> <br /> .如果真 (表格字体加粗)<br />     b5 ＝ “<strong>”<br />     b6 ＝ “</strong>”<br /> .如果真结束<br /> .计次循环首 (表项数, i)<br />     写文本行 (局_文件号, “  ”)<br />     .计次循环首 (列数, j)<br />         写文本行 (局_文件号, “    ” ＋ b5 ＋ 列表框.取标题 (i － 1, j － 1) ＋ b6 ＋ “”)<br />     .计次循环尾 ()<br />     写文本行 (局_文件号, “  ”)<br /> .计次循环尾 ()<br /> 写文本行 (局_文件号, #常量2)<br /> 关闭文件 (局_文件号)<br /> 返回 (真)<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 超级列表框导出xls (取特定目录 (#系统桌面) ＋ “/1.xls”, 超级列表框1, 真, 编辑框3.内容, “楷体”, “26”, “#FD3131”, 真, “#C8F5F4”, 2, “楷体”, “20”, “#220A29”, 真, “#F0F8E0”, 2, “楷体”, “14”, “#220A29”, 假, “#F0F8E0”, 2)

我修改增加了背景颜色和是否字体粗，导出后为啥变成了乱码？求老师帮修正一下是哪里的问题





补充内容 (2025-3-15 04:39):
当 编辑框3.内容 里有内容时 导出是正确的，但是当编辑框3里没有内容也就是不需要导出标题时就会出现导出变成了乱码的问题。求老师修正或指点.....