外部テキストファイルの参照方法
外変作成当初は何もわからずにシートとセルを使っていたのですが、外部ファイルを直接参照した方が処理速度がかなり速いですね。
pth=thisworkbook.path
Dim tf
Set tf = CreateObject("Scripting.FileSystemObject")
Set tf_txt = tf.OpenTextFile(pth & "\jwc_temp.txt", 1, True)
Do Until tf_txt.AtEndOfStream
    tmp = tf_txt.readline    '１行読み込み
        'ここに処理を記述
Loop

Hino 23:54 2007.01.24 Wed
　署名　
　内容　
　　　　　　
新しい記事
　題名　
　署名　 　File
　本文