excel - Excelで最後の行を見つける際の問題

Question

最後の行を見つけるためにこのコードを試しています-

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

しかし、私はこのエラーを受け取り続けています-

Object required: Rows

Answer 1

これはあなたがしようとしていることですか？

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このリンクを参照してください。