-2

Web クエリ (または別の自動化された VBA の方法) を使用して、ページの完全な HTML コードを Excel ページにインポートする方法はありますか?

<body>からまでのほぼすべてが必要</body>ですが、ページ全体のインポートが必要なソリューションがあるかどうかは気にしません。私はオンラインでよく見ましたが、何も思いつきません。

4

1 に答える 1

1

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
于 2013-11-28T04:51:15.583 に答える