以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]foxtable如何统计excel行数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=35220)

--  作者:xu3180497
--  发布时间:2013/6/26 16:36:00
--  [求助]foxtable如何统计excel行数

有一个excel,现在想在foxtable中一次性将excel的数据导入到表中,excel中数据行数不固定,想知道有什么办法能够在foxtable中将excel表记录的行数信息统计起来存放在一个变量中,比如

Dim count as Integer \'count用于统计excel数据行数

count = 。。。。。。(怎么得出这个count的值)

Dim r As Row = Tables("基本信息表").AddNew(count)
注:excel的标题行并不是在第一行第一列也不一定是A列,但是那几个列的名称是固定的。如下所示:


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20130626163711.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2013-6-26 16:38:10编辑过]

--  作者:Bin
--  发布时间:2013/6/26 16:45:00
--  
Dim Book As New XLS.Book("c:\\test\\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
count =Sheet.Rows.Count

--  作者:xu3180497
--  发布时间:2013/6/26 16:57:00
--  

大神,我的表的count是不定的啊,这个表只是我整个excel中的一部分,不是全部啊。怎么办?

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20130626163711.png
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2013/6/26 16:59:00
--  
你要只获得你圈中部分的行数? 那这麻烦了.
--  作者:xu3180497
--  发布时间:2013/6/26 17:14:00
--  
是啊,我只要这里的行数,其他的不需要,大神想想办法啊
--  作者:don
--  发布时间:2013/6/26 17:17:00
--  
你例子也没个,办法是没有的图片点击可在新窗口打开查看
--  作者:狐狸爸爸
--  发布时间:2013/6/26 18:08:00
--  
把这个excel文件发上来。
--  作者:e-png
--  发布时间:2013/6/26 20:46:00
--  
遍历,找到关键字(头尾的,尾部或许是空字符),即可确定行数了。
--  作者:xu3180497
--  发布时间:2013/6/27 8:48:00
--  

我后来想了一下,其他的位置的单元格都是固定的,就是那个附属设备表的记录数不固定,如果我得到整个excel的行数再减去那些固定的excel单元格的行数,剩下的不就是那个附属设备表所占的行数。但是我对这个excel行数不是很明白,输出的最终行数是37。是不是跟我当初设置的excel模板有关系呢,我的那个excel数据就是按照我的模板导出的,不过数据我自己随便改了一下,格式什么的和我原来导出的一模一样。请大神分析一下。

excel模板:

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:设备说明.xlsx

导入的excel文件:

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:设备说明.xlsx

但是又有另外一个问题,我当时模板设置的时候那张附属设备表我是固定给它9行的空间的。没有数据的就补充空行(这是为打印设计的),但是再导入到报表中那些空行难道也要导入进去吗?能不能在excel导入的时候有效的删除不需要导入的那些空行呢?如果可以的话,那就可以直接addnew(9)了。就不用那么麻烦了。

[此贴子已经被作者于2013-6-27 9:21:41编辑过]

--  作者:xu3180497
--  发布时间:2013/6/27 10:08:00
--  
上面的问题已经解决了,是通过增加一行插入一行数据,最后将所有空行删除解决的。