Excel 2010/2013 VBA 从网站导入当前余额

Question

我对 VBA 非常陌生，而对 HTML 则更少。我想要做的是能够单击一个按钮并从网站检索当前余额。理想情况下，我想单击一个按钮，让它遍历所有信用卡链接并提取当前余额，但如果我能让它在一个站点上工作，我会很高兴。在过去的几天里，我一直在网上搜索，并且能够拼凑出我下面的内容。请原谅一些被注释掉的部分，因为我正在反复试验。任何帮助，如果是 5 岁的孩子可以理解的话，将不胜感激。

那么，我哪里做错了？谢谢！！

顺便说一句，我已经切换了以下两行和相关的“暗淡”，结果相同。 '此属性或方法不支持对象。'

With ieDoc
 .getElementsByClassName("amount").innerText
End With

'    dd = IE.document.getElementsByClassName("amount").innerText

 Sub CurrentBalance()

    Dim IE As Object
    Dim ieDoc As Object
    Dim dd As Variant 'IHTMLElementCollection
    ' Create InternetExplorer Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True

    ' Send the form data To URL As POST binary request
    IE.Navigate "https://www.discovercard.com"

    Do Until Not IE.Busy And IE.readyState = 4
        DoEvents
    Loop

    Set ieDoc = IE.document

    With ieDoc
     .getElementsByClassName("amount").innerText
    End With

'    dd = IE.document.getElementByClassName("amount")

    Range("B2").Value = ieDoc


' Clean up
    Set IE = Nothing
    Set objElement = Nothing
    Set objCollection = Nothing

    Application.StatusBar = ""
End Sub

抱歉，我应该添加 HTML 部分：

href="/cardmembersvcs/personalprofile/pp/MyProfilePage?ICMPGN=ACHOME_ACCTSUMM_PROFILE_TXT" title="Profile">Profile</a></li>
                    <!-- WT blank content -->
                </ul>
            </div>
        </div>
        <div class="card-balances">
            <ul>
                <li>Current Balance</li>
                <li class="amount">$910.74</li>

Answer 1

将此替换为您当前的代码（保持“Set ieDoc”行之前的所有内容相同）：

Set ieDoc = IE.document

With ieDoc
    Set dd = .getElementsByClassName("amount")

    Range("B2").Value = dd(0).InnerText
End With

' Clean up
IE.Quit
Set ieDoc = Nothing
Set IE = Nothing

Application.StatusBar = ""

End Sub

这使用“getElementsByClassName”，因为给定的 HTML 没有任何 ID 为“amount”的元素。这应该返回一个集合，我们从中获取第一个项目（项目 0），然后将其 innerText 复制到单元格 B2。

您尝试访问的网站上似乎缺少任何形式的登录或导航。仅当您尝试下载的数据在 https://www.discovercard.com 页面上可见且无需您登录时，此代码才有效