VBAでテキストファイルのデータを読み込んでExcelで開く＋α

質問

テキストファイルをExcelファイルとして読み込む事が多く、その量に加えデータの並び方が特殊な為困っております。
テキストファイルのデータの並びをExcelで上下逆順に読み込ませるにはどのようにすればいいでしょうか？
また、まとめて複数のテキストファイルを上記の状態で自動的にシートごとに分けて出力させたりしたいのですが。

(例-１行目は無視)

---テキストデータ(タブ区切り)---
0　0
10　02　11
05　02　15
01　20　25
12　15　10

---Excelシートデータ---
0　0
12　15　10
01　20　25
05　02　15
10　02　11

回答No.3

BLUEPIXY

'試しに作ってみました。適当に変更して下さい
'文字列で読み込んでいるので、数値にする場合は、・・
'---------------------------------------------------------------
Public Sub readFile(filename As String)
Dim path As String, data As String
Dim fso As Object, fi As Object
Dim separator As String
Dim a As Variant, b As Variant
Dim i As Long, MaxRow As Long

separator = vbTab 'タブ区切り
path = ActiveWorkbook.path '起動ディレクトリ
ActiveWorkbook.Sheets.Add '新しいシートを用意する
ActiveSheet.Name = filename '既にファイルが有る場合エラー！！
Set fso = CreateObject("Scripting.FileSystemObject")
Set fi = fso.OpenTextFile(path & "\" & filename)
data = fi.ReadLine '一行読込
a = Split(data, separator)
Range("A1").Resize(, UBound(a) + 1) = a
data = fi.ReadAll
b = Split(data, vbCrLf)
MaxRow = UBound(b) - 1 '最後の改行によるデータ分を－１する、改行で終わらない場合は補正不要
For i = 0 To MaxRow
a = Split(b(MaxRow - i), separator) '逆順にセット
Range("A2").Offset(i).Resize(, UBound(a) + 1) = a
Next

fi.Close
Set fi = Nothing
Set fso = Nothing

End Sub
Public Sub fileInput()
'ファイルがたくさんある場合は、リストを作ってループ
Call readFile("input1.txt")
End Sub

補足

ご回答ありがとうございます。
それ以前に実行方法を自分が把握出来ていません...