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

簡易なコードで
テキストファイルの行数を取得できます!

VBAコード

ここでは例として、デスクトップ配下のファイル「aiueo.txt」の行数を取得します。

Option Explicit

Sub sample()
    
    Dim fso As Object
    Dim fileName As String
    Dim lineCount As Long
    
    'ファイルのパスを指定
    fileName = "C:\Users\user\Desktop\aiueo.txt"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    'ファイルの行数を取得
    lineCount = fso.openTextFile(fileName, 8).Line
    
    MsgBox "ファイルの行数は「" & lineCount & "」です。"
    
    '後片付け
    Set fso = Nothing
    
End Sub

openTextFileの引数に「8(追記モード)」を指定してファイルを開いています。
よって読み取り専用ファイルだとエラーとなります。

csvファイルでも行数を取得できます。

実行結果

テキストファイルの行数を取得することが出来ました。

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