Vba 在网站的文本框中输入搜索值_Vba_Excel

Vba 在网站的文本框中输入搜索值

vba excel

Vba 在网站的文本框中输入搜索值,vba,excel,Vba,Excel,我试图让VBA导航到一个网站（为了便于讨论，让我们说“www.google.com”），并在那里的搜索框中键入搜索值我已经完成了打开网站和导航到网站的部分，但棘手的部分是让vba在该网站中输入任何内容，我读了一些关于发送键的内容，但从我收集的信息来看，它确实不可靠，因为您需要它与活动窗口交互，而这并不是真正的保证，这是我到目前为止能够编译的代码 Sub testing() Dim IE As Object Sheets ("sheet1") Range("P2").

我试图让VBA导航到一个网站（为了便于讨论，让我们说“www.google.com”），并在那里的搜索框中键入搜索值

我已经完成了打开网站和导航到网站的部分，但棘手的部分是让vba在该网站中输入任何内容，我读了一些关于发送键的内容，但从我收集的信息来看，它确实不可靠，因为您需要它与活动窗口交互，而这并不是真正的保证，这是我到目前为止能够编译的代码

Sub testing()
    Dim IE As Object

    Sheets ("sheet1")
    Range("P2").Select
    Selection.Copy
    Range("A2:H782").Select
    Sheets("sheet1").Paste
    Range("A1").Select

    Columns("A:M").Select
    Range("M1").Activate
    Selection.ClearContents

    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True
        .Navigate "www.google.com" '
        Do While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE
        DoEvents
        Loop


    End With
End Sub

子测试（）
模糊的物体
活页（“活页1”）
范围（“P2”）。选择
选择，复制
范围（“A2:H782”）。选择
纸张（“纸张1”）。粘贴
范围（“A1”）。选择
列（“A:M”）。选择
范围（“M1”）。激活
选择.ClearContents
设置IE=CreateObject（“InternetExplorer.Application”）
与IE
.Visible=True
。浏览“www.google.com”
在IE忙或IE readyState readyState\u完成时执行
多芬特
环
以
端接头

现在请原谅代码混乱，但这是我第二次尝试此

可能重复的