「Visual Basic」Excelファイルの最終行数を取得する

*本サイトはアフィリエイト広告を利用しています。

このページではVisual BasicでExcelファイルの読み込み

データエリア最終行の行数を取得する方法を解説しています。

手順

COM参照の追加

Visual Basicでのコーディング

プログラム実行結果

他にも方法はありますが、僕はこの方法でプログラムを作成しています。

よろしければ参考にしてください。

スポンサーリンク
スポンサーリンク

COM参照の追加

Excel操作を行う場合はCOM参照を以下の手順で追加します。

手順1:「プロジェクト」→「COM 参照の追加」

手順2:「Microsoft Excel xx.x Object Library」をチェックし、「OK」をクリックします。

スポンサーリンク

コーディングサンプル

サンプルはフォームのボタンをクリックして動くようになっています。

Imports Microsoft.Office.Interop

Public Class Form1
    Private Sub okBtn_Click(sender As Object, e As EventArgs) Handles okBtn.Click

        Dim i As Long

        'Excelファイルのオープン
        Dim xl As Excel.Application = New Excel.Application
        Dim wbs As Excel.Workbooks = xl.Workbooks
        Dim wb As Excel.Workbook = wbs.Open("D:\data.xls")

        Dim ws As Excel.Worksheet = wb.Worksheets("sheet1")

        '最終行を変数iに格納する
        i = ws.Cells(ws.Rows.Count, 1).end(Excel.XlDirection.xlUp).row

        MsgBox(i)

        'クローズ
        xl.Quit()
        xl = Nothing


    End Sub
End Class

①Imports

Imports Microsoft.Office.Interop

②ファイルのオープン

        'Excelファイルのオープン
        Dim xl As Excel.Application = New Excel.Application
        Dim wbs As Excel.Workbooks = xl.Workbooks
        Dim wb As Excel.Workbook = wbs.Open("D:\data.xls")

        Dim ws As Excel.Worksheet = wb.Worksheets("sheet1")

③最終行を変数iに格納して、メッセージボックスに表示する

        '最終行を変数iに格納する
        i = ws.Cells(ws.Rows.Count, 1).end(Excel.XlDirection.xlUp).row

        MsgBox(i)

④ファイルのクローズ

        'クローズ
        xl.Quit()
        xl = Nothing

プログラム実行結果

入力データ

実行結果

コメント

タイトルとURLをコピーしました