怎样得到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