Excelで複数のテキストファイルを1枚のシートに

質問

Excelで複数のテキストファイルを1枚のシートに追加したいのですが可能でしょうか？
VBAや別ソフトを複数使ってもかまいません。

2列のテキストファイルが複数ありA列目は共通でB列目がそれぞれ異なります。
data01.txt、data02.txt…と50ぐらいのファイルがあり、それぞれ

A　　B
10　1.24
20　2.56
30　2.46
：　　：
となっています。これをひとまとめにして

A　　　　　　B　　　　　C ・・・
data01　　data02 　　data03・・・ data50
10　　　　　1.24　　　　1.35 ・・・ 2.24
20　　　　　2.56　　　　2.22 ・・・ 1.34
30　　　　　2.46　　　　3.23 ・・・ 5.45
： 　　　　　　： 　　　　　：

といった表にしたいのです。
お願いします。

回答No.2

watabe007 · ベストアンサー

こんにちは、参考に
Sub Test()
　　Dim CN As New ADODB.Connection '参照設定　Microsoft ActiveX Data Objects 2.8 Library
　　Dim RS As ADODB.Recordset
　　Dim myPath As String
　　Dim FN As String, i As Long

　　myPath = "G:\" 'Txtファイルが置かれているパス
　　CN.Provider = "Microsoft.Jet.OLEDB.4.0"
　　CN.Properties("Extended Properties") = "Text;HDR=NO"
　　CN.ConnectionString = myPath
　　CN.Open

　　For i = 1 To 50
　　　　FN = "data" & Format(i, "00")
　　　　Cells(1, i + 1).Value = FN
　　　　If i = 1 Then
　　　　　　Set RS = CN.Execute("SELECT * FROM " & FN & ".txt")
　　　　　　Cells(2, 1).CopyFromRecordset RS
　　　　Else
　　　　　　Set RS = CN.Execute("SELECT F2 FROM " & FN & ".txt")
　　　　　　Cells(2, i + 1).CopyFromRecordset RS
　　　　End If
　　Next
　　RS.Close: Set RS = Nothing
　　CN.Close: Set CN = Nothing
End Sub

回答No.1

aokii

とりあえず、.txtファイルをエクセルで開いてみて、だめなら拡張子の.txtを.csvに変更してからエクセルで開いて、各シートとデータをマウスクリックで引用してみては。

お礼

回答ありがとうございます。
txtファイルをexcelで開くこと自体は問題ありません。
複数のファイルを1枚にまとめたいのです。

data01.txtをexcelで開くと
A列　B列
10　1.24
20　2.56
30　2.46
：　　：
という2列 x 数百行の表になります。同じくdata02.txtは
A列　B列
10　1.35
20　2.22
30　3.23
：　　：
という表になります。この様なファイルが50あって、ちなみに50番目のdata50.txtは
A列　B列
10　2.24
20　1.34
30　5.45
：　　：
となっていて、それを補足にあるような1枚の表にしたいのです。
（A列は共通でB列以降が各ファイルのB列をファイル名の順に追加した状態）

補足

すみません。質問が間違っていました。
修正します。

A　　　　　　B　　　　　C 　　・・・
　　　　　　data01　　data02 ・・・ data50
10　　　　　1.24　　　　1.35 ・・・ 2.24
20　　　　　2.56　　　　2.22 ・・・ 1.34
30　　　　　2.46　　　　3.23 ・・・ 5.45
： 　　　　　　： 　　　　　：　　　　：

といった具合にC列以降にそれぞれのファイルのB列部分だけを追加していきたいのです。