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
で、受け取ることができる。

スポンサーリンク