VBAサンプル
=============================================
=== 開始!!====================================
=============================================
Sub ie_抽出() 'IEテストする。
'**********************************
'*** 備考
'*** @この抽出は WEBから全選択してエクセルに貼り付ける手順です。
'*** (エクセルに全てはってしまえば、あとはエクセルで簡単にやりたいことをやるだけ)
'*** Aこの抽出は取得できないWEBページもあるので、
'*** できないページは違う方法で取得しよう
'**********************************
'**********************************
'*** 1.定義
'**********************************
'@IE用の定義(使用するためのおまじない的なもの)
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
'**********************************
'*** 2.IEより抽出
'**********************************
'@WEBを開く
objIE.Navigate "http://news.yahoo.co.jp/"
'該当ページの表示完了を待ちます。(表示したら、ループを抜けます)
While objIE.readyState <> 4 Or objIE.Busy = True 'IEがBusyの間 待つ
DoEvents
Wend
'A全てを選択して、コピー
objIE.ExecWB 17, 0 'OLECMDID_SELECTALL = 17 全てを選択
objIE.ExecWB 12, 0 'OLECMDID_COPY = 12 コピー
'Bエクセルに貼り付ける ※今回はテキスト形式で貼り付け
Sheets("wk").Select
Range("A1").Select
ActiveSheet.PasteSpecial Format:="Unicode テキスト"
'HIE終了
objIE.Quit
Set objIE = Nothing
End Sub
=================================================
=== 終了!!========================================
=================================================