EXCEL、VBA

【VBA】テキストファイルを読込み配列に格納する

テキストファイルを読込み配列に格納する

テキストファイルを読込み配列に格納する関数です。

引数　fileName：テキストファイルのファイルパス（フルパス）

戻り値　配列

Public Function readFile(ByVal filePath As String) As String()

    Dim strArray() As String
    Dim fso As Object
    
    'ファイル存在確認
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(filePath) = False Then
        readFile = strArray
        Exit Function
    End If
    Set fso = Nothing
    

    Dim intNo As Integer
    Dim intCount As Integer
    Dim strBuff As String
        
On Error GoTo Catch
        
        intNo = FreeFile()
        Open filePath For Input As #intNo       ' ファイルをオープン

        intCount = 0
        Do Until EOF(intNo)
            Line Input #intNo, strBuff
            ReDim Preserve strArray(intCount)
            strArray(intCount) = strBuff
            intCount = intCount + 1
        Loop

Finally:
        readFile = strArray
        Close #intNo 'ファイルクローズ
        Exit Function
Catch:
        GoTo Finally

End Function

 

実行例

Dim arr
arr = readFile("C:\test\testfile.txt")