VBA：无法使用 getelementsbyTagname().Value 在 <input> 标记中提取值

Question

这是我在 stackflow 上的第一篇文章 :) 我已经用谷歌搜索 VBA 知识并编写了一些 VBA 大约一个月。

我的电脑信息：

1.window 8.1

2.excel 2013

3.ie 11

我的 Excel 参考资料

微软对象库：是的

Microsoft Internet Controls：是的

Microsoft Form 2.0 对象库：是

Microsoft Script Control 1.0：是的

问题：

我试图使用 VBA 自动从 Internet Explorer 检索数据。 我想从名为“u_0_1”的 id 中检索输入标签中的值，该 id 位于名为“facebook”的 id 下。我期待在单元格 c2 上检索值“AQFFmT0qn1TW”。但是，在我运行 VBA“运行时错误'91'：对象变量或未设置块变量后，它弹出了这个消息。 我已经使用不同的方法尝试了几个星期，例如，

1.getelementsbyClassname

2.getelementbyid

3.getelementsbyTagname

但它不起作用。

网址：

http://coursesweb.net/javascript/getelementsbytagname

下面是我的 VBA 代码。请大家帮帮我好吗？

Private Sub CommandButton1_Click()
Dim ie As Object
Dim Doc As HTMLDocument
Dim getThis As String



Set ie = CreateObject("InternetExplorer.Application")

    ie.Visible = 0


    ie.navigate "http://coursesweb.net/javascript/getelementsbytagname"
    Do
    DoEvents
    Loop Until ie.readyState = 4



    Set Doc = ie.document


    getThis = Trim(Doc.getElementById("u_0_1")(0).getElementsByTagName("input")(0).Value)
    Range("c2").Value = getThis
End Sub            

Answer 1

感谢您的帮助。我不知道 JS 和 VBA 在 getelementsby () 方法方面存在差异。并使用循环方法找到我发现它非常有用的id。

我在从表单或输入类型中检索值时仍有一些问题。希望您能帮助我或给我一些建议。

预期结果：

检索值“AQFFmT0qn1TW”并自动将其复制到单元格（“c2”）上。

实际结果：

没有任何东西返回到单元格（“C2”）

下面是 HTML 元素。

<form rel="async" ajaxify="/plugins/like/connect" method="post" action="/plugins/like/connect" onsubmit="return window.Event &amp;&amp; Event.__inlineSubmit &amp;&amp; Event.__inlineSubmit(this,event)" id="u_0_1">
<input type="hidden" name="fb_dtsg" value="AQFFmT0qn1TW" autocomplete="off">         

以下是基于您的代码的 VBA 代码。

Private Sub CommandButton1_Click()
Dim ie As Object
Dim Doc As HTMLDocument
Dim Elements As IHTMLElementCollection
Dim Element As IHTMLElement

Set ie = CreateObject("InternetExplorer.Application")

ie.Visible = 0

ie.navigate "http://coursesweb.net/javascript/getelementsbytagname"
Do
DoEvents
Loop Until ie.readyState = 4

Set Doc = ie.document

Set Elements = Doc.getElementsByTagName("input")

For Each Element In Elements
    If Element.name = "fb_dtsg" Then
        Range("c2").Value = Element.innerText
    End If
Next Element

Set Elements = Nothing

End Sub

干杯。

Answer 2

首先，我在您搜索的网站标签的来源中找不到。无论如何，我认为您不能像在 JS 中那样链接 getElementById.getElementsByTag 。您必须遍历文档元素的集合。

Private Sub CommandButton1_Click()
Dim ie As Object
Dim Doc As HTMLDocument
Dim Elements As IHTMLElementCollection
Dim Element As IHTMLElement

    Set ie = CreateObject("InternetExplorer.Application")

    ie.Visible = 0

    ie.navigate "http://coursesweb.net/javascript/getelementsbytagname"
    Do
    DoEvents
    Loop Until ie.readyState = 4

    Set Doc = ie.document

    Set Elements = Doc.getElementsByTagName("ul")

    For Each Element In Elements
        If Element.ID = "ex4" Then
            Sheets(1).Cells(1, 1).Value = Element.innerText
        End If
    Next Element

    Set Elements = Nothing

End Sub

首先我得到标签“ul”的集合，然后遍历它们以获取 id“ex4”。在您的情况下，您将获得“输入”的集合，然后为您想要的 id 循环。找到后面跟着不同 id 的 id 应该不难，只是一些 if...thens。

如果您需要进一步的助手，请回复网址，我可以在其中准确找到您要查找的内容。

干杯