VBS 如何读取Excel中的每一行数据？

Question

Function ReadExcel(filepath,sheetname)
Dim objExcel,objWorkbook,ExcValue
Set objExcel = CreateObject ("Excel.Application")
objExcel.Visible = False
Set objWorkbook = objExcel.WorkBooks.Open(filepath)
objWorkbook.WorkSheets(sheetname).Activate
‘循环读取Sheet中的每一行数据
For i=1 to ???
ExcValue = objWorkbook.WorkSheets(sheetname).Cells(i,2).Value
Next
objExcel.DisplayAlerts = False
objExcel.save
objExcel.quit
Set objExcel = Nothing
Set objWorkbook = Nothing
ReadExcel = ExcValue
End Function
我不知道怎么获取当前sheet页中的行数，因此，以上代码中的？？？，我不知道该怎么写，请高手指教。

Answer 1

Set oexcel=CreateObject("excel.application")
Set obook=oexcel.Workbooks.Open("c:\test\excel.xls")
Set osheet=obook.Sheets("sheet1")
'显示第一个工作表A1单元格数据

msgbox osheet.cells(1,1)
Set obook=Nothing
Set osheet=Nothing
oexcel.Quit

Answer 2

For i=1 to 65536
ExcValue = objWorkbook.WorkSheets(sheetname).Cells(i,2).Value
If ExcValue="" then
exit For
End If

Next本回答被网友采纳

Answer 3

For i=1 to objWorkbook.WorkSheets(sheetname).range("A65536").end(xlup).row

或
For i=1 to activesheet.range("A65536").end(xlup).row