查找excel中最后一行的问题

Question

我正在尝试使用此代码查找最后一行 -

msgbox objExcel.ActiveWorkbook.Sheets(1).Range("A" & Rows.Count).EndXL(up).Row

但我一直收到这个错误 -

Object required: Rows

Answer 1

尝试

objExcel.ActiveWorkbook.Sheets(1).Range("A" & Rows.Count).End(xlUp).Row

这只是你的End（xlUp）部分错了

Answer 2

这是你在尝试的吗？

Dim oXLApp, wb, ws

'~~> Define xlUp
Const xlUp = -4162

Set oXLApp = CreateObject("Excel.Application")

oXLApp.Visible = True

'~~> Open file. Chnage path as applicable
Set wb = oXLApp.Workbooks.Open("C:\Sample.xlsx")
Set ws = wb.Worksheets(1)

With ws
      MsgBox .Range("A" & .Rows.Count).End(xlUp).Row
End With

另请注意使用Worksheets而不是Sheets请参阅此link以获取解释。

Answer 3

这可能有效：

dim last as integer
ActiveCell.SpecialCells(xlLastCell).Select
last = ActiveCell.SpecialCells(xlLastCell).Row