关于libxl导出超级列表框

vcenio

1.zip (2.28 MB, 下载次数: 6)

5 天前 上传

点击文件名下载附件 请问为什么会导出失败

kike

  

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

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

调试输出 (Excel导出_超级列表框 (超级列表框1, “sheet1”, 19, 取运行目录 () ＋ “\新建文件夹\1.xls”))

子程序名	返回值类型	公开	备 注
Excel导出_超级列表框	逻辑型
参数名	类 型	参考	可空	数组	备 注
超级列表框_	超级列表框				超级列表框优先
工作表名	文本型
列宽	整数型				默认19
路径	文本型				Excel保存路径\理论支持（ 2003、2007、2010、2016）格式文件

变量名	类 型	静态	数组	备 注
句柄	整数型
总数	长整数型
a	整数型
b	整数型
c	整数型
d	整数型
e	文本型
f	整数型
终止列	整数型
i	整数型
表头	文本型		0

计次循环首 (超级列表框_.取列数 (), i)
加入成员 (表头, 超级列表框_.取列标题 (i － 1))
计次循环尾 ()
如果真 (是否为空 (列宽))
列宽 ＝ 19
总数 ＝ 超级列表框_.取表项数 ()
句柄 ＝ libxl初始化_ ()
调试输出 (“句柄”, 句柄)
c ＝ xlBookInsertSheetA (句柄, xlBookSheetCountA (句柄), 取文本指针1 (工作表名), 0)
调试输出 (“c”, c)
a ＝ xlBookAddFormatA (句柄, 0)
调试输出 (“a”, a)
xlFormatSetBorderA (a, 1)
调试输出 (取数组成员数 (表头))
计次循环首 (取数组成员数 (表头), b)
调试输出 (取文本指针1 (表头 [b]))
xlSheetWriteStrA (c, 0, b － 1, 取文本指针1 (表头 [b]), a)
计次循环尾 ()
终止列 ＝ 取数组成员数 (表头)
计次循环首 (总数, d)
计次循环首 (终止列, b)
e ＝ 超级列表框_.取标题 (d － 1, b － 1)
xlSheetWriteStrA (c, d, b － 1, 取文本指针1 (e), a)
计次循环尾 ()
计次循环尾 ()
xlSheetAddIgnoredErrorA (c, 0, 0, d, b, 255)  ' 添加表格忽略错误
xlSheetSetColA (c, 0, 终止列, 列宽, 0, 0)  ' 调整列宽
f ＝ xlBookSaveA (句柄, 取文本指针1 (路径))
xlBookReleaseA (句柄)
返回 (f ＝ 1)

子程序名	返回值类型	公开	备 注
libxl初始化_	整数型		调用libxl插件前必须初始化，返回句柄

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

