エクセルで固定長レコードの読み込み方法

質問

エクセルで固定長レコード（１２８×ｎ）のEOFは最後に一つだけで改行コードもなしで、連続したレコードです。
１２８ごとにセルに入れたいのですがうまくいきません。

Sheets("my").Select
Workbooks.OpenText Filename:="d:\と\my.txt", DataType:=xlFixedWidth, fieldinfo:=Array(Array(0, 1))
Windows("my.txt").Activate
Range("a1").Select
Selection.Copy
Windows("eos my").Activate
Sheets("in").Select
Range("A1").Select
'------------------------------------------------
Sheets("my").Select
Workbooks.OpenText Filename:="d:\と\my.txt", DataType:=xlFixedWidth, fieldinfo:=Array(Array(127, 1))
Windows("my.txt").Activate
Range("a1").Select
Selection.Copy
Windows("eos my").Activate
Sheets("in").Select
Range("A2").Select
ActiveSheet.Paste

回答No.1

ham_kamo · ベストアンサー

こんな感じにしてみればいかがでしょうか。

Sub ImportFixedText()
　Dim n As Integer
　Dim ToRow As Integer
　Const RecSize As Integer = 128

　Sheets("my").Select
　Cells.Clear
　n = FreeFile
　ToRow = 1
　Open "d:\と\my.txt" For Input As #n
　Do While Not EOF(n)
　　Cells(ToRow, 1).Value = Input(RecSize, #n)
　　ToRow = ToRow + 1
　Loop
　Close #n
End Sub

お礼

ham_kamoさん　ありがとうございました
うまくエクセルに展開できました。
本当にありがとうございました。