投稿日	： 2004/08/08(Sun) 22:19
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^5: EOF　が効かない

> ExcelのデータをCSVに落としています。
Excelのセルの中に（データ中）, や "" が含まれている可能性があるので
Excel上で  , や "" を検索して使っていないか確認して下さい。

> Debug.printで確認すると、データは一番最後の行まで読み込んでいますが
> その後、エラーが発生しています。
列×行 の数が合わないからデータの最後でエラーが発生しているのです。

データのどの辺に（前の方か後ろの方か）, "" （又は問題）があるのか調べる
ためにExcel上で仮に１００行なら５０行づつにして半分づつ読み込んでみれば
どちらに問題があるか解りますよね。
その前に検索して, "" を使っていないか探して見て下さい。

データの途中に　, や "" が含まれていてもそこでエラーが発生する訳ではありません。
, や "" が含まれていた場合　１列が２列としてカウントされるのです。
5列×１００行ならデータは５００個のはずが５０１個になるからEOFの位置が合わずエラーが
発生するのです。（最後まで読み込まないと違うか解らないから最後まで読んでいるのです）


# 先の投稿で一部データと出力結果が違っておりました。お詫びして訂正します。

Excel に下記のように書いてCSV形式で保存して下さい。
1    1,1    a
2    1,2"    b
3    1,3    c

下記のコードを実行すると
Private Sub Command1_Click()
    Dim lngDatN    As Long
    Dim intFileNo  As Integer
    Dim dat(2) As String
    lngDatN = 0
    intFileNo = FreeFile
    
    Open "c:\book1.csv" For Input As #intFileNo
    Do Until EOF(intFileNo)
        Input #intFileNo, dat(0), dat(1), dat(2)
        Debug.Print dat(0), dat(1), dat(2)
    Loop
    Close #intFileNo
End Sub

結果下記のように出力されます。（当然エラーが出ます）
1             1,1           a
2             1,2          
b             3             1,3


Excel に下記のように書いてCSV形式で保存して下さい。
1    1    a
2    2    b
3    3    c

実行すると　当然ながら下記のようになります。
1             1             a
2             2             b
3             3             c

★ - EOF　が効かない - みなこ 08/06-19:38No.9962
• Re: EOF　が効かない - nobu 08/06-19:52 No.9963
  • Re^2: EOF　が効かない - みなこ 08/06-20:30 No.9964
    • Re^3: EOF　が効かない - 花ちゃん 08/06-21:03 No.9965
      • Re^4: EOF　が効かない - みなこ 08/08-21:10 No.9974
        • Re^5: EOF　が効かない - 花ちゃん 08/08-22:19 No.9975