读书人

vb怎么统计excel文件中的数据记录条数

发布时间: 2012-01-18 00:23:26 作者: rapoo

vb如何统计excel文件中的数据记录条数?
dim count,i as Integer
'引用了excel插件
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
’调入CommonDialog控件 命名为cd1
cd1.FileName = ""
cd1.ShowOpen

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象

Set xlBook = xlApp.Workbooks.Open(cd1.FileName) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = False '设置EXCEL对象可见(或不可见)
Set xlSheet = xlBook.Worksheets(sss) '指定了sheet表为sss

...
代码省略
count=?????? ’这里想获取sss表中数据记录条数
...
Set xlApp = Nothing

Set xlApp = Nothing
xlBook.Close



'****问题如下:
我想打开任意一个xls文件,并且统计sss表中记录,谢谢!

[解决办法]
xlSheet.UsedRange.Rows.Count

读书人网 >VB

热点推荐