VB获取Excel有效行列数出错

Question

Private Sub Command1_Click()
Dim xlBook As Object
Dim xlSheet As Object
CommonDialog1.ShowOpen
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(CommonDialog1.FileName)
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = Ture
' a= xlSheet.[A65536].End(xlUp).Row '获得有效行数 (1)
' b = xlSheet.[IV1].End(xlToLeft).Column '获得有效列数 (2)
a = xlSheet.UsedRange.Rows.Count (3)
b = xlSheet.UsedRange.Columns.Count (4)
Print a
Print b
Set xlssheet = Nothing
Set xlsWorkbook = Nothing
Set xlsApp = Nothing
End Sub
执行(1)(2)语句时提示“应用程序定义或对象定义错误”，执行(3)(4)时就正常，我想使用(1)(2)语句，哪里出错了？

Answer 1

我求A列最后 一行的行数是：
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
我求1 行最后 一列的列数是：
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column

追问

执行你这个程序提示“要求对象”（已将Excel.Workbooks.Worksheets(1)添加进入）

追答

请你选定你的工作表吧。

Answer 2

用range引用1.2.的单元格

追问

我要的是活动单元格，不是固定的单元格

追答

我说的是[a65536]使用range引用range(“a65536”)