如果真 (文件是否存在 (取运行目录 () ＋ “\libxl.dll”) ＝ 假)
写到文件 (取运行目录 () ＋ “\libxl.dll”, #libxl )
处理事件 ()
句柄 ＝ xlCreateXMLBookCA ()  ' 初始化
xlBookSetKeyA (句柄, 取文本指针1 (“HeiYe”), 取文本指针1 (“windows-2220200f01c5e9016fb86160afo5raf1”))  ' 注册
返回 (句柄)

子程序名	返回值类型	公开	备 注
取文本指针1	整数型		取变量数据地址
参数名	类 型	参考	可空	数组	备 注
文本	文本型

置入代码 ({ 139, 69, 8, 139, 0, 139, 229, 93, 194, 4, 0 })
返回 (0)

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

变量名	类 型	静态	数组	备 注
a	文本型		0
i	整数型
ii	整数型
iii	整数型

文件_枚举 (取运行目录 () ＋ “\新建文件夹”, “*.*”, a, 假, , )
i ＝ 取数组成员数 (a)
如果真 (a ＞ 0)
计次循环首 (i, ii)
iii ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (iii, 0, a [ii])
超级列表框1.置标题 (iii, 1, a [ii])
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 调试输出 (Excel导出_超级列表框 (超级列表框1, “sheet1”, 19, 取运行目录 () ＋ “\新建文件夹\1.xls”))<br /> <br /> .子程序 Excel导出_超级列表框, 逻辑型, 公开<br /> .参数 超级列表框_, 超级列表框, 可空, 超级列表框优先<br /> .参数 工作表名, 文本型<br /> .参数 列宽, 整数型, 可空, 默认19<br /> .参数 路径, 文本型, , Excel保存路径\理论支持（ 2003、2007、2010、2016）格式文件<br /> .局部变量 句柄, 整数型<br /> .局部变量 总数, 长整数型<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 c, 整数型<br /> .局部变量 d, 整数型<br /> .局部变量 e, 文本型<br /> .局部变量 f, 整数型<br /> .局部变量 终止列, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 表头, 文本型, , "0"<br /> <br /> .计次循环首 (超级列表框_.取列数 (), i)<br />     加入成员 (表头, 超级列表框_.取列标题 (i － 1))<br /> .计次循环尾 ()<br /> .如果真 (是否为空 (列宽))<br />     列宽 ＝ 19<br /> .如果真结束<br /> 总数 ＝ 超级列表框_.取表项数 ()<br /> 句柄 ＝ libxl初始化_ ()<br /> 调试输出 (“句柄”, 句柄)<br /> c ＝ xlBookInsertSheetA (句柄, xlBookSheetCountA (句柄), 取文本指针1 (工作表名), 0)<br /> 调试输出 (“c”, c)<br /> <br /> a ＝ xlBookAddFormatA (句柄, 0)<br /> 调试输出 (“a”, a)<br /> <br /> xlFormatSetBorderA (a, 1)<br /> 调试输出 (取数组成员数 (表头))<br /> <br /> .计次循环首 (取数组成员数 (表头), b)<br />     调试输出 (取文本指针1 (表头 <strong>))<br />     xlSheetWriteStrA (c, 0, b － 1, 取文本指针1 (表头 <strong>), a)<br /> .计次循环尾 ()<br /> 终止列 ＝ 取数组成员数 (表头)<br /> .计次循环首 (总数, d)<br />     .计次循环首 (终止列, b)<br />         e ＝ 超级列表框_.取标题 (d － 1, b － 1)<br />         xlSheetWriteStrA (c, d, b － 1, 取文本指针1 (e), a)<br />     .计次循环尾 ()<br /> <br /> .计次循环尾 ()<br /> xlSheetAddIgnoredErrorA (c, 0, 0, d, b, 255)  ' 添加表格忽略错误<br /> xlSheetSetColA (c, 0, 终止列, 列宽, 0, 0)  ' 调整列宽<br /> f ＝ xlBookSaveA (句柄, 取文本指针1 (路径))<br /> xlBookReleaseA (句柄)<br /> 返回 (f ＝ 1)<br /> <br /> .子程序 libxl初始化_, 整数型, 公开, 调用libxl插件前必须初始化，返回句柄<br /> .局部变量 句柄, 整数型<br /> <br /> .如果真 (文件是否存在 (取运行目录 () ＋ “\libxl.dll”) ＝ 假)<br />     写到文件 (取运行目录 () ＋ “\libxl.dll”, #libxl)<br />     处理事件 ()<br /> <br /> .如果真结束<br /> 句柄 ＝ xlCreateXMLBookCA ()  ' 初始化<br /> xlBookSetKeyA (句柄, 取文本指针1 (“HeiYe”), 取文本指针1 (“windows-2220200f01c5e9016fb86160afo5raf1”))  ' 注册<br /> 返回 (句柄)<br /> <br /> <br /> .子程序 取文本指针1, 整数型, , 取变量数据地址<br /> .参数 文本, 文本型, 参考<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 0, 139, 229, 93, 194, 4, 0 })<br /> 返回 (0)<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 a, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 ii, 整数型<br /> .局部变量 iii, 整数型<br /> <br /> 文件_枚举 (取运行目录 () ＋ “\新建文件夹”, “*.*”, a, 假, , )<br /> i ＝ 取数组成员数 (a)<br /> .如果真 (a ＞ 0)<br />     .计次循环首 (i, ii)<br />         iii ＝ 超级列表框1.插入表项 (, , , , , )<br />         超级列表框1.置标题 (iii, 0, a [ii])<br />         超级列表框1.置标题 (iii, 1, a [ii])<br />     .计次循环尾 ()<br /> <br /> .如果真结束

补充内容 (2025-7-15 12:41):
文件上传不了。

vcenio

kike 发表于 2025-7-15 12:41
[e=3].版本 2
.支持库 spec
.支持库 iext

请问是不是就改了超级列表框写入数据那段呢？挺奇怪的，你的就成功了，然后我把那段改回原来按钮位置也成功了，仔细对比也没发现别处修改

补充内容 (2025-7-15 13:28):
我把我上传的那个源码，置标题那段放__启动窗口_创建完毕那，还是会崩，一行行对比没发现区别啊，55555