Excel读写库 LibXL3.94 最新修改版！！

yunlifan888

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 _按钮2_被单击
   
5. .局部变量 工作薄, EXCEL工作簿类
   
6. .局部变量 i, 长整数型
   
7. 
   
8. 工作薄.创建XLSX ()
   
9. 工作薄.打开文件 (“D:\查(52238805).xlsx”)
   
10. 工作表0 ＝ 工作薄.选择工作表 (0)
    
11. i ＝ 65510
    
12. .判断循环首 (i ＜ 65580)
    
13.     调试输出 (到文本 (i) ＋ “=” ＋ 工作表0.取单元格文本 (i, 0))
    
14.     i ＝ i ＋ 1
    
15. .判断循环尾 ()
    
16. 工作薄.释放 ()

复制代码

这是调试输出的内容：

从第65536行开始出错的，前面都正常，表里的数据都正常

yunlifan888

MYSTERDEVIL 发表于 2021-4-7 18:24
我测试了下 正常的呀

能把你的源码给我吗？谢谢

MYSTERDEVIL

yunlifan888 发表于 2021-4-7 18:23
是xlsx的，不是xls
超过65536行的每隔6行又能读出来6行，再有6行读不出来，又能读出6行
...

我测试了下 正常的呀

yunlifan888

MYSTERDEVIL 发表于 2021-4-7 18:05
你的文件肯定是  xls 吧  应为xls最大就是65536行

是xlsx的，不是xls
超过65536行的每隔6行又能读出来6行，再有6行读不出来，又能读出6行

MYSTERDEVIL

yunlifan888 发表于 2021-4-7 14:24
超过65536行就会出错，怎么解决啊，行变量我定义了长整型也不行
从第65537行开始有的行可以读出来，有的读 ...

你的文件肯定是  xls 吧  应为xls最大就是65536行

yunlifan888

超过65536行就会出错，怎么解决啊，行变量我定义了长整型也不行
从第65537行开始有的行可以读出来，有的读不出来，不知道为啥了
上图是excel里的从第65537行开始就会出错了

文本

上图是导出到文本文档里的
代码如下：

  

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

变量名	类 型	静态	数组	备 注
文件名	文本型		0
i	长整数型
工作簿	EXCEL工作簿类
工作表	EXCEL工作表类
终止行	整数型
起始行	整数型
起始列	整数型
终止列	整数型
多邮箱	文本型		0
n	整数型
其他信息	文本型
文件号	整数型
m	整数型

文件_枚举 (目录框1.目录, “*.xls|*.xlsx”, 文件名, 真, 真)
计次循环首 (取数组成员数 (文件名), m)
调试输出 (文件名 [m])
计次循环尾 ()
如果 (取数组成员数 (文件名) ＜ 1)
编辑框2.内容 ＝ “没有Excel文件，已结束”
返回 ()


文件号 ＝ 打开文件 (目录框1.目录 ＋ “\” ＋ 时间_取北京时间戳 () ＋ “.txt”, 5, )
计次循环首 (取数组成员数 (文件名), m)
编辑框2.内容 ＝ 到文本 (m) ＋ “/” ＋ 到文本 (取数组成员数 (文件名)) ＋ “，” ＋ 文件名 [m] ＋ “，” ＋ 到文本 (时间_取北京时间 ()) ＋ #换行符 ＋ 编辑框2.内容
如果 (文件_取扩展名 (文件名 [m]) ＝ “.xlsx”)
工作簿.创建XLSX ()
工作簿.创建XLS ()

工作簿.打开文件 (文件名 [m])
工作表 ＝ 工作簿.选择工作表 (0)
起始行 ＝ 到数值 (编辑框1.内容)
如果 (编辑框1.内容 ＝ “”)
起始行 ＝ 工作表.开始使用行 ()


起始列 ＝ 工作表.开始使用列 ()
终止列 ＝ 工作表.结束使用列 ()
终止行 ＝ 工作表.结束使用行 ()
进度条1.最小位置 ＝ 0
进度条1.最大位置 ＝ 终止行 － 起始行 － 1
i ＝ 起始行
编辑框2.内容 ＝ “文件一共有 ” ＋ 到文本 (终止行) ＋ “ 行,从第 ” ＋ 到文本 (起始行) ＋ “ 行开始” ＋ #换行符 ＋ 编辑框2.内容
判断循环首 (i ＜ 终止行)
进度条1.位置 ＝ i
其他信息 ＝ 工作表.取单元格文本 (i, 2) ＋ “,” ＋ 工作表.取单元格文本 (i, 0) ＋ “,” ＋ 工作表.取单元格文本 (i, 4) ＋ “,” ＋ 工作表.取单元格文本 (i, 19) ＋ “,” ＋ 工作表.取单元格文本 (i, 6) ＋ “,” ＋ 工作表.取单元格文本 (i, 7)
调试输出 (工作表.取单元格文本 (i, 11) ＋ “,” ＋ 其他信息)
写文本行 (文件号, 工作表.取单元格文本 (i, 11) ＋ “,” ＋ 其他信息)
如果 (文本_取长度 (工作表.取单元格文本 (i, 12)) ＞ 5)
多邮箱 ＝ 分割文本 (工作表.取单元格文本 (i, 12), “；”, )
计次循环首 (取数组成员数 (多邮箱), n)
调试输出 (多邮箱 [n] ＋ “,” ＋ 其他信息)
写文本行 (文件号, 多邮箱 [n] ＋ “,” ＋ 其他信息)
计次循环尾 ()



