精易论坛

标题: 易如何自动给导出的Excel表格文件插入标题? [打印本页]

作者: wh1234567    时间: 2025-3-13 11:34
标题: 易如何自动给导出的Excel表格文件插入标题?
超级列表框导出EXCEL (通用对话框1, 超级列表框1)
执行 (#打开文件, 通用对话框1.文件名, , , )
打开后发现没有标题,行高间距也太小,
请问:易如何自动给导出的Excel表格文件插入标题(需居中和字体大小提前在易代码里设置)?


补充内容 (2025-3-13 13:28):
是需要给导出的Excel表格上方插入一个自定义标题名称,包括可以设置字体大小以及表格行高间距
作者: b0y    时间: 2025-3-13 11:34


超级列表框导出XLS_html.e (8.91 KB, 下载次数: 12)


作者: 花间一壶酒    时间: 2025-3-13 11:46
“Range”对象下  “Value”属性  是写入内容  插入标题  无非是在首行  空出来内容  合并单元格  然后写入内容

至于字体大小和居中  在“Range”对象下的 “Font”对象 的“Size”属性 是字体大小  

在“Range”对象下的  “HorizontalAlignment”属性 是对齐方式
作者: b0y    时间: 2025-3-13 12:37

超级列表框导出EXCEL()   这个函数 没有标题相关的选项吗
或者找一个有标题的
作者: 10008508    时间: 2025-3-13 13:10
用现成的吧  https://125.confly.eu.org/forum.php?mod ... amp;highlight=EXCEL
作者: 10008508    时间: 2025-3-13 13:11
论坛超级多的源码呢  现成的改改就行了https://125.confly.eu.org/forum.php?mod ... amp;highlight=EXCEL
作者: wh1234567    时间: 2025-3-13 13:23
10008508 发表于 2025-3-13 13:10
用现成的吧  https://125.confly.eu.org/forum.php?mod=viewthread&tid=14790794&highlight=EXCEL

感谢,是需要在表格的上方增加一个字体比较大一点的标题名称,老师能不能帮修改一下模块功能
作者: wh1234567    时间: 2025-3-13 13:25
b0y 发表于 2025-3-13 12:37
超级列表框导出EXCEL()   这个函数 没有标题相关的选项吗
或者找一个有标题的 ...

没找到在表格上方增加一个字体比较大一点的标题功能的
作者: 10008508    时间: 2025-3-13 13:27
wh1234567 发表于 2025-3-13 13:23
感谢,是需要在表格的上方增加一个字体比较大一点的标题名称,老师能不能帮修改一下模块功能 ...

老师不敢当      模块功能已经足够用呢  不明白你的标题加在哪里啊
作者: wh1234567    时间: 2025-3-13 13:28
花间一壶酒 发表于 2025-3-13 11:46
“Range”对象下  “Value”属性  是写入内容  插入标题  无非是在首行  空出来内容  合并单元格  然后写入 ...

按我上面的表述 求完整例子
作者: wh1234567    时间: 2025-3-13 13:29
10008508 发表于 2025-3-13 13:27
老师不敢当      模块功能已经足够用呢  不明白你的标题加在哪里啊

表格外的上方居中位置
作者: wh1234567    时间: 2025-3-13 13:34
10008508 发表于 2025-3-13 13:27
老师不敢当      模块功能已经足够用呢  不明白你的标题加在哪里啊

调用格式例如:超级列表框导出EXCEL (通用对话框1, 超级列表框1,“表格外上方居中位置标题名称”,自定义标题字体大小比如30,标题字体颜色#黄色,自定义表格行高20)
作者: b0y    时间: 2025-3-13 13:49
你不会提问 说的不清楚 上方居中位置 是在哪一列呢  还是需要合并单元格在设置标题   那需要合并几列呢?  你直接截图一个效果图 不就都明白了
作者: wh1234567    时间: 2025-3-13 14:00
b0y 发表于 2025-3-13 13:49
你不会提问 说的不清楚 上方居中位置 是在哪一列呢  还是需要合并单元格在设置标题   那需要合并几列呢?   ...

http://www.chacuo.net/uploads/ch ... a5c72f8e94d38c5.jpg
作者: 10008508    时间: 2025-3-13 14:09
在表格上 添加一个标签就行   然后标签内容   你随便定义
作者: b0y    时间: 2025-3-13 14:22
单独写个插入标题的 感觉有点鸡肋,  你用你现在用的导出EXCEL文件的函数 修改一下  加上标题的功能就行了

作者: wh1234567    时间: 2025-3-13 14:48
10008508 发表于 2025-3-13 14:09
在表格上 添加一个标签就行   然后标签内容   你随便定义

问题是把标签和表格怎么一次性导出呢?
作者: 10008508    时间: 2025-3-13 14:56
wh1234567 发表于 2025-3-13 14:48
问题是把标签和表格怎么一次性导出呢?

那不就是标签内容 导出      表格内容 导出  多几条代码的事   你干脆把你那源码发出来吧  哈哈哈
作者: wh1234567    时间: 2025-3-13 15:02
b0y 发表于 2025-3-13 14:22
单独写个插入标题的 感觉有点鸡肋,  你用你现在用的导出EXCEL文件的函数 修改一下  加上标题的功能就行了
...

.版本 2
.支持库 iext

.子程序 超级列表框导出excel核心代码, 逻辑型
.参数 列表句柄, 整数型, , 需要导出内容的超级列表框句柄,如果此列表框行数和列数都小于1,则不会执行导出操作。
.参数 保存文件, 文本型, , 保存到目标文件,后缀名一般为“xls”。注:如果文件已存在则会重写改文件,如果不能打开文件则返回假。
.参数 保留表头, 逻辑型, 可空, 是否把超级列表框表头一起导出到表格文件,如果不需要导出表头,请留空此值或者赋值“假”。
.局部变量 Excel, 整数型
.局部变量 Header, 整数型
.局部变量 列数, 整数型
.局部变量 行数, 整数型
.局部变量 列索引, 整数型
.局部变量 表项索引, 整数型
.局部变量 LVCOLUMN, LVCOLUMN
.局部变量 LVITEM, LVITEM
.局部变量 Pointer, 整数型

Header = SendMessage (列表句柄, 4127, 0, 0)
列数 = SendMessage (Header, 4608, 0, 0)
行数 = SendMessage (列表句柄, 4100, 0, 0)
.如果真 (行数 < 1 且 列数 < 1)  ' 全无内容,别浪费磁盘空间
    返回 (假)
.如果真结束
Excel = 打开文件 (保存文件, #重写, #无限制)
.如果真 (Excel = 0)
    返回 (假)
.如果真结束
移到文件首 (Excel)
写文本行 (Excel, #Table_头部)
.如果真 (保留表头 = 真 且 列数 > 0)
    写文本行 (Excel, “  <tr>”)
    列索引 = 0
    .计次循环首 (列数, )
        LVCOLUMN.mask = 4
        LVCOLUMN.cchTextMax = 260
        LVCOLUMN.pszText = 取空白文本 (260)
        Pointer = GetPt_LVCOLUMN (LVCOLUMN, LVCOLUMN, 0)
        .如果真 (SendMessage (列表句柄, 4121, 列索引, Pointer) = 0)  ' 取标题失败
            关闭文件 (Excel)
            返回 (假)
        .如果真结束
        写文本行 (Excel, “    <th>” + LVCOLUMN.pszText + “</th>”)
        列索引 = 列索引 + 1
    .计次循环尾 ()
    写文本行 (Excel, “  </tr>”)
.如果真结束
.如果真 (行数 > 0)
    表项索引 = 0
    .计次循环首 (行数, )
        写文本行 (Excel, “  <tr>”)
        列索引 = 0
        .计次循环首 (列数, )
            LVITEM.mask = 1
            LVITEM.iItem = 表项索引  ' 项目
            LVITEM.iSubItem = 列索引  ' 子项目
            LVITEM.cchTextMax = 260
            LVITEM.pszText = 取空白文本 (260)
            Pointer = GetPt_LVITEM (LVITEM, LVITEM, 0)
            .如果真 (SendMessage (列表句柄, 4101, 0, Pointer) = 0)  ' 取标题失败
                关闭文件 (Excel)
                返回 (假)
            .如果真结束
            写文本行 (Excel, “    <td>” + LVITEM.pszText + “</td>”)
            列索引 = 列索引 + 1
        .计次循环尾 ()
        写文本行 (Excel, “  </tr>”)
        表项索引 = 表项索引 + 1
    .计次循环尾 ()
.如果真结束
写文本行 (Excel, #Table_尾部)
关闭文件 (Excel)
返回 (真)

.子程序 超级列表框导出EXCEL, 逻辑型, 公开, 把超级列表框内容导出为Excel表格文件,成功返回真,失败返回假。注:只能导出报表列表框。
.参数 通用对话组件, 通用对话框
.参数 超级列表框组件, 超级列表框
.局部变量 表头数组, 文本型, , "0"
.局部变量 计次, 整数型

通用对话组件.类型 = 1
通用对话组件.过滤器 = “excel文件|*.xls”
通用对话组件.默认文件后缀 = “.xls”
.判断开始 (通用对话组件.打开 ())
    .判断开始 (超级列表框导出excel核心代码 (超级列表框组件.取窗口句柄 (), 通用对话组件.文件名, 真))
        返回 (真)
    .默认
        返回 (假)
    .判断结束

.默认
    返回 (假)
.判断结束


求帮修改一下吧
调用格式例如:超级列表框导出EXCEL (通用对话框1, 超级列表框1,“表格外上方居中位置标题名称”,自定义标题字体大小比如30,标题字体颜色#黄色,自定义表格行高20)
作者: wh1234567    时间: 2025-3-13 15:05
10008508 发表于 2025-3-13 14:56
那不就是标签内容 导出      表格内容 导出  多几条代码的事   你干脆把你那源码发出来吧  哈哈哈  ...

把标签和表格怎么一次性导出到表格里?
作者: 10008508    时间: 2025-3-13 15:13
wh1234567 发表于 2025-3-13 15:05
把标签和表格怎么一次性导出到表格里?

你想导出到表格也可以  导出放文本也可以  导出=变量也可以啊     你去我刚刚给你的链接把源码下下来   好好看  就明白了


作者: wh1234567    时间: 2025-3-13 15:31
10008508 发表于 2025-3-13 13:11
论坛超级多的源码呢  现成的改改就行了https://125.confly.eu.org/forum.php?mod=viewthread&tid=14842414&highlig ...

.版本 2
.支持库 iext

.子程序 超级列表框_EXCEL_导出, 逻辑型, 公开, 成功返回真,失败返回假
.参数 参_超级列表框, 超级列表框
.参数 参_是否包含表头, 逻辑型, 可空, 默认为真
.参数 参_工作表表名, 文本型, 可空, 默认为导出结果
.参数 参_格式, EXCEL格式, 可空
.参数 参_保存路径, 文本型, 可空, 默认保存到桌面   默认后缀.xlsx
.参数 参_导出成功是否提示和打开, 逻辑型, 可空, 默认为真   信息框提示
如何调用?超级列表框_EXCEL_导出(里面怎么填?求完整填法)

补充内容 (2025-3-13 15:32):
如何调用?超级列表框_EXCEL_导出(里面怎么填?求完整填法例子)
作者: b0y    时间: 2025-3-13 15:32
wh1234567 发表于 2025-3-13 15:02
.版本 2
.支持库 iext

晚上没答案 我在看  有事情
作者: 10008508    时间: 2025-3-13 15:45
wh1234567 发表于 2025-3-13 15:31
.版本 2
.支持库 iext

参数<1>的名称为“参_超级列表框”,类型为“超级列表框”。
    参数<2>的名称为“参_是否包含表头”,类型为“逻辑型”,允许接收空参数数据。注明:默认为真。
    参数<3>的名称为“参_工作表表名”,类型为“文本型”,允许接收空参数数据。注明:默认为导出结果。
    参数<4>的名称为“参_格式”,类型为“EXCEL格式”,允许接收空参数数据。
    参数<5>的名称为“参_保存路径”,类型为“文本型”,允许接收空参数数据。注明:默认保存到桌面   默认后缀.xlsx。
    参数<6>的名称为“参_导出成功是否提示和打开”,类型为“逻辑型”,允许接收空参数数据。注明:默认为真   信息框提示。
作者: wh1234567    时间: 2025-3-13 15:50
10008508 发表于 2025-3-13 15:45
参数的名称为“参_超级列表框”,类型为“超级列表框”。
    参数的名称为“参_是否包含表头”,类型为 ...

超级列表框_EXCEL_导出(里面怎么填?求完整填法例子)代码解释看不懂,您直接给个填的例子吧

补充内容 (2025-3-13 15:52):
是导出,不是导入
作者: 10008508    时间: 2025-3-13 15:50
你把这个下载过去  然后改改就能用了

测试.7z

1014.5 KB, 下载次数: 1


作者: 10008508    时间: 2025-3-13 15:51
这个自己加精易模块    然后改改 就可以用了   里面好多例子

EXCEL和xls数据处理.zip

2.84 MB, 下载次数: 2


作者: wh1234567    时间: 2025-3-13 15:54
10008508 发表于 2025-3-13 15:51
这个自己加精易模块    然后改改 就可以用了   里面好多例子

超级列表框_EXCEL_导入导出++V1.7.1+++修复版本
超级列表框_EXCEL_导出(里面怎么填?求完整填法例子)代码解释看不懂,您直接给个填的例子吧

补充内容 (2025-3-13 15:56):
超级列表框_EXCEL_导出 (超级列表框1, 真, “11111”, 格式, , 真)  这里的“11111”是指导出的文件名还是我说的标题名称?
作者: wh1234567    时间: 2025-3-13 16:01
10008508 发表于 2025-3-13 15:51
这个自己加精易模块    然后改改 就可以用了   里面好多例子

你发动没有一个是符合我说表述的功能啊

补充内容 (2025-3-13 16:02):
你发的没有一个是符合我说表述的功能啊
作者: b0y    时间: 2025-3-13 18:47
wh1234567 发表于 2025-3-13 15:02
.版本 2
.支持库 iext

https://125.confly.eu.org/forum.php?mod ... AF%BC%E5%87%BAEXCEL

这个符合你的要求
作者: b0y    时间: 2025-3-13 18:51


blue超级列表框导出模块1.0.e (4.56 KB, 下载次数: 4)
作者: wh1234567    时间: 2025-3-13 19:44
b0y 发表于 2025-3-13 18:51

非常感谢老师,标题字体大小有了,那么标题字体颜色以及表格行高间距和表格文字颜色有没有办法增加?
作者: wh1234567    时间: 2025-3-13 20:37
b0y 发表于 2025-3-13 18:51

+ “;background-color:” + 标题背景颜色 + “;color:” + 标题字体颜色

我增加了这个代码,没有效果,期待老师帮忙
作者: wh1234567    时间: 2025-3-14 08:21
b0y 发表于 2025-3-13 18:51

期待老师完善一下这个关于字体大小颜色行高间距功能,
作者: b0y    时间: 2025-3-14 10:14
wh1234567 发表于 2025-3-14 08:21
期待老师完善一下这个关于字体大小颜色行高间距功能,




blue超级列表框导出模块1.0.e (7.16 KB, 下载次数: 2, 售价: 2 枚 精币)


行高不行 颜色 字体 尺寸 可以


补充内容 (2025-3-14 10:14):
行高只能加大字体

补充内容 (2025-3-14 10:18):
除了报表字体 默认尺寸30  其他字体属性 不设置的话都是默认
作者: wh1234567    时间: 2025-3-14 10:38
b0y 发表于 2025-3-14 10:14
行高不行 颜色 字体 尺寸 可以

.版本 2

.局部变量 报表字体, 字体属性
.局部变量 表头字体, 字体属性
.局部变量 表格字体, 字体属性

报表字体.颜色 = “red”
表头字体.颜色 = “green”
表头字体.尺寸 = “20”
表格字体.颜色 = “rgb(128,128,0)”
表格字体.尺寸 = “16”
把这些代码放到  超级列表框导出xls 子程序下行不行?方便用一行代码直接调用,另外如果修改成其他颜色等怎么替换?直接全部参数在 超级列表框导出xls () 里面设定可以吗?

补充内容 (2025-3-14 10:49):
.版本 2

报表字体.颜色 = “#黄色”
表头字体.颜色 = “#绿色”
表头字体.尺寸 = “20”
表格字体.颜色 = “11547396”
表格字体.尺寸 = “16”
表格字体.字体 = “宋体”
超级列表框导出xls (取运行目录 () + “\1.xls”, 超级列表框1, 真, “测试名单”, 报表字体, 表头字体, 表格字体)

作者: b0y    时间: 2025-3-14 10:45
wh1234567 发表于 2025-3-14 10:38
.版本 2

.局部变量 报表字体, 字体属性

可以是可以 就是会有一堆参数
作者: wh1234567    时间: 2025-3-14 10:51
b0y 发表于 2025-3-14 10:45
可以是可以 就是会有一堆参数

参数多代表功能强大,只要用一行代码.超级列表框导出xls (,,,,,,,,,,,,,,,,)直接调用就方便了
作者: b0y    时间: 2025-3-14 10:55
wh1234567 发表于 2025-3-14 10:38
.版本 2

.局部变量 报表字体, 字体属性

blue超级列表框导出模块1.0.e (6.88 KB, 下载次数: 2)

颜色可以自己改啊
RGB 颜色表与十六进制颜色值码 - Codeeeee 在线小工具
用颜色的名称 rgb()   #xxxxx十六进制的都可以

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

.版本 2
.支持库 iext

.子程序 超级列表框导出xls, 逻辑型, 公开, 只适用于报表列表框
.参数 保存文件完整路径, 文本型, , 保存路径
.参数 列表框名称, 超级列表框, , 超级列表框对象
.参数 是否保存表头, 逻辑型, , 为真保存,为假不保存
.参数 报表标题内容, 文本型, 可空, 为空无报表标题
.参数 报表标题字体名称, 字体属性
.参数 报表标题字体颜色
.参数 报表标题背景颜色
.参数 报表标题字体大小
.参数 报表标题字体是否加粗
.参数 表头字体名称, 字体属性
.参数 表头字体颜色
.参数 表头背景颜色
.参数 表头字体大小
.参数 表头字体是否加粗
.参数 表格字体名称, 字体属性
.参数 表格字体颜色
.参数 表格背景颜色
.参数 表格字体大小
.参数 表格字体是否加粗
.参数 行高, , , 由于不设定的话默认行高间距很小密密麻麻,所以可以自定义行高才合理
.参数 列宽
.参数 是否自适应行高列宽


补充内容 (2025-3-14 11:21):
增加2个表头和表格内容位置的参数:靠左边上下居中、上下左右居中、靠右边上下居中
作者: wh1234567    时间: 2025-3-14 11:14
b0y 发表于 2025-3-14 10:55
颜色可以自己改啊
RGB 颜色表与十六进制颜色值码 - Codeeeee 在线小工具
用颜色的名称 rgb()   #xxxxx ...

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

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


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

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

补充内容 (2025-3-14 13:57):
主要行高太密密麻麻了,最好是能自定义,还有为啥导出的内容靠边或居中不一制?发现其他列都是靠左的,而最后有一列却靠右了,不知在哪修正
作者: b0y    时间: 2025-3-14 15:03
wh1234567 发表于 2025-3-14 13:54
能支持的尽量完善一下吧,期待老师,我怕弄错了

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

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


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

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

补充内容 (2025-3-14 18:32):
那个表格内容靠左靠右居中,能不能修正一下,发现表格里的所有列不统一
作者: b0y    时间: 2025-3-14 19:16
wh1234567 发表于 2025-3-14 18:24
只差这几个功能了:还得指望老师添加完善一下了,呵呵呵,如果行高列宽无法增加的话,估计背景颜色和是否 ...




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

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


作者: b0y    时间: 2025-3-14 19:54


上一张按了下回车参数错位了  
作者: wh1234567    时间: 2025-3-14 20:27
b0y 发表于 2025-3-14 19:54
上一张按了下回车参数错位了

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

补充内容 (2025-3-14 20:41):
还有边框线粗细和颜色能不能自定义?
作者: wh1234567    时间: 2025-3-14 23:41
b0y 发表于 2025-3-14 19:54
上一张按了下回车参数错位了

表头和表格边框线粗细和颜色能不能自定义?现在只差行高列宽 这几个功能了,我觉得按现在的功能来说,行高也应该可以实现才对,期待老师佳音
作者: wh1234567    时间: 2025-3-15 04:34
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操作系统界面功能支持库
我修改增加了背景颜色和是否字体粗,导出后为啥变成了乱码?求老师帮修正一下是哪里的问题





补充内容 (2025-3-15 04:39):
当 编辑框3.内容 里有内容时 导出是正确的,但是当编辑框3里没有内容也就是不需要导出标题时就会出现导出变成了乱码的问题。求老师修正或指点.....
作者: wh1234567    时间: 2025-3-15 04:58
花间一壶酒 发表于 2025-3-13 11:46
“Range”对象下  “Value”属性  是写入内容  插入标题  无非是在首行  空出来内容  合并单元格  然后写入 ...

表格线粗细和颜色以及行高列宽,有没有办法自定义?
作者: b0y    时间: 2025-3-15 08:19
wh1234567 发表于 2025-3-15 04:34
[e=0].版本 2
.支持库 iext
.支持库 shell

报表和标题 本来就是自动对齐的 不需要你改
作者: b0y    时间: 2025-3-15 08:24
wh1234567 发表于 2025-3-14 20:27
老师深有研究,感谢老师,如果想加上“标题对齐方式”、“表头对齐方式”的话怎么添加代码呢?另外标题和 ...

报表和标题都是加粗中间对齐的  不用增加  
背景颜色不是有了吗
行高和行宽是不支持的  除非不用现在这种方法了
作者: wh1234567    时间: 2025-3-15 10:55
b0y 发表于 2025-3-15 08:24
报表和标题都是加粗中间对齐的  不用增加  
背景颜色不是有了吗
行高和行宽是不支持的  除非不用现在这种 ...

报表和标题默认都是加粗中间对齐,如果想自定义是否粗或左右中的话,我添加的代码对吗?为啥在我这里当标题内容无时会输出乱码?
作者: b0y    时间: 2025-3-15 11:02
wh1234567 发表于 2025-3-15 10:55
报表和标题默认都是加粗中间对齐,如果想自定义是否粗或左右中的话,我添加的代码对吗?为啥在我这里当标 ...

最后一版 已经可以自定义加粗不加粗了  
作者: b0y    时间: 2025-3-15 11:03
wh1234567 发表于 2025-3-15 10:55
报表和标题默认都是加粗中间对齐,如果想自定义是否粗或左右中的话,我添加的代码对吗?为啥在我这里当标 ...

乱码 那你用txt打开xls 看看你哪里的代码导致乱码了
作者: b0y    时间: 2025-3-15 11:04
用txt对比  其他你自己研究吧
作者: wh1234567    时间: 2025-3-15 11:11
b0y 发表于 2025-3-15 10:34

表头和表格线粗细的参数为啥想例如30更粗而无效呢?
作者: b0y    时间: 2025-3-15 11:33
wh1234567 发表于 2025-3-15 11:11
表头和表格线粗细的参数为啥想例如30更粗而无效呢?

太大了  一般也就1  2    0是没有
作者: b0y    时间: 2025-3-15 11:33
wh1234567 发表于 2025-3-15 11:11
表头和表格线粗细的参数为啥想例如30更粗而无效呢?

为啥无效 html我也不了解  百du一下 可能是太粗了?
作者: wh1234567    时间: 2025-3-15 11:39
b0y 发表于 2025-3-15 11:33
太大了  一般也就1  2    0是没有

我以为就像高级表格那样可以任意粗细,呵呵呵

补充内容 (2025-3-15 11:40):
这个粗细值允许最小是0,最大是多少?
作者: b0y    时间: 2025-3-15 11:46
wh1234567 发表于 2025-3-15 11:39
我以为就像高级表格那样可以任意粗细,呵呵呵

补充内容 (2025-3-15 11:40):

不知道 百du搜索  我也是百du着改的
作者: wh1234567    时间: 2025-3-15 12:03
b0y 发表于 2025-3-15 11:46
不知道 百du搜索  我也是百du着改的

报表线粗细和颜色,这个是指标题还是表头的?只要表格的参数设置了这个就感觉没啥变化了
作者: b0y    时间: 2025-3-15 12:13
wh1234567 发表于 2025-3-15 12:03
报表线粗细和颜色,这个是指标题还是表头的?只要表格的参数设置了这个就感觉没啥变化了 ...

报表的是 最上面那行居中的
作者: 10008508    时间: 2025-3-15 14:00
你把你的源码打包  (重要信息 不要发)  有人帮你改的

补充内容 (2025-3-15 14:00):
打包发出来
作者: wh1234567    时间: 2025-3-15 14:19
b0y 发表于 2025-3-15 12:13
报表的是 最上面那行居中的

http://www.chacuo.net/uploads/ch ... d76c6d0cae22708.jpg
发现不能将超级列表框里的日期按文本导出,导出后会格式变样或者乱码,老师再看看吧
作者: wh1234567    时间: 2025-3-15 15:02
b0y 发表于 2025-3-15 12:13
报表的是 最上面那行居中的

超级列表框导出XLS_html我修改后导出会乱码.e (10.58 KB, 下载次数: 2) 老师帮看看修正一下吧,为了便于任意对齐方式,我修改后,在导出时依然乱码和日期格式变样的问题

作者: wh1234567    时间: 2025-3-15 16:27
b0y 发表于 2025-3-15 11:03
乱码 那你用txt打开xls 看看你哪里的代码导致乱码了

导出xls用记事本打开的文件.txt (7.96 KB, 下载次数: 3)
我修改后端源码文件以及乱码截图和按您说的用记事本打开表格的文件全部上传了,老师最后帮看看到底是咋回事,辛苦老师了


补充内容 (2025-3-15 16:31):
如果是我修改后的源码存在问题,希望老师在我上传的源码文件上修正一下代码吧(保留3个对齐方式别删除)
作者: 花间一壶酒    时间: 2025-3-15 16:47
wh1234567 发表于 2025-3-15 04:58
表格线粗细和颜色以及行高列宽,有没有办法自定义?

都能定义  .....都在"Range"对象下  
作者: b0y    时间: 2025-3-15 17:18
wh1234567 发表于 2025-3-15 16:27
我修改后端源码文件以及乱码截图和按您说的用记事本打开表格的文件全部上传了,老师最后帮看看到底是咋回 ...







表头这里多了右尖括号啊 去掉就好了



作者: wh1234567    时间: 2025-3-15 18:18
b0y 发表于 2025-3-15 17:18
表头这里多了右尖括号啊 去掉就好了

具体怎么修改源码?

补充内容 (2025-3-15 18:21):
您下载我修改过的源码文件修正一下好吗?
作者: 花间一壶酒    时间: 2025-3-15 22:00
wh1234567 发表于 2025-3-15 15:02
老师帮看看修正一下吧,为了便于任意对齐方式,我修改后,在导出时依然乱码和日期格式变样的问题
...

给你用小虫子的COM对象模块写了下  他这个封装的比较完善

Desktop.rar

459.99 KB, 下载次数: 2


作者: wh1234567    时间: 2025-3-15 23:00
花间一壶酒 发表于 2025-3-15 22:00
给你用小虫子的COM对象模块写了下  他这个封装的比较完善

感谢老师帮助,以前搜索时通过各种给求助者回复的源码得知您是一位对表格精通的大佬,今天有幸看到您的回复与帮助,我想用b0y 的简单源码,您能不能按您说的"Range"对象下,添加一下行高列宽就行,因为这个源码比较简单,也不需要任何模块。期待老师帮助
作者: wh1234567    时间: 2025-3-16 00:35
b0y 发表于 2025-3-15 17:18
表头这里多了右尖括号啊 去掉就好了

表格内容全部按文本格式导出有没有办法?要不然就像日期这种文本导出后就变样了
作者: wh1234567    时间: 2025-3-16 03:08
b0y 发表于 2025-3-15 17:18
表头这里多了右尖括号啊 去掉就好了

http://www.chacuo.net/uploads/ch ... d76c6d0cae22708.jpg
发现不能将超级列表框里的日期按文本导出,导出后会格式变样或者乱码,问问老师如何导出时以文本或常规导出而不是以日期,应该再加个什么代码或者如何修正一下?
作者: wh1234567    时间: 2025-3-16 03:09
花间一壶酒 发表于 2025-3-15 16:47
都能定义  .....都在"Range"对象下

http://www.chacuo.net/uploads/ch ... d76c6d0cae22708.jpg
发现不能将超级列表框里的日期按文本导出,导出后会格式变样或者乱码,问问老师如何导出时以文本或常规导出而不是以日期,应该再加个什么代码或者如何修正一下?
作者: b0y    时间: 2025-3-16 06:56
wh1234567 发表于 2025-3-16 03:08
http://www.chacuo.net/uploads/charphoto/2025/20250315/2c56ac6fe90b5d62fd76c6d0cae22708.jpg
发现不 ...

要求这么多 换一个导出EXCEL看看  这个简易的很多属性不支持
时间用/和-又有什么关系呢


作者: b0y    时间: 2025-3-16 07:02
wh1234567 发表于 2025-3-16 03:08
http://www.chacuo.net/uploads/charphoto/2025/20250315/2c56ac6fe90b5d62fd76c6d0cae22708.jpg
发现不 ...

想要不同的列用不同的格式 那你得自己写一个导出  其他得估计都是统一的格式
作者: wh1234567    时间: 2025-3-16 11:53
b0y 发表于 2025-3-16 07:02
想要不同的列用不同的格式 那你得自己写一个导出  其他得估计都是统一的格式 ...

老师,经过仔细比对发现,其他列以及单元格都是常规,而第一列这个原本属于文本格式的只有整列显示是常规,但是下面的表头和表格也就是整列单元格属性都是日期的,所以才想到是什么原因导致不能统一为常规的,希望老师最后帮看看,其他问题比如行高我已经解决了,其实都支持的
作者: wh1234567    时间: 2025-3-16 11:57
b0y 发表于 2025-3-16 06:56
要求这么多 换一个导出EXCEL看看  这个简易的很多属性不支持
时间用/和-又有什么关系呢

您写的这个其实看着简易其实不简单而且方便调用,所有功能完全可以做到功能完整的。希望老师最后一个关于导出不能全部统一为常规的问题
作者: wh1234567    时间: 2025-3-16 16:39
b0y 发表于 2025-3-15 10:34

想增加一个参数名“工作表表名”,如果“工作表表名”的参数为空则默认为标题,如果标题也为空则自动为文件名,如何实现?




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4