查找excel中最后一行时的问题

我正在尝试此代码以找出最后一行-

msgbox objExcel.ActiveWorkbook.Sheets（1）.Range（“A”&Rows.Count）.EndXL（up）.Row

但我一直在犯这个错误-

所需对象：行

尝试

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

只是你的末端（xlUp）部分出错了

试试看

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

---

只是你的末端（xlUp）部分出错了

这就是你要尝试的吗

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

---

另外，请注意使用

工作表而不是
工作表
请参见此以获取解释。
这就是您要尝试的吗

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

另请注意使用
工作表而不是
工作表
请参见此以获取解释。
这可能适用于：

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

这可能会奏效：

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

马特博伊给了你主要的错误。除此之外，您还必须完全限定
行
请参见此链接编辑：您是否在Excel中执行此操作？我有一种感觉，您正在使用vbscript？Mattboy向您提供了主要错误。除此之外，您还必须完全限定
行
请参见此链接编辑：您是否在Excel中执行此操作？我感觉你在使用vbscript？我试过这个代码..但现在它给出了一个错误，下标超出范围…这是什么意思？我在使用vbscript..嗯。。。尝试将其更改为
工作表（1）.Rows.Count
。这就是我认为Sid对完全限定行的含义。我尝试了-objExcel.ActiveWorkbook.Sheets（1）.Range（“A”&Sheets（1）Rows.Count）.End（xlUp）.Row..但是它得到了一个错误类型不匹配的表。您在表（1）和行之间缺少一个
，我想不是这样吧？否则我就被难住了。它在Excel中运行良好，但我不太熟悉vbscript，抱歉。仍然出现相同的错误…我更正了所有内容，但仍然出现相同的错误-需要对象行我尝试了此代码..但现在它出现错误，下标超出范围…这意味着什么？我正在使用vbscript..嗯。。。尝试将其更改为
工作表（1）.Rows.Count
。这就是我认为Sid对完全限定行的含义。我尝试了-objExcel.ActiveWorkbook.Sheets（1）.Range（“A”&Sheets（1）Rows.Count）.End（xlUp）.Row..但是它得到了一个错误类型不匹配的表。您在表（1）和行之间缺少一个
，我想不是这样吧？否则我就被难住了。它在Excel中工作正常，但我不太熟悉vbscript，抱歉。仍然出现相同的错误…我更正了所有问题，但仍然出现相同的错误-需要对象行最终…我只需要定义xlup以使代码运行..谢谢sid！！最后…我只需要定义xlup来运行我的代码..谢谢sid！！