HTML,CSS,PHP,ワードプレスカスタマイズ 技術情報資料

IEを開いてページを確認する よく使う小技

Dim URL As String, IE As Object Dim setkey Set IE = CreateObject("InternetExplorer.Application") setkey = Sheet1.UrlEncodeUtf8(searchkey) ‘ キーワード変換 URL = "http://search.yahoo.co.jp/search?~&p=" + setkey With IE .Navigate (URL) .Visible = True End With Set IE = Nothing ?> 反転行が味噌。
 
読みこんだボディは、
objIE.Document.Body.innerHTML
で、受け取ることができる。

スポンサーリンク

関連記事

スポンサーリンク

カテゴリー