Excelの末端行列を得たい

Question

VBAで　よく最終行列を得るコーディングをみかけますが
同様のことを　VB.NETで達成する方法を　ご存じの方　教えて頂けないでしょうか？

一先ずブックの内容をコンソールに出してみようと思っているのが　以下コードなのですが　実行すると

公開メンバー 'get_End' は型 'Range' に見つかりませんでした。
```　
というエラーをまねいています。



```VB.NET
Dim exl As New Microsoft.Office.Interop.Excel.Application
Dim sh As Microsoft.Office.Interop.Excel.Worksheet
Dim wb As Microsoft.Office.Interop.Excel.Workbook
Dim rg As Microsoft.Office.Interop.Excel.Range							'★あっているか分からない

Try

    File1.PostedFile.SaveAs(savepath & "hoge.xlsx")
    wb = exl.Workbooks.Open(savepath & "hoge.xlsx")
    sh = wb.Sheets(1)
    rg = sh.Range("A1")

    Dim maxcul As String
    maxcul = rg.get_End(Microsoft.Office.Interop.Excel.XlDirection.xlToRight).Column.ToString() '★そんなメソッドないらしい
    For Each r In sh.Range("A1:" & maxcul)
        System.Diagnostics.Debug.Print(r.Value)
    Next


Catch ex As Exception
    
    System.Diagnostics.Debug.Print("### " & ex.Message & " ###")
    File1.Focus()
Finally

    exl.Quit()
End Try

参考にした記事はこちらになります

Answer 1

環境はないので最終行について検索結果です。

Dim xlLog As Excel.Range =
xlSheet.Range("A" & xlSheet.Rows.Count).End(Excel.XlDirection.xlUp)

リンク内容

Comments

[saya24]

ありがとうございます。
こちらの対応方針で当初進めていたのですが、ブックへのアクセス方法を変えることとなり、もはや終端を得る必要がなくなってしまいました。
レコードセットとしてえるようにします。

貴重なお時間を頂いてしまい申し訳ございませんでした。
また、次回役立てるように致します、ありがとうございました。

Answer 2

検証できていませんが、
Range.SpecialCells(xlCellType,object)というメソッドがあるようです
xlCellTypeLastCell というオプションで使用範囲の最終セルを取り出せそうです。

リファレンス：
https://docs.microsoft.com/en-us/dotnet/api/microsoft.office.interop.excel.range.specialcells?view=excel-pia

Comments

[saya24]

ありがとうございます。
ちょっと使い方がわからなくて、今　確認を進めています。どこのセルを基準に、ということでなく、シートのセル全体を対象とするメソッドなのですかね。

適用できたら報告改めます。