Web 情報取り込み（ExecWB）

田中 2012-01-19 19:20:09 No: 103207

現在、VB6を使いWebの特定のページを
エクセルに保存する処理を作成しているのですが、
7-9-9が2007/9/9に勝手に変換されてしまいます。
7-9-9で取り込みたいのですが、そのような事が可能なのでしょうか？
（現状は、Format:="テキスト"にし、対応しています）

現状のソース
objIE.ExecWB 17, 0 'OLECMDID_SELECTALL = 17 全てを選択
objIE.ExecWB 12, 0 'OLECMDID_COPY = 12 コピー
xlSheet.Range("A1").Select
xlSheet.PasteSpecial Format:="HTML"