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

asobe

#2のasobeです。

(1)メニューバー → ツール → マクロ → VisualBasicEditor を選択。
VisualBasicEditor(以下、VBE)が立ち上がります

(2)VBEの メニューバー → 挿入 → 標準モジュール を選択。
新しいウィンドウが表示されるので、以下のコードをコピー&ペースト。

Public Sub ConvertText()
Dim fn As Integer
Dim i As Integer
Dim strLine() As String
Dim obj As New DataObject
Dim strOutPut As String
Dim FileName As String

'ファイルパスのセルを指定
FileName = Cells(1, 1).Value

strLine = Split(vbNullString)
fn = FreeFile
Open FileName For Input As #fn
Do While Not EOF(fn)
ReDim Preserve strLine(UBound(strLine) + 1)
Line Input #fn, strLine(UBound(strLine))
Loop
Close #fn
strOutPut = strLine(0) & vbCrLf
For i = UBound(strLine) To LBound(strLine) + 1 Step -1
strOutPut = strOutPut & strLine(i) & vbCrLf
Next i
obj.SetText strOutPut
obj.PutInClipboard
ActiveSheet.Paste
End Sub

(3)Excelのワークシートに戻り、セル"A1"に読み込みたい
テキストファイルのパスを記述。

(4)テキストファイルの内容を出力したいセルをクリックして選択。

(5)メニューバー → ツール → マクロ → マクロ を選択。
マクロというタイトルのダイアログが立ち上がります。

(6)「CovertText」を選択して、実行ボタンをクリック。

以上です。

貼り付けたコードの
> 'ファイルパスのセルを指定
> FileName = Cells(1, 1).Value
の部分を、変更するとファイルパスを記入する位置を変更できます。
Cells("行","列").Value という書式です。

固定でよければセルから読まなくても
FileName = "C:\Test.txt"
などとしても良いです。

これはあくまで、実行までの過程を記述しただけですので、
どうしてそうなるのかという説明は、省いています。
いろいろ調べてみてください。
分からないところは、質問していただければ、
出来る限りお答えします。

※もし、コードの
> Dim obj As New DataObject
の部分でエラーが発生した場合は、
VBEの メニューバー → ツール → 参照設定 を選択。
リストの中から、「Microsoft Forms X.X Object Library」に
チェックを入れ、OKしてください。

お礼

丁寧に教えて頂きありがとうございます。
プログラムを実行し確認できました。
>これはあくまで、実行までの過程を記述しただけですので、
>どうしてそうなるのかという説明は、省いています。
>いろいろ調べてみてください。
>分からないところは、質問していただければ、
>出来る限りお答えします
ありがとうございます。
自分で調べて理解する努力も必要なので頑張ってみます。