Sub ファイルが開いていない状態で最終行を取得する()

    Set DB接続 = CreateObject("ADODB.Connection")
    Set DB読込 = CreateObject("ADODB.Recordset")
    
    With DB接続
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .Properties("Extended Properties") = "Excel 12.0"
        .Properties("Data Source") = "C:\test.xlsm" 'ファイル名をフルパスで指定
        .Open
    End With
    
    DB読込.Open "SELECT * FROM [Sheet1$]", DB接続, 3 'Sheet1がシート名
    
    MsgBox "最終行は" & DB読込.RecordCount + 1 '1行目がカットされるので足す
    
    DB読込.Close
    DB接続.Close

End Sub