vb如何求表格的末行

smhf_6

如果您安装了VB，帮我想想办法，在EXCEL中求末行的语句，在VB中就是通不过（暂发现仅这条通不过）
duquancai老师，帮我看看哦，谢谢了

Private Sub Command1_Click()

   Dim Ex As Object   

   Dim Exwbook As Object

    Dim Exsheet AsObject

       Set Ex= CreateObject("Excel.Application")

      Set Exwbook = Ex.Workbooks.Open("d:\123.xlsx")

      Set Exsheet = Exwbook.sheets(1）

   '  ir= Exsheet.Range("A60000").End(xlup).Row

   '  ir= Exsheet.Columns("A:A").SpecialCells(xlCellTypeLastCell).Row

   '  ir= Ex.activesheet.Range("A60000").End(xlup).Row

   '  ir= Exsheet.Range("A65500").End(Excel.XlDirection.xlUp).Row.ToString()

    ir = Exsheet.usedrange.Rows.Count    '本条通过

arr = Exsheet.Range("a6:n" & ir)

这里是数据处理代码，略

………………………………..

    Exwbook.Save            　

    Exwbook.Close            　

    Ex.Quit ' 退出 Excel

    Set Exsheet = Nothing

    Set Exwbook = Nothing

    Set Ex = Nothing

End sub

vbee

Exsheet.Range("A60000").End(xlup).Row

smhf_6

vbee 发表于 2018-8-5 18:29
Exsheet.Range("A60000").End(xlup).Row

不行的，我在上面写了好几条，都不行

ivccav

smhf_6 发表于 2018-8-5 18:35
不行的，我在上面写了好几条，都不行

把End(xlup)改为End(3)即可。VB可不知道xlup是什么，xlup是VBA中的常量，不是VB的

smhf_6

非常感谢ivccav，您的方法通过，是正确的。但奇怪的是：

     VB 不认识 "xlup", 但认识 "3" ?
     凡是涉及表格的，每句开头都带了帽子，比如Ex,  Exsheet, 应该是认识的，就好像字典，本身也不是VB的东西，但是开头创建了对象，createobject, 后面就可以用了。       就是引用工作表函数，开头写个对象Ex,也可以用了。
      太爷爷（Ex） 带着我（曾孙 xlup）走远房亲戚，他可以喝酒，我就被踢出了家门？