エクセルに二つのテキストファイルをインポートしたい

質問

エクセルのsheet1の1行目にタイトルがあります。
ボタンのクリックイベントで、テキストファイル2つをインポートしたいのですが。

・テキストファイルの名前は、固定ではありません
・テキストファイルの保存先は、デスクトップで、ファイルの選択は自分でしたい
・テキストファイルの一行目は、タイトル行なので、二行目以降をインポートしたい
行数は固定ではありません
・タブ区切りです

複数選択はできなく、1ファイルでタイトル行も含めるのであれば下記コードできたのですが。
どなたか、ご教示いただけますでしょうか・・・・
よろしくお願いいたします。

-----------------------------------------------------
Sub ReadTextFile()

'タブ区切りファイルを全て文字列として読み込む

Dim FileName As String
Dim i As Long
Dim Cnt As Long
Dim Buf As Variant
Dim FileNo As Integer
Dim SplitString As Variant

'ファイルダイアログを表示
FileName = Application.GetOpenFilename("テキストファイル,*.txt")

If FileName <> "False" Then

'全セル選択して書式を文字列にセットする
Cells.Select
Selection.NumberFormatLocal = "@"
Cells(1, 6).Select

'空いているファイル番号を取得
FileNo = FreeFile()
Buf = Space(FileLen(FileName))

'ファイルを開いてbufに1行読み込み
' → タブで配列に分割
' → セルに書き出し
Open FileName For Input As #FileNo
Do Until EOF(FileNo)
Line Input #FileNo, Buf
Cnt = Cnt + 1
SplitString = Split(Buf, vbTab)
For i = 0 To UBound(SplitString)
Cells(Cnt, i + 1) = SplitString(i)
Next i
Loop

Close #FileNo
Else
End If
End Sub

-----------------------------------------------------

回答No.1

ushi2015 · ベストアンサー

こんばんは

Sub ReadTextFile()

　　'タブ区切りファイルを全て文字列として読み込む

　　Dim FileName As Variant
　　Dim i As Long
　　Dim Cnt As Long
　　Dim Buf As Variant
　　Dim FileNo As Integer
　　Dim SplitString As Variant
　　Dim v As Variant

　　'ファイルダイアログを表示
　　FileName = Application.GetOpenFilename("テキストファイル,*.txt", , , , True)

　　If IsArray(FileName) = False Then Exit Sub

　　'全セル選択して書式を文字列にセットする
　　Cells.NumberFormatLocal = "@"

　　'2行目から
　　Cnt = 1

　　For Each v In FileName
　　　　'空いているファイル番号を取得
　　　　FileNo = FreeFile()

　　　　'ファイルを開いてbufに1行読み込み
　　　　' → タブで配列に分割
　　　　' → セルに書き出し
　　　　Open v For Input As #FileNo
　　　　'1行目不要
　　　　Line Input #FileNo, Buf

　　　　Do Until EOF(FileNo)
　　　　　　Line Input #FileNo, Buf
　　　　　　Cnt = Cnt + 1
　　　　　　SplitString = Split(Buf, vbTab)
　　　　　　For i = 0 To UBound(SplitString)
　　　　　　　　Cells(Cnt, i + 1) = SplitString(i)
　　　　　　Next i
　　　　Loop

　　　　Close #FileNo
　　Next

End Sub

で。

お礼

自分が思っていた通りの、処理ができました。
ありがとうございます。
初めてテキストファイルの読み込みの処理をつくりましたので、
これから、勉強をがんばりたいと思います。

本当にありがとうございます。