vb.net excel の最終行の求め方

Question

下記コードでexcelのデータの最終行を求めようとすると、「オブジェクト参照がオブジェクトインスタンスに設定されていません」というエラーで求められません。

どなたか、最終行の求める方法が解る方、ご教授願います。

【コード】
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim xl As Object
Dim i As Long
Dim lngCnt As Long '読込件数
Dim i_idx As Long

    Dim sheets As Excel.Sheets = Nothing
    Dim end_cnt As Integer = 1              '最終行

    xl = CreateObject("Excel.Application")

    Try
        ' 変数の初期化
        'lngExcelCnt = 0
        i = 1
        lngCnt = 0

        i_idx = 0
        'Erase sp1(i_idx)

        ' 読み込むEXCELオープン
        xl.Workbooks.Open("ﾘｽﾄ.xlsx")
        xl.Application.Visible = False     ' 非表示 （実行時は必ず非表示で行う）

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

        ここでエラー発生

         end_cnt = sheets(1).Cells.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Row

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

        '取込ファイル 3行目より処理
        For i = 3 To end_cnt '行数カウント

Comments

[退会済みユーザー]

コードは ``` で囲ってください

Answer 1

end_cnt = sheets(1).Cells.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Row

とありますが、

Dim sheets As Excel.Sheets = Nothing

と宣言されてNothingで初期化されていて、その後値がセットされていません。

set Sheets(1) = WorkSheets("シート名")

など、Sheets(1)に値をセットしてください。