Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


47834 / 76732 ←次へ | 前へ→

【33844】Re:「文字列''が終了していません。」というエラー 訂正
お礼  mon  - 06/1/22(日) 14:02 -

引用なし
パスワード
   ▼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する理由がわかりました。
>どうしても? ユーザー定義型を使いたかったからですね?

そうです(^^;)
テーブルの項目数が多いのと、今後レコード長が変わる可能性があったので
ユーザ定義型を使用していたんでした。
(^^;)
0 hits

【33658】「文字列''が終了していません。」というエラー mon 06/1/17(火) 19:12 質問
【33661】Re:「文字列''が終了していません。」とい... ichinose 06/1/17(火) 19:59 発言
【33665】Re:「文字列''が終了していません。」とい... mon 06/1/17(火) 20:11 お礼
【33668】Re:「文字列''が終了していません。」とい... ichinose 06/1/17(火) 20:46 発言
【33669】Re:「文字列''が終了していません。」とい... mon 06/1/17(火) 20:58 発言
【33674】Re:「文字列''が終了していません。」とい... ichinose 06/1/17(火) 21:48 発言
【33746】Re:「文字列''が終了していません。」とい... mon 06/1/19(木) 20:28 発言
【33751】Re:「文字列''が終了していません。」とい... ichinose 06/1/19(木) 21:26 発言
【33756】Re:「文字列''が終了していません。」とい... ichinose 06/1/19(木) 21:55 発言
【33844】Re:「文字列''が終了していません。」とい... mon 06/1/22(日) 14:02 お礼

47834 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free