怎样得到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
...全文
22 2 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lag27 2003-08-22
谢了!
  • 打赏
  • 举报
回复
schzh 2003-08-22
Debug.Print appExcel.ActiveSheet.Rows,这是错误的,因为"rows"是一个对象,而不是数字,而且这个对象实在是太庞大了,所以当机,应该是appExcel.ActiveSheet.Rows.Count,但是这个数恒为65536(总行数);如果你指用了的行数,应该是appExcel.ActiveSheet.UsedRange.Rows.Count。
  • 打赏
  • 举报
回复
发帖
VB基础类

7617

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2003-08-22 03:06
社区公告
暂无公告