|
FSOのTextStreamには Skip, SkipLine という読み飛ばしをするメソッドがあります。
それを使うと・・
Sub INS_TextData()
Dim FSO As Object
Dim Ary As Variant
Dim i As Long, j As Long
Const MyF As String = "C:\temp\test.txt"
'↑実際のテキストファイルのフルパスに変更
Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO.OpenTextFile(MyF, 1)
For i = 1 To 4
.SkipLine
Next i
Do Until .AtEndOfLine
Ary = Split(.ReadLine, vbTab): j = j + 1
'区切り文字は実際のテキストファイルに使われているものに変更
Cells(j, 1).Resize(, UBound(Ary) + 1).Value = Ary
Erase Ary
Loop
.Close
End With
Set FSO = Nothing
End Sub
|
|