|
こんばんは。
ここが参考になると思います。
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110.html
あと「テキストファイル」で検索すると、
かなりの数ヒットします。
一応作ってみたのですが・・・・
マクロを記述したExcelファイルをtxtファイルのあるフォルダに保存して
開き直して実行してみてください。
うまくいかなかったらごめんなさい。
Sub test3()
Dim myPath As String
Dim myFile As String
Dim NewSh As Worksheet
Dim myNO As Integer
Dim i As Long
Dim myTxt As String
myPath = ThisWorkbook.Path & "\"
myFile = Dir(myPath & "*.txt")
If myFile <> "" Then
Do Until myFile = ""
Set NewSh = Sheets.Add(after:=Sheets(Sheets.Count))
NewSh.Name = Left$(myFile, Len(myFile) - 4)
myNO = FreeFile
With NewSh
Open myPath & myFile _
For Input As #myNO
Do Until EOF(myNO)
Line Input #myNO, myTxt
i = i + 1
.Cells(i, 1).Value = myTxt
Loop
Close #myNO
End With
myFile = Dir()
Loop
End If
End Sub
|
|