Web クエリ (または別の自動化された VBA の方法) を使用して、ページの完全な HTML コードを Excel ページにインポートする方法はありますか?
<body>
からまでのほぼすべてが必要</body>
ですが、ページ全体のインポートが必要なソリューションがあるかどうかは気にしません。私はオンラインでよく見ましたが、何も思いつきません。
Web クエリ (または別の自動化された VBA の方法) を使用して、ページの完全な HTML コードを Excel ページにインポートする方法はありますか?
<body>
からまでのほぼすべてが必要</body>
ですが、ページ全体のインポートが必要なソリューションがあるかどうかは気にしません。私はオンラインでよく見ましたが、何も思いつきません。
VBA マクロ内でそれを行う 1 つの方法を次に示します。オブジェクトには、このhtmlText
サブルーチンの最後にあるすべての HTML が含まれます。
の前にブレークポイントを置き、オブジェクトをウォッチ ウィンドウEnd Sub
に追加すると、ウォッチ ウィンドウに戻ってくるすべてのデータを確認し、html データを抽出する方法と Excel シートなどのどこに配置するかを決定できます。htmlText
Private Sub GetWebsiteHtml_Click()
Dim x As Long, y As Long
Dim htmlText As Object
Set htmlText = CreateObject("htmlFile")
With CreateObject("msxml2.xmlhttp")
.Open "GET", "http://google.com", False
.send
htmlText.body.innerHTML = .responsetext
End With
End Sub