小小问题,来者有分,在线等待!

Question

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlWorksheet As Excel.Worksheet
Dim xlActiveSheet As Excel.WorksheetSet xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open("C:\123.xls"))
Set xlWorksheet = xlBook.Worksheets("sheet1")
Set xlActiveSheet = xlApp.ActiveSheet
    
lblTotal.Caption = xlActiveSheet.UsedRange.Rows.count - 1
    
xlBook.Close
Set xlBook = Nothing
Set xlApp = Nothing
Set xlWorksheet = Nothing
Set xlActiveSheet = Nothing