怎样得到EXCEL表的行数???

lag27 2003-08-22 03:06:09

Private appExcel As Excel.Application
Private shtExcel As Workbook

Private Sub cmdOpen_Click()
Dim lsFile As String
lsFile = "d:\book2.xls"

On Error Resume Next '忽略错误

Set appExcel = GetObject(, "Excel.Application")
'Excel 没有被运行
Set appExcel = CreateObject("Excel.Application")
Set shtExcel = appExcel.Workbooks.Open(lsFile)

Debug.Print appExcel.ActiveSheet.Name '运行正确
'想要得到当前SHEET的行数
Debug.Print appExcel.ActiveSheet.Rows '部件挂起，不能运行了

appExcel.ActiveWorkbook.Close
Set shtExcel = Nothing
Set appExcel = Nothing
End Sub

...全文

42 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

lag27 2003-08-22

打赏
举报

谢了!

schzh 2003-08-22

打赏
举报

Debug.Print appExcel.ActiveSheet.Rows，这是错误的，因为"rows"是一个对象，而不是数字，而且这个对象实在是太庞大了，所以当机，应该是appExcel.ActiveSheet.Rows.Count，但是这个数恒为65536（总行数）；如果你指用了的行数，应该是appExcel.ActiveSheet.UsedRange.Rows.Count。