このページではVisual BasicでExcelファイルの読み込み
データエリア最終行の行数を取得する方法を解説しています。
手順
COM参照の追加
Visual Basicでのコーディング
プログラム実行結果
他にも方法はありますが、僕はこの方法でプログラムを作成しています。
よろしければ参考にしてください。
COM参照の追加
Excel操作を行う場合はCOM参照を以下の手順で追加します。
手順１：｢プロジェクト」→｢COM 参照の追加」
手順２：｢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プログラム実行結果
入力データ
実行結果
