0

我想为 excel 编写一个宏，它将在工作表中显示来自网页的源代码。也许我没有使用正确的搜索词，但我发现的只是如何编写宏的示例，一旦您提供 URL，该宏将返回网页的源代码。我有 URL 和代码，但我不确定如何使用 VBA 将其输入到 excel 中。如果有人可以将我链接到如何执行此操作的适当示例或向我展示它是如何完成的，我会非常高兴。

该网站是一个打印机设备状态页面，这是我需要 excel 显示的源代码：

 <p id="SupplyPLR0" class="data percentage">50%*</p>
 <p id="SupplyPLR1" class="data percentage">60%*</p>
 <span id="MachineStatus" class="machine-status">Ready</span>
 <strong id="BlackCartridge1-EstimatedPagesRemaining">11400</strong>

该站点本身是打印机的 HP 设备状态网页。

欢迎任何和所有帮助！

4

1 回答 1

1

如果您希望在电子表格上显示 HTML，可以尝试以下操作。

Dim IE As Object
Dim Doc As Object

Sub DisplayMyInfo()
    InitializeIE ("http://www.ILoveMyPrinter.com")
    ActiveWorksheet.Range("A1") = ReturnOuterHTML("SupplyPLR0")
    ActiveWorksheet.Range("A2") = ReturnOuterHTML("SupplyPLR1")
    ActiveWorksheet.Range("A3") = ReturnOuterHTML("MachineStatus")
    ActiveWorksheet.Range("A4") = ReturnOuterHTML("BlackCartridge1-EstimatedPagesRemaining")

    Set Doc = Nothing
    Set IE = Nothing

End Sub

Sub InitializeIE(URL As String)
    Set IE = CreateObject("InternetExplorer.Application")
    IE.navigate URL
    Do While IE.readyState <> 4
        DoEvents
    Loop
    Set Doc = IE.document
End Sub

Function ReturnOuterHTML(NodeID As String)
    Dim strHTML As String
    strHTML = Doc.getElementById(NodeID).outerHTML
    ReturnOuterHTML = strHTML
End Function

我还没有机会测试它。如果您有任何问题，请告诉我。

干杯，LC

于 2013-06-27T20:42:37.023 回答