Question

当我尝试这样做时，它会向我抛出一些错误，具体取决于我的代码的其他位，例如该方法与该对象无关或未指定的错误。

我正在尝试使用字符串查看Excel单元格列表，并使用Web表单搜索这些字符串。救命啊！

我的代码目前看起来像这样：

Sub YSF_automation()
    Application.ScreenUpdating = False

    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate "URL"

    While IE.Busy
        DoEvents
    Wend

    IE.Document.getElementsByName("ElementName")(0).Value = "test"

End Sub

Answer 1

尝试以下

Option Explicit

Dim IE as Object

Sub YSF_automation()
    Application.ScreenUpdating = False

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "URL"

While IE.Busy
    DoEvents
Wend

set document = IE.document
with document
    .getElementsByName("ElementName")(0).value="test"
end with
End Sub

IE.Document.getElementsByName（＆＃34; name＆＃34;）。Value =＆＃34; Value＆＃34;不工作[VBA]

1 个答案: