excel 不工作,

nvbavucw  于 2022-12-01  发布在  其他
关注(0)|答案(1)|浏览(152)

当我尝试这样做时,它会根据代码的其他位向我抛出一些错误,例如方法与该对象没有关联或出现未指定的错误。
我正试图用字符串查看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
erhoui1w

erhoui1w1#

请尝试以下操作

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

相关问题