続・かぶだいくん

株 コンピューター

id:unibon:20070620:p2 の続き。
ついに分かったぞ〜。

Dim ws As Worksheet
〜
Call ws.PasteSpecial("HTML")

としているとマズいらしい。Excel 2002 (Office XP)のバグだと思われる。
これを、

Dim ws As Worksheet
〜
Call ws.PasteSpecial("HTML", False, False, , , , True)

のようにすると回避できる。最後の引数(NoHTMLFormatting)を True にすることがミソだ。
クソっ、こんなことでいったい何日間を無駄にしたことか。
(NoHTMLFormatting が False か True かで、微妙に貼り付けられるセル位置が変わるが、これは参照するセル番号を変えるだけで容易に回避できる。)
処理速度も、遅くなくなった。