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.4

noname#22222

s_husky です。

FileExists()
FileReadArray()
FileWrite()

などの関数がないのが原因です。

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
　２ステップ、１ステップは質問者の好みです
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

No2、3の回答ですと、１ステップでエクセルに反映できます。
ただ、ファイルを送出する場合にタブをカンマ(,)にして拡張子をCSVにすればExcelシートは出来上がります。
こうして、一つひとつ成功を確認するのも手かということです。

※様々なライブラリを充実させて安直なコードでVBAを書くのか、それともその都度に書くのかは選択によります。
※質問者の関心の方向性が不明なので諸関数を伏せて回答した次第です。

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
　追加すべき関数
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

Option Explicit

Public Function FileWrite(ByVal FileName As String, _
　　　　　　　　　　　　　ByVal Text As String) As Boolean
On Error GoTo Err_FileWrite
　　Dim fso As FileSystemObject
　　Dim txs As TextStream

　　Set fso = New FileSystemObject
　　Set txs = fso.CreateTextFile(FileName, True)
　　txs.Write Text
　　FileWrite = True
Exit_FileWrite:
　　Exit Function
Err_FileWrite:
　　MsgBox Err.Description & "(FileWrite)", vbExclamation, " 関数エラーメッセージ"
　　Resume Exit_FileWrite
End Function

Public Function FileReadArray(ByVal FileName As String) As String()
On Error GoTo Err_FileReadArray
　　 Dim fso　　　　As FileSystemObject
　　 Dim fil　　　　As File
　　 Dim txs　　　　As TextStream
　　 Dim strText　　As String
　　 Dim strTexts() As String

　　 Set fso = New FileSystemObject
　　 Set fil = fso.GetFile(FileName)
　　 Set txs = fil.OpenAsTextStream(ForReading, TristateUseDefault)
　　 strText = txs.ReadAll
　　 strTexts = Split(strText, Chr$(13) & Chr$(10))
Exit_FileReadArray:
　　 FileReadArray = strTexts()
　　 Exit Function
Err_FileReadArray:
　　 MsgBox Err.Description & "(FileReadArray)", vbExclamation, " 関数エラーメッセージ"
　　 strTexts() = Split("")
　　 Resume Exit_FileReadArray
End Function

Public Function FileExists(ByVal FileName As String) As Boolean
　　Dim fso As FileSystemObject

　　Set fso = New FileSystemObject
　　FileExists = fso.FileExists(FileName)
End Function

補足

>※様々なライブラリを充実させて安直なコードでVBAを書くのか、それともその都度に書くのかは選択によります。
>※質問者の関心の方向性が不明なので諸関数を伏せて回答した次第です。
最終的に同じ結果が求まるにしても、その過程には様々な方法があると思います。手探りではありますが、少しずつ勉強していく中でこのようなプログラムに触れるのは良い刺激になります。
(ただ今は分からない事だらけですが）
追加すべき関数ということで
FileExists()
FileReadArray()
FileWrite()
の３つの関数を以前のプログラムとどうくっつけるのでしょうか。
ご助言頂ければ幸いです m(_ _)m