Sub sample() Dim ie As Object Dim elm As Object Dim r As Long Set ie = CreateObject("InternetExplorer.Application") ’ie ie.Visible = True ’表示
For r = 1 To Range("A1").End(xlDown).Row If Range("A" & r).Value <> "" ie.navigate Range("A" & r).Text Do While ie.Busy Or (ie.readyState <> 4): DoEvents: Loop
Set elm = ie.document.getElementsByTagName("html") If Not elm Is Nothing Then Range("B" & r).Value = elm(0).outerHTML End If End If
みんなの回答 1 件
*セルに入れるんじゃなくファイルに保存する。
*EXCELじゃなくACCESSを使う。
関連するトピックス