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