Sub Txt統合()
 
' マージするテキストファイルを集めたフォルダーを指定
    Dim FileFolder As String
    FileFolder = ThisWorkbook.Path & "\txt"
 
 
    ' そのフォルダー内のテキストファイルの名前を取得
    Dim FileName As String
    FileName = Dir(FileFolder & "\*.txt ")
 
    Dim FilePath As String
    FilePath = FileFolder & "\" & FileName
 
    Dim Buffer As String    '一時的に文字列を格納する
 
    Dim A As Variant    '文字列格納用配列
    ReDim B(99, 99)    '文字列格納用配列
    Dim i As Long
    i = 0
    Dim j As Long
    j = 0
    'ADODB.Stream定義
    Dim adoSt As Object
    Set adoSt = CreateObject("ADODB.Stream")
    adoSt.Type = 2  'adTypeText:2
    adoSt.Charset = "UTF-8"
 
 
    '使用可能なファイル番号を取得
    Dim FileNumber As Long
    FileNumber = FreeFile
 
    'フォルダ内のすべてのテキストファイルを処理する
    Do Until FileName = ""
        'Open FilePath For Input As #FileNumber
        FilePath = FileFolder & "\" & FileName
        adoSt.Open
        adoSt.LoadFromFile (FilePath)
        Debug.Print FileName
        Do While Not (adoSt.EOS)
            Buffer = adoSt.ReadText(-2)    'adReadLine:-2
 
            Debug.Print Buffer
 
            A = Split(Buffer, vbTab)
            For j = 0 To UBound(A)
                B(i, j) = A(j)
            Next j
            i = i + 1
 
        Loop
        adoSt.Close
        FileName = Dir()
        'i = i + 1
    Loop
 
    Range("A1").Resize(100, 100) = B
    MsgBox "処理が終了しました。", vbInformation
 
End Sub
 

U3ViIFR4dOe1seWQiCgpCgonIOODnuODvOOCuOOBmeOCi+ODhuOCreOCueODiOODleOCoeOCpOODq+OCkumbhuOCgeOBn+ODleOCqeODq+ODgOODvOOCkuaMh+WumgogICAgRGltIEZpbGVGb2xkZXIgQXMgU3RyaW5nCiAgICBGaWxlRm9sZGVyID0gVGhpc1dvcmtib29rLlBhdGggJiAiXHR4dCIKCgogICAgJyDjgZ3jga7jg5Xjgqnjg6vjg4Djg7zlhoXjga7jg4bjgq3jgrnjg4jjg5XjgqHjgqTjg6vjga7lkI3liY3jgpLlj5blvpcKICAgIERpbSBGaWxlTmFtZSBBcyBTdHJpbmcKICAgIEZpbGVOYW1lID0gRGlyKEZpbGVGb2xkZXIgJiAiXCoudHh0ICIpCgogICAgRGltIEZpbGVQYXRoIEFzIFN0cmluZwogICAgRmlsZVBhdGggPSBGaWxlRm9sZGVyICYgIlwiICYgRmlsZU5hbWUKCiAgICBEaW0gQnVmZmVyIEFzIFN0cmluZyAgICAn5LiA5pmC55qE44Gr5paH5a2X5YiX44KS5qC857SN44GZ44KLCgogICAgRGltIEEgQXMgVmFyaWFudCAgICAn5paH5a2X5YiX5qC857SN55So6YWN5YiXCiAgICBSZURpbSBCKDk5LCA5OSkgICAgJ+aWh+Wtl+WIl+agvOe0jeeUqOmFjeWIlwogICAgRGltIGkgQXMgTG9uZwogICAgaSA9IDAKICAgIERpbSBqIEFzIExvbmcKICAgIGogPSAwCiAgICAnQURPREIuU3RyZWFt5a6a576pCiAgICBEaW0gYWRvU3QgQXMgT2JqZWN0CiAgICBTZXQgYWRvU3QgPSBDcmVhdGVPYmplY3QoIkFET0RCLlN0cmVhbSIpCiAgICBhZG9TdC5UeXBlID0gMiAgJ2FkVHlwZVRleHQ6MgogICAgYWRvU3QuQ2hhcnNldCA9ICJVVEYtOCIKICAgIAoKICAgICfkvb/nlKjlj6/og73jgarjg5XjgqHjgqTjg6vnlarlj7fjgpLlj5blvpcKICAgIERpbSBGaWxlTnVtYmVyIEFzIExvbmcKICAgIEZpbGVOdW1iZXIgPSBGcmVlRmlsZQoKICAgICfjg5Xjgqnjg6vjg4DlhoXjga7jgZnjgbnjgabjga7jg4bjgq3jgrnjg4jjg5XjgqHjgqTjg6vjgpLlh6bnkIbjgZnjgosKICAgIERvIFVudGlsIEZpbGVOYW1lID0gIiIKICAgICAgICAnT3BlbiBGaWxlUGF0aCBGb3IgSW5wdXQgQXMgI0ZpbGVOdW1iZXIKICAgICAgICBGaWxlUGF0aCA9IEZpbGVGb2xkZXIgJiAiXCIgJiBGaWxlTmFtZQogICAgICAgIGFkb1N0Lk9wZW4KICAgICAgICBhZG9TdC5Mb2FkRnJvbUZpbGUgKEZpbGVQYXRoKQogICAgICAgIERlYnVnLlByaW50IEZpbGVOYW1lCiAgICAgICAgRG8gV2hpbGUgTm90IChhZG9TdC5FT1MpCiAgICAgICAgICAgIEJ1ZmZlciA9IGFkb1N0LlJlYWRUZXh0KC0yKSAgICAnYWRSZWFkTGluZTotMgogICAgICAgICAgICAKICAgICAgICAgICAgRGVidWcuUHJpbnQgQnVmZmVyCgogICAgICAgICAgICBBID0gU3BsaXQoQnVmZmVyLCB2YlRhYikKICAgICAgICAgICAgRm9yIGogPSAwIFRvIFVCb3VuZChBKQogICAgICAgICAgICAgICAgQihpLCBqKSA9IEEoaikKICAgICAgICAgICAgTmV4dCBqCiAgICAgICAgICAgIGkgPSBpICsgMQoKICAgICAgICBMb29wCiAgICAgICAgYWRvU3QuQ2xvc2UKICAgICAgICBGaWxlTmFtZSA9IERpcigpCiAgICAgICAgJ2kgPSBpICsgMQogICAgTG9vcAoKICAgIFJhbmdlKCJBMSIpLlJlc2l6ZSgxMDAsIDEwMCkgPSBCCiAgICBNc2dCb3ggIuWHpueQhuOBjOe1guS6huOBl+OBvuOBl+OBn+OAgiIsIHZiSW5mb3JtYXRpb24KCkVuZCBTdWIK