エクセルに二つのテキストファイルをインポートしたい
エクセルの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
-----------------------------------------------------
お礼
ご回答有難うございました。