ちょっと生きづらさを抱えた人へ、気持ちを楽にするためのお手紙です。

【VBA】テキストファイルの中身をすべて読み込む

筆箱にカンニングペーパーを入れる係のみすくです。こんにちは。
VBA関連だけまとめたブログもあります。
筆箱VBA
参照設定
ツール > 参照設定 >
Microsoft Scripting Runtime
Sub test()
    Dim buf As String
    buf = LoadTextFile("D:\dev\ExcelVBA\てすと.txt")
    Debug.Print buf
End Sub

'---------------------------------------------------------------------------------------------------
'【処 理 名】テキストファイル読み込み
'【処理概要】テキストファイルをすべて読み込む
'【引    数】[I]ByVal filePath As String    ファイルフルパス
'【返 却 値】テキストファイル取得結果
'---------------------------------------------------------------------------------------------------
Private Function LoadTextFile(ByVal filePath As String) As String
    Dim buf As String
    '参照設定 > Microsoft Scripting Runtime
    Dim oFso As FileSystemObject
    
    Set oFso = New FileSystemObject
    With oFso.GetFile(filePath).OpenAsTextStream
        buf = .ReadAll
        .Close
    End With
    Set oFso = Nothing
    
    LoadTextFile = buf
End Function
【VBA】テキストファイルを読み込んでExcelシートに書き込む

コメントを残す

メールアドレスが公開されることはありません。