【ExeclVBA】テキストファイルからExcelへ入力。Excelからテキストファイルへ出力する方法を紹介。

Sub ファイルから入力()
    検索パス = ThisWorkbook.Path
    検索ファイル名 = "入力データ.txt"
    
    '①テキストファイルを探す
    ファイルパス = ファイルパス取得(検索パス, 検索ファイル名)
    If ファイルパス = Empty Then
        MsgBox "ファイルが存在しません"
        Exit Sub
    End If
    
    '②テキストファイルの内容を読み込む
    ファイルの内容 = ファイルの内容を配列へ格納(ファイルパス)
    
    '③読み込んだ内容をエクセルに貼り付ける
    ファイルの行数 = UBound(ファイルの内容) + 1
    ファイルの内容2次配列 = WorksheetFunction.Transpose(ファイルの内容)
    Range("A1:A" & ファイルの行数) = ファイルの内容2次配列
End Sub

Function ファイルパス取得(パス, ファイル名)
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    For Each ファイル In FSO.GetFolder(パス).Files
        If ファイル.Name Like ファイル名 Then
            ファイルパス取得 = ファイル.Path
        End If
    Next
End Function

Function ファイルの内容を配列へ格納(ファイルパス)
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set テキストファイル = FSO.OpenTextFile(ファイルパス)
    ファイルの内容を配列へ格納 = Split(テキストファイル.ReadAll, vbLf)
    テキストファイル.Close
End Function

Sub ファイルへ出力()
    Const はい As Long = 6
    出力フォルダパス = ThisWorkbook.Path
    出力ファイル名 = "出力データ.txt"
    最終行 = Cells(Rows.Count, 1).End(xlUp).Row
    
    '①テキストファイルを探す
    ファイルパス = ファイルパス取得(出力フォルダパス, 出力ファイル名)
    If Not ファイルパス = Empty Then
        result = MsgBox("出力ファイル名と同じファイルが存在します。削除して進めますか？", vbYesNo + vbQuestion)
        Select Case result
            Case はい
                Kill ファイルパス
            Case Else
                MsgBox "処理を中止します。"
                Exit Sub
        End Select
    End If

    '②エクセルの内容を読み込む
    出力データ2次配列 = Range("A1:A" & 最終行)
    出力データ1次配列 = WorksheetFunction.Transpose(WorksheetFunction.Index(出力データ2次配列, 0, 1))
    出力データ = Join(出力データ1次配列, vbLf)


    '③読み込んだ内容をテキストファイルへ書き込む
    Call テキストファイルに出力(出力フォルダパス, 出力ファイル名, 出力データ)
End Sub

Sub テキストファイルに出力(フォルダパス, ファイル名, データ)
    Set FSO = CreateObject("Scripting.FileSystemObject")
    出力フルパス = FSO.BuildPath(フォルダパス, ファイル名)
    Set テキストファイル = FSO.CreateTextFile(出力フルパス)
    
    テキストファイル.Write (データ)
    テキストファイル.Close
End Sub