Excel VBA質問箱 IV

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

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


35321 / 76738 ←次へ | 前へ→

【46618】レコードセットのEOFについて
質問  なた E-MAIL  - 07/2/8(木) 9:49 -

引用なし
パスワード
   お世話になっております。

レコードセットの最後の行ではないのにEOFが
なぜかTRUEになってしまいすぐにループを抜けてしまいます。
他のテキストファイルをすると上手く出来たりするのですが、
安定していません。
よい調べる方法などあれば是非教えてください。
よろしくお願いいたします。

Dim buf As String
Const MyF As String = "D:\VBA\O3000.nc"
Dim CQ As String
Dim hh As String
  
Dim Fnum As Long
  

  CQ = 0
  

'全工具一覧
  Fnum = FreeFile()
  
  Open MyF For Input Access Read As #1
  Do Until EOF(Fnum)
    Line Input #1, buf
    If Left$(buf, 1) = "N" Then
      '工具文字列取得
      Call kougumei(buf)

      CQ = CQ + 1
    End If

  Loop

  Close #1:
0 hits

【46618】レコードセットのEOFについて なた 07/2/8(木) 9:49 質問
【46619】Re:レコードセットのEOFについて ハチ 07/2/8(木) 10:19 回答
【46621】Re:レコードセットのEOFについて なた 07/2/8(木) 10:43 質問
【46627】Re:レコードセットのEOFについて ハチ 07/2/8(木) 14:00 発言
【46628】Re:レコードセットのEOFについて りん 07/2/8(木) 14:48 発言
【46630】Re:レコードセットのEOFについて なた 07/2/8(木) 15:16 お礼
【46632】Re:レコードセットのEOFについて なた 07/2/8(木) 17:20 お礼

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