一个统计EXCEL多少行的笨办法

letmove · 发表于 2018-3-14 04:20:48

我是个学了3天易语言的小白...百度以及论坛各种查找然并卵依然不明所以的新手....只能用这个笨办法了...希望对和我一样小白的朋友有帮助,不过貌似对数据量特别大的表格运行速度飞快的说

变量名	类型	静态	数组	备注
临时存储1	文本型
临时存储2	文本型

Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.激活工作簿 ()
Excel工作簿1.打开 (“C:\Users\Administrator\Desktop\123.xls”)  ' 设置表格路径
Excel工作簿1.表格序号＝ 1  ' 选择表格sheet1
Excel工作簿1.首单元格＝ “Z1”  ' 选择目标Z1的单元格
Excel工作簿1.尾单元格＝ “Z1”  ' 选择目标Z1的单元格
临时存储1 ＝ Excel工作簿1.内容  ' 为了防止Z1有数据,把Z1数据临时读取到"临时存储1"
输出调试文本 (临时存储))
Excel工作簿1.内容＝ “=COUNTA(A:A)”  ' 用EXCEL自带的功能"cha询A列里有效数据的总数"cha询A列里有多少个有效数据的单元格
输出调试文本 (到文本 (Excel工作簿1.内容))
临时存储2 ＝ Excel工作簿1.内容  ' 这个数就是有多少行了
Excel工作簿1.内容＝临时存储1  ' 最后再把Z1的数据还原回去
Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()
Excel程序1.退出 ()
Excel程序1.释放 ()

i支持库列表	支持库注释
eExcel2000	EXCEL2000支持库

小悟空 · 发表于 2018-7-13 05:27:20

很好，good，学到了！

ttaiyaaa · 发表于 2018-4-10 08:16:44

gfhg gfh gh

leonqp1030 · 发表于 2018-3-20 17:43:04

一键归零发表于 2018-3-16 09:43
能给一下代码吗

数据库连接.连接 (“Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=Excel Files;DBQ=F:\temp\1.xls;DefaultDir=F:\temp;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;";Initial Catalog=F:\temp\1.xls")

或者用odbc也简单,弄个dsn文件出来,把链接字符串拷出来加进代码里就行了

[ODBC]
DRIVER=Microsoft Excel-Treiber (*.xls)
UID=admin
UserCommitSync=Yes
Threads=3
SafeTransactions=0
ReadOnly=0
PageTimeout=5
MaxScanRows=8
MaxBufferSize=2048
FIL=excel 8.0
DriverId=790
DefaultDir=F:\tmp
DBQ=F:\tmp\1.xls

ttt0410 · 发表于 2018-3-19 05:28:14

我有个EXCEL操作的模块，在模块区，你自己下，直接3行命令就好了
E.创建
E.打开（）
E.取行数列数（行数）
行数这个变量就会取到这个EXCEL文件的行数

一键归零 · 发表于 2018-3-16 15:25:33

letmove 发表于 2018-3-15 02:44
如果数据量上W呢....

如果数据量上万呢

一键归零 · 发表于 2018-3-16 09:43:56

leonqp1030 发表于 2018-3-15 08:40
用oledb数据库的方式读行数更快

能给一下代码吗

leonqp1030 · 发表于 2018-3-15 08:40:06

用oledb数据库的方式读行数更快

leonqp1030 · 发表于 2018-3-15 08:38:34

letmove 发表于 2018-3-15 02:47
我用的就是2007啊,新装的热乎的,1天不到

我的不行,打开了就无法关闭...

letmove · 发表于 2018-3-15 02:47:19

leonqp1030 发表于 2018-3-14 10:08
excel2007已经无法用这个支持库了

我用的就是2007啊,新装的热乎的,1天不到

		自动登录	找回密码
密码			注册

[易源码分享] 一个统计EXCEL多少行的笨办法