主题：[求助]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

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

 

此主题相关图片如下：qq截图20130626163711.png

你要只获得你圈中部分的行数? 那这麻烦了.

是啊，我只要这里的行数，其他的不需要，大神想想办法啊

你例子也没个,办法是没有的

把这个excel文件发上来。

遍历，找到关键字（头尾的，尾部或许是空字符），即可确定行数了。

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

excel模板：

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:设备说明.xlsx

导入的excel文件：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:设备说明.xlsx

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

上面的问题已经解决了，是通过增加一行插入一行数据，最后将所有空行删除解决的。