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

noname#22222

s_husky です。

ライブラリは、VBエディターを起動し

１、[挿入]-[標準ライブラリ]で作成します。
2、生成された<Module1>に全てをコピーします。
※コピーは一度切りです。その後の、コピーは厳禁です。
３、＜Module1＞は、’FileSystem’ などとリネームします。
※これは、他のブックにもエクスポート・インポートして利用します。

’FileSystem’は、広域に通用する関数ですから、どのシートからも利用できます。
なお、’FileSystem’として完備するには、次の関数もコピーされるといいでしょう。

' -------------------------------------------------
'　ファイルサイズを取得する関数
' -------------------------------------------------
Public Function FileSize(ByVal FileName As String) As Variant
On Error GoTo Err_FileSize
　　Dim fso　　 As FileSystemObject
　　Dim fil　　 As File
　　Dim lngSize As Long

　　Set fso = New FileSystemObject
　　Set fil = fso.GetFile(FileName)
　　lngSize = fil.Size
Exit_FileSize:
　　FileSize = lngSize
　　Exit Function
Err_FileSize:
　　lngSize = -1
　　Resume Exit_FileSize
End Function

' -------------------------------------------------
'　指定のディレクトリのファイルリストを配列で返す関数
' -------------------------------------------------
Public Function GetFileList(ByVal strDir As String, _
　　　　　　　　　　　　　　ByRef strFileNames() As String, _
　　　　　　　　　　　　　　Optional strName As String = "*") As Integer
On Error GoTo Err_GetFileList
　　 Dim I　　　 As Integer
　　 Dim J　　　 As Integer
　　 Dim N　　　 As Integer
　　 Dim fso　　 As FileSystemObject
　　 Dim fol　　 As Folder
　　 Dim fil　　 As File
　　 Dim fils　　As Files

　　 Set fso = New FileSystemObject
　　 Set fol = fso.GetFolder(strDir)
　　 Set fils = fol.Files

　　 I = I - 1
　　 N = UBound(strFileNames())
　　 For Each fil In fils
　　　　 If fil.Name Like strName And fil.Attributes = Archive Then
　　　　　　 I = I + 1
　　　　　　 strFileNames(I) = fil.Name
　　　　 End If
　　　　 If I = N Then
　　　　　　 MsgBox N & " 件でファイル名の取得を中止します。(GetFileList)", vbExclamation, " 関数メッセージ"
　　　　 End If
　　 Next
　　 For J = I + 1 To N
　　　　 strFileNames(J) = Empty
　　 Next J
Exit_GetFileList:
　　 GetFileList = I
　　 Exit Function
Err_GetFileList:
　　 I = -1
　　 MsgBox Err.Description & "(GetFileList)", vbExclamation, " 関数エラーメッセージ"
　　 Resume Exit_GetFileList
End Function

' -------------------------------------------------
'　指定のファイルを単一の文字列で戻す関数
' -------------------------------------------------
Public Function FileReadAll(ByVal FileName As String) As String
On Error GoTo Err_FileReadAll
　　 Dim fso As FileSystemObject
　　 Dim fil As File
　　 Dim txs As TextStream

　　 Set fso = New FileSystemObject
　　 Set fil = fso.GetFile(FileName)
　　 Set txs = fil.OpenAsTextStream(ForReading, TristateUseDefault)
　　 FileReadAll = txs.ReadAll
Exit_FileReadAll:
　　 Exit Function
Err_FileReadAll:
　　 MsgBox Err.Description & "(FileReadAll)", vbExclamation, " 関数エラーメッセージ"
　　 Resume Exit_FileReadAll
End Function

' -------------------------------------------------
'　指定のフォルダが存在するか否かを真・偽で返す関数
' -------------------------------------------------
Public Function FolderExists(ByVal FolderName As String) As Boolean
　　Dim fso As FileSystemObject

　　Set fso = New FileSystemObject
　　FolderExists = fso.FolderExists(FolderName)
End Function

' -------------------------------------------------
'　指定のファイルを順次呼び込む関数
’
'　FileRead("Test.txt") ---１行目を返す。
'　FileRead("Test.txt") ---2行目を返す。
'　FileRead関数が実行される都度に次行を呼び込みます。
' -------------------------------------------------
Public Function FileRead(ByVal FileName As String) As String
On Error GoTo Err_FileRead
　　Static isOpen As Boolean
　　Static fso　　As FileSystemObject
　　Static fil　　As File
　　Static txs　　As TextStream

　　If Not isOpen Then
　　　　isOpen = True
　　　　Set fso = New FileSystemObject
　　　　Set fil = fso.GetFile(FileName)
　　　　Set txs = fil.OpenAsTextStream(ForReading, TristateUseDefault)
　　End If
　　FileRead = IIf(fil.Name = FileName, txs.ReadLine, "")
Exit_FileRead:
　　If Len(FileRead) = 0 Then
　　　　isOpen = False
　　　　Set txs = Nothing
　　　　Set fil = Nothing
　　　　Set fso = Nothing
　　End If
　　Exit Function
Err_FileRead:
　　Resume Exit_FileRead
End Function

補足

返答が大変遅くなり、申し訳ありませんでした。
丁寧にご回答頂いて本当に嬉しい限りなんですが...。
> 1、[挿入]-[標準ライブラリ]で作成します。
> 2、生成された<Module1>に全てをコピーします。
ANo.1とANo.4とご回答頂いた分のプログラム全てですか？
Private Sub CommandButton1_Click()
から解釈してANo.1の分のコードはシート記述の方だと思ってたんですが
。
結構こんがらがってよく分からなくなってます(-_-;)
> なお、’FileSystem’として完備するには、次の関数もコピーされるといいでしょう。
は、Module1＝FileSystem(リネーム後)にということですよね。