| |
同一フォルダ内、全てのテキストファイル（タブ区切り）を同じシートへ読込む
処理をしたいのですが、過去ログを参照して下記のように記述しましたが、
各テキストファイルの一行目しか読み込まれません。
どうかご教授を。
Sub Read_file()
Dim MyF As String, buf As String
Dim Fnum As Long, i As Long
Dim Ary As Variant
Const Ph As String = _
"C:\analysis\"
MyF = Dir(Ph & "*.txt"): i = 1
Do Until MyF = ""
Fnum = FreeFile()
Open Ph & MyF For Input Access Read As #Fnum
Do Until EOF(Fnum)
Input #Fnum, buf
Ary = Split(buf, Chr(9)) '区切り文字をタブとする。
With Worksheets("Sheet1")
.Cells(i, 1).Value = Ary(0) '4列目まで表示する。
.Cells(i, 2).Value = Ary(1)
.Cells(i, 3).Value = Ary(2)
.Cells(i, 4).Value = Ary(3)
i = i + 1: Erase Ary
End With
Loop
Close #Fnum
MyF = Dir()
Loop
MsgBox "全てのテキストファイルデータを読み込みました", 64
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
