Excel (VBA)

Excel VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10 Pro : Excel 2013)
テキストを読みこんで、excelのセルに出力するが、テキストの最後までいきません。
投稿日時: 18/11/14 09:19:56
投稿者: nktdai1755

下記、コードです。
最終行のテキストを読まず、途中までしかセルに記載がありません。
application 400というエラーがでます。
Sub readtxt1()
    Dim buf As String
    Dim n As Long
    Open "C:\tmp\data.txt" For Input As #1
        Do Until EOF(1)
            Line Input #1, buf
            n = n + 1
            Cells(n, 1) = buf
        Loop
    Close #1
End Sub
 
どこが悪いのでしょうか?
テキストは200行程度です。

回答
投稿日時: 18/11/14 16:43:28
投稿者: WinArrow
投稿者のウェブサイトに移動

これだけの情報では、どこが悪いかを判断することが難しいです。
 意図しない症状が発生したときは、
データ側に問題があるのか?プログラムに問題があるのか?を
切り分けることが先決です。
    
そのためには
 まず、ステップ実行で、データの内容、変数値、及び、プログラムの流れを
観察しましょう。
    
そうすれば、原因が見えてくるかもしれません。
  
   
それから
 ファイル番号は、「#1」ではなくて、
Dim Fno AS Integer
     Fno =FreeFile
  として
#1の代わりに#FNOを使いましょう。
  
Closeすればファイル番号は解放されますが、
 途中でプログラムが停止した場合は、解放されずに残ってしまうので
再実行時のOpenでエラーになります。
Open文の前に
Close #1
を追加すると、テストがやりやすくなります。
  

回答
投稿日時: 18/11/17 08:51:25
投稿者: simple

ちょっと想像できない状況ですね。
こちらでは再現性がありませんので、
質問者さんが状況を確認され、追加情報を提示して頂く必要があると思います。
 
------
以下は別件ですが、この場しかないので書き込みます。
 
>新しい質問をする前に、質問しっぱなしのものをきちんと対応するのが先ですよ。
に対して
>申し訳ございません。
との発言がありました。
 
言葉だけでなく、行動で示して下さいね。
放置されている質問にご自分なりの受け止めを書いたうえで、
きちんと閉じて下さい。
 
あなたの質問したスレッドがどれか分からない状態ということなら、
こちらの掲示板にある検索機能を使って、
検索−詳細検索− 投稿者検索 で検索すればわかるはずです。
 
# 回答するために熟慮中、検討中ということでしたら、どうぞ作業を進めてください。

トピックに返信