|
固定長ファイルなので読み込み自体はランダムアクセスの方が早いはずです。
以下手持ちのサンプル・・・多分動いたと思います。
小さいサイズなら、簡易DBとしてこのようなやり方で十分使えます。
Type TYPREC '自分の環境に合うように変更必用
fld1 As String * 8
fld2 As String * 8
FLD3 As String * 8
FLD4 As String * 10
End Type
Sub ReadTest()
Dim strPath As String
Dim FNum As Long
Dim LastRec As Long, recNo As Long
Dim mRec As TYPREC
FNum = FreeFile
strPath = "C:\hoge\hoge.txt" 'ここは書き換えて
Open strPath For Random As #FNum Len = Len(mRec)
LastRec = LOF(FNum) \ Len(mRec)
For recNo = 1 To LastRec
Get #FNum, recNo, mRec
With mRec
Cells(recNo, 6).Value = .fld1
Cells(recNo, 7).Value = .fld2
Cells(recNo, 8).Value = .FLD3
Cells(recNo, 9).Value = .FLD4
End With
Next recNo
Close #FNum
End Sub
これより早く読み込みたいなら、バイナリアクセスで一気に全て読み込み
全て変数に格納、その後判断などの処理をしていく方法もあります。
|
|