IEの画像を保存、又はコピーしてExcel貼り付けする方法 (ID:99328)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

動けばよいという程度であれば，次のコードでできます。
参考にしてください。

参考にしたWebページ
「プログラムでクリップボードに IMG 要素をコピーする方法」
http://support.microsoft.com/kb/293125/ja

'「Microsoft HTML Object Library」を参照設定してください。
    Dim objIE As Object
    Set objIE = CreateObject("InternetExplorer.application")
    objIE.Visible = True
    objIE.Navigate "http://www.yahoo.co.jp"
    
    Const COMPLETE = 4
    While objIE.readyState <> COMPLETE
        DoEvents
    Wend
    Dim doc As HTMLDocument
    Set doc = objIE.Document
    Dim elc As IHTMLElementCollection
    Set elc = doc.getElementsByTagName("img")
    Dim el As IHTMLElement
    For Each el In elc
    Dim src As String
        If Right(el.getAttribute("src"), 4) = ".gif" Then
            Dim el2 As IHTMLElement2
            Set el2 = doc.body
            Dim ctrlRange As IHTMLControlRange
            Set ctrlRange = el2.createControlRange
            Dim cel As IHTMLControlElement
            Set cel = el
            Call ctrlRange.Add(el)
            Call ctrlRange.execCommand("Copy")
            Exit For
        End If
    Next
    
    ActiveSheet.Paste

←解決時は質問者本人がここをチェックしてください。

戻る