こんにちは。 > 4:tf.write strBuf '読み込んだ1行のデータ行を追加する この tf というのが、File System Object の Text Stream なら #1 ご回答のとおりです。 余計なお世話かもしれませんが、折角 File System Object を使っている なら、テキストを開く部分でも従来の Open ステートメントではなく、 Text Stream をもう一つ用意すれば良いのでは? File System Object か Open ステートメントか、どちらかに統一した方が 良いと思います。 また、長くなるので下記ソースではやってませんが、ファイル入出力処理 はエラー発生時でもちゃんとファイルを閉じる処理を書いた方が良いです。 Sub Sample() Dim Fso As Object ' FileSystemObject Dim TS_
![VBAで外部ファイル(HTMLソース)を読み込んで書き込む時の問題 - OKWAVE](https://cdn-ak-scissors.b.st-hatena.com/image/square/a3202632a5b19efa6d7dbcca644fc13bfa3453dc/height=288;version=1;width=512/https%3A%2F%2Fgazo.okwave.jp%2Fokwave%2Fspn%2Fimages%2Flogo%2Ffacebook_okwave.jpg)