|
▼ichinose さん:
お返事遅くなってすみません。
教えて頂いた方法を試してみて、結果
ユーザー定義型を使用してデータを読み込む際に、改行コードの除去の方法が悪かったことが分かりました。
改行コードが除去しきれていなかったため、データは40件なのに41件めを読み込みに行っていたようです。
お世話になりました、
色々とご指導ありがとうございました。
>testは、
>
>Sub test()
> Dim dat1 As rec
> Dim r_len As Long
> Dim fno As Long
> r_len = Len(dat1)
> fno = FreeFile
> Open ThisWorkbook.Path & "\txtsamp.txt" For Random As #fno Len = r_len
> Do While Loc(fno) * r_len < LOF(fno)
> dat1.a1 = "": dat1.a2 = ""
> Get #fno, , dat1
> MsgBox dat1.a1 & "---" & dat1.a2
> Loop
> Close #fno
>End Sub
>
>としたほうが良いでしょうか?
>それから、
>ランダムモードでOpenする理由がわかりました。
>どうしても? ユーザー定義型を使いたかったからですね?
そうです(^^;)
テーブルの項目数が多いのと、今後レコード長が変わる可能性があったので
ユーザ定義型を使用していたんでした。
(^^;)
|
|