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
で、受け取ることができる。
読みこんだボディは、
objIE.Document.Body.innerHTML
で、受け取ることができる。
スポンサーリンク