处理事件 ()
i ＝ i ＋ 1
判断循环尾 ()
工作簿.释放 ()
计次循环尾 ()
工作簿.创建XLSX ()
关闭文件 (文件号)
编辑框2.内容 ＝ “======整理完成======” ＋ 到文本 (时间_取北京时间 ()) ＋ #换行符 ＋ 编辑框2.内容

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文件名, 文本型, , "0"<br /> .局部变量 i, 长整数型<br /> .局部变量 工作簿, EXCEL工作簿类<br /> .局部变量 工作表, EXCEL工作表类<br /> .局部变量 终止行, 整数型<br /> .局部变量 起始行, 整数型<br /> .局部变量 起始列, 整数型<br /> .局部变量 终止列, 整数型<br /> .局部变量 多邮箱, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 其他信息, 文本型<br /> .局部变量 文件号, 整数型<br /> .局部变量 m, 整数型<br /> <br /> <br /> 文件_枚举 (目录框1.目录, “*.xls|*.xlsx”, 文件名, 真, 真)<br /> .计次循环首 (取数组成员数 (文件名), m)<br />     调试输出 (文件名 [m])<br /> .计次循环尾 ()<br /> .如果 (取数组成员数 (文件名) ＜ 1)<br />     编辑框2.内容 ＝ “没有Excel文件，已结束”<br />     返回 ()<br /> .否则<br /> <br /> .如果结束<br /> 文件号 ＝ 打开文件 (目录框1.目录 ＋ “\” ＋ 时间_取北京时间戳 () ＋ “.txt”, 5, )<br /> <br /> .计次循环首 (取数组成员数 (文件名), m)<br />     编辑框2.内容 ＝ 到文本 (m) ＋ “/” ＋ 到文本 (取数组成员数 (文件名)) ＋ “，” ＋ 文件名 [m] ＋ “，” ＋ 到文本 (时间_取北京时间 ()) ＋ #换行符 ＋ 编辑框2.内容<br />     .如果 (文件_取扩展名 (文件名 [m]) ＝ “.xlsx”)<br />         工作簿.创建XLSX ()<br />     .否则<br />         工作簿.创建XLS ()<br />     .如果结束<br /> <br />     工作簿.打开文件 (文件名 [m])<br />     工作表 ＝ 工作簿.选择工作表 (0)<br />     起始行 ＝ 到数值 (编辑框1.内容)<br />     .如果 (编辑框1.内容 ＝ “”)<br />         起始行 ＝ 工作表.开始使用行 ()<br />     .否则<br /> <br />     .如果结束<br />     起始列 ＝ 工作表.开始使用列 ()<br />     终止列 ＝ 工作表.结束使用列 ()<br />     终止行 ＝ 工作表.结束使用行 ()<br />     进度条1.最小位置 ＝ 0<br />     进度条1.最大位置 ＝ 终止行 － 起始行 － 1<br /> <br />     i ＝ 起始行<br /> <br />     编辑框2.内容 ＝ “文件一共有 ” ＋ 到文本 (终止行) ＋ “ 行,从第 ” ＋ 到文本 (起始行) ＋ “ 行开始” ＋ #换行符 ＋ 编辑框2.内容<br />     .判断循环首 (i ＜ 终止行)<br />         进度条1.位置 ＝ i<br />         其他信息 ＝ 工作表.取单元格文本 (i, 2) ＋ “,” ＋ 工作表.取单元格文本 (i, 0) ＋ “,” ＋ 工作表.取单元格文本 (i, 4) ＋ “,” ＋ 工作表.取单元格文本 (i, 19) ＋ “,” ＋ 工作表.取单元格文本 (i, 6) ＋ “,” ＋ 工作表.取单元格文本 (i, 7)<br />         调试输出 (工作表.取单元格文本 (i, 11) ＋ “,” ＋ 其他信息)<br />         写文本行 (文件号, 工作表.取单元格文本 (i, 11) ＋ “,” ＋ 其他信息)<br />         .如果 (文本_取长度 (工作表.取单元格文本 (i, 12)) ＞ 5)<br />             多邮箱 ＝ 分割文本 (工作表.取单元格文本 (i, 12), “；”, )<br />             .计次循环首 (取数组成员数 (多邮箱), n)<br />                 调试输出 (多邮箱 [n] ＋ “,” ＋ 其他信息)<br />                 写文本行 (文件号, 多邮箱 [n] ＋ “,” ＋ 其他信息)<br />             .计次循环尾 ()<br />         .否则<br /> <br />         .如果结束<br /> <br />         处理事件 ()<br />         i ＝ i ＋ 1<br />     .判断循环尾 ()<br />     工作簿.释放 ()<br /> <br /> .计次循环尾 ()<br /> 工作簿.创建XLSX ()<br /> 关闭文件 (文件号)<br /> 编辑框2.内容 ＝ “======整理完成======” ＋ 到文本 (时间_取北京时间 ()) ＋ #换行符 ＋ 编辑框2.内容

yunlifan888

非常好用，xls和xlsx都能用，遇到个问题，求帮忙

shanyukun

功能强大，例程有点少。

lxg164215916

感谢分享，试试好用不

艺术就是爆炸

谢谢分享。