如何使用 VBA excel 在 Internet Explorer 文本框中输入数据

Question

我是 Excel VBA 的新手，但我想要完成的是在文本框中输入文本，其代码为

 <input name="txt_invoiceno" type="text" maxlength="16" id="txt_invoiceno" tabindex="1" class="text-left" style="width:150px;"> 

这是我的 VBA 代码

Dim Inv as Object
Inv = ie.Documents.getelementsbyId("txt_invoiceno")
Inv.value="mytext"

这只是给我一个错误

对象不支持此属性或方法。

我做错了吗？ 请有人给我代码以在元素中输入文本。

Answer 1

你Dim Inv As Object和对象需要使用Set：

Set Inv = ie.Documents.getElementsById("txt_invoiceno")

然后你需要检查Inv是否被发现，例如If Not Inv Is Nothing Then，然后再继续使用它。还要确保 id txt_invoiceno 在 HTML 文档中只存在一次，否则 HTML 无效（并且 Inv 是一个文本框数组）。

有关更多信息，另请参阅：How do I get the value of text input field using JavaScript? 它适用于 JavaScript，但适用于 VBA。

Answer 2

首先，正如PEH所说，使用Dim Inv As Object语句定义对象后，我们需要使用Set语句来设置值。

另外，请参考以下选项，如果我们想通过ID属性查找元素，它将返回一个元素，如果我们想通过标签、类或名称属性查找元素，它将返回多个元素。

IE.document.getelementbyid("ID").value = "value"       'Find by ID
IE.document.getelementsbytagname("ID").value = "value"        'Find by tag
IE.document.getelementsbyclassname("ID").value = "value"      'Find by class
IE.document.getelementsbyname("ID").value = "value"           'Find by name

所以，请修改您的代码如下（添加Set语句，将documents更改为document，将getelementsbyId更改为getelementbyId）：

    Dim Inv As Object
    Set Inv = IE.document.getelementbyId("txt_invoiceno")
    Inv.Value = "mytext"

编辑

网页资源：

<form id="form1"> 
    <input name="txt_invoiceno" type="text" maxlength="16" id="txt_invoiceno" tabindex="1" class="text-left" style="width:150px;"> 
</form>

VBA 脚本：

Sub Test()
    Dim IE As Object

    Dim startDateText As Object, endDateText As Object

    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True
        .Navigate "https://dillion132.github.io/default.html"

        While IE.ReadyState <> 4
            DoEvents
        Wend

        Dim Inv As Object
        Set Inv = IE.document.getelementbyId("txt_invoiceno")
        Inv.Value = "mytext"

    End With
    Set IE = Nothing
End Sub