エクセル マクロ WEBエクセルデータ 取込方法

いつも大変御世話になっております。

【D:\test】フォルダ内に、１つのエクセルファイル【sample.xls】（Excel2003）があります。

そのエクセルファイルのマクロボタンを一つ作成しておきます。そのボタンを押すと以下の処理が
可能なコードを作成中です。

(1)WEBサイト【http://www.sample.co.jp/book1.xls】を開く。
　※ここでのURLは例

(2)(1)で開いたエクセルファイル"A1:B10"の箇所をコピー。

(3)sample.xlsのシート【web_data】のセルA1に、(2)でコピーしたものを貼り付け。

(4)(1)で開いたエクセルファイルを閉じる。

コード>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Option Explicit

Sub test()

Dim IE As Object, buf As String
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

IE.Navigate "http://www.sample.co.jp/book1.xls"

Do While IE.busy = True
DoEvents
Loop


Do While IE.document.readystate <> "complete"
DoEvents
Loop

buf = IE.document.body.innertext

IE.Quit

MsgBox buf

Set IE = Nothing

End Sub

コード>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

途中まで作成しましたが、どうもWEB上のセル内をコピー出来ません。

もしご存知の方がいらっしゃるようでしたら、ご教授願いますでしょうか？

何卒宜しくお願い致します。

No.1 ベストアンサー 回答者： pc_net_sp 回答日時： 2010/02/21 15:22

マクロにはめっぽう弱いので、当方はこんな感じで遣うことにしてます。

ただの参照関数・・・　　　m(_ _)m

http://tyhp.sakura.ne.jp/pc_net_sp/1-gatu.xls
http://tyhp.sakura.ne.jp/pc_net_sp/2-gatu.xls

2-gatu.xlsをＤＬして下さい。
Webにある1-gatu.xlsから読み込んだデータが2-gatu.xlsで表示されます。