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

noname#22222

ファイルそのものの並びを入れ替えればOKかと...

aaaaaaaa
BBBBBB
cccccccc
ddddddd
eeeeeeee
ffffffffffffffff

のような Text.txt を

aaaaaaaa
ffffffffffffffff
eeeeeeee
ddddddd
cccccccc
BBBBBB

に並び替えTest_II.txt で保存するには、

Option Explicit

Private Sub CommandButton1_Click()
　　Dim isOK As Boolean

　　isOK = ChangeFile("D:\Temp\Test.txt", "D:\Temp\Test_II.txt")
　　If Not isOK Then
　　　　MsgBox "該当するファイルが見つかりませんでした。"
　　End If
End Sub

Public Function ChangeFile(ByVal filName_Now As String, _
　　　　　　　　　　　　　 ByVal filName_New As String) As Boolean
　　Dim I　　　　　 As Integer
　　Dim J　　　　　 As Integer
　　Dim R　　　　　 As Integer
　　Dim strDatas()　As String
　　Dim strData　　 As String
　　Dim strNewDatas As String

　　If FileExists(filName_Now) Then
　　　　strDatas() = FileReadArray(filName_Now)
　　　　R = UBound(strDatas())
　　　　For I = 1 To R
　　　　　　If I > R - I + 1 Then
　　　　　　　　Exit For
　　　　　　Else
　　　　　　　　strData = strDatas(I)
　　　　　　　　strDatas(I) = strDatas(R - I + 1)
　　　　　　　　strDatas(R - I + 1) = strData
　　　　　　End If
　　　　Next I
　　　　strNewDatas = Join(strDatas(), Chr$(13) & Chr$(10))
　　　　If FileExists(filName_New) Then
　　　　　　Kill filName_New
　　　　End If
　　　　FileWrite filName_New, strNewDatas
　　　　ChangeFile = True
　　End If
End Function

などのコードを書くと実現できます。

※こんなんでよかったら、

FileExists()
FileReadArray()
FileWrite()

の関数の全容を追加回答します。

補足

迅速な対応ありがとうございます。
当方ど素人な為、プログラム見ても全然分からない関数ばかりです...
とりあえず、Excelシートにボタンを作ってコードそのままコピーで
実行させたんですが、コンパイルエラーが出て...
FileExistsのFunction定義ができてませんとかで怒られました。
そもそものやり方間違ってるのならごめんなさい。