テキストファイルの行数を取得する

今回はテキストファイルの行数取得についてメモしておきます。

OpenTextFileメソッドを使います。

実行プログラム

Sub Sample7_15_1()

    Dim objFSO   As Object
    Dim lngRow   As Long

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    With objFSO.OpenTextFile("C:\excelmemo\Sample7_15.csv", ForAppending)
        lngRow = .Line - 1
        .Close
    End With

    MsgBox lngRow & "行"

    Set objFSO = Nothing

End Sub

Sub Sample7_15_1()

Dim objFSO As Object

Dim lngRow As Long

Set objFSO = CreateObject("Scripting.FileSystemObject")

With objFSO.OpenTextFile("C:\excelmemo\Sample7_15.csv", ForAppending)

lngRow = .Line - 1

.Close

End With

MsgBox lngRow & "行"

Set objFSO = Nothing

End Sub

実行条件

実行結果