Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
RE: テキストデータ読込で"これ以上ファイルがない"が出てしまう。
投稿日時: 19/10/22 18:36:47
投稿者: simple

# ちょっとの差で間に合いませんでした。
 
https://www.moug.net/faq/viewtopic.php?t=78727
についての、コメントです。
 
メモだけですけど。
 
・エラーが発生するのは、
 データがある最終行に改行コードがあって、その次にEOFがある場合ですね。
・データの最終行で改行しなければ、エラーは出ません。
普通はこういうことに気を使いたくないですけどね。
 
ちなみに、
        Line Input #gyoFileNo, buffer
        koMoku = Split(buffer, ",")
とした場合は、最後の改行有無は関係なく、いずれもエラーは出ません。
ただし、一方で、項目毎に""を外す必要がでてきてしまいます。
 
既に指摘がありましたように、
・じかに開くか
・外部データの取り込み
を使った方が神経使わなくてよいと思います。
 
前者は、データによっては日付に勝手に解釈されてしまったりするので、
後者が良いと思います。
# もう対応済みでしたね。

投稿日時: 19/10/22 22:18:08
投稿者: simple

閉じます。