07/09/08 00:13:09
>>882
やりたかったこと
Name index.html As index.txt
Workbooks.Open Filename:="index.txt"
を、ファイル名を変えずに
Workbooks.Open Filename:="index.html"
だとタグを勝手に解釈しやがって死ぬ
↓結局今はこう
Open "index.html" For Input As #1
行 = 1
Do Until EOF(1)
Line Input #1 , buf
Cells(行,1) = buf
Loop
Close #1