纯 VBA 非 Seliumn 同时控制谷歌Chrome和微软Edge浏览器

1385985192

edge报错901

Rendwr

感觉好高大上

h2016

学习网页自动录系统吗？

garma

wodewan老师好，使用上面的方法调用Edge浏览器出现异常，使用Chrome 浏览器没问题。
错误提示如下图：


请指导，谢谢啦。

garma

1385985192 发表于 2023-7-30 17:53
edge报错901

您好，我也遇到同样问题，你的问题解决了吗，如解决请共享一下，谢谢。

wodewan

garma 发表于 2023-9-4 17:21
您好，我也遇到同样问题，你的问题解决了吗，如解决请共享一下，谢谢。

测试了一下，还能用，非版本问题的话，大概率参照9楼第6条！！！！

garma

wodewan 发表于 2023-9-4 20:08
测试了一下，还能用，非版本问题的话，大概率参照9楼第6条！！！！

再次谢谢wodewan老师！
你的重要提示我认真看了，都是按要求执行。
操作系统是64 位操作系统 【Windows 10 家庭中文版】
Edge版本： 116.0.1938.69 (正式版本) (64 位)




后面我再试试其他版本。

xl123456789

强大 66666

奶白的学子

garma 发表于 2023-9-4 15:31
wodewan老师好，使用上面的方法调用Edge浏览器出现异常，使用Chrome 浏览器没问题。
错误提示如下图：

我调整了下代码，补充了edge那句缺少的参数，前面加了
自动关闭浏览器。
Sub test()
'   初始化
If Range("B1").Value = "谷歌" Then
    Call TaskKill("chrome.exe")
Else
    Call TaskKill("msedge.exe")
End If
        
    Dim objBrowser As New clsEdge, Browser_name As String
    Browser_name = [B1].Value
    If Browser_name = "微软" Then
        Call objBrowser.Start("""C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"" --remote-debugging-pipe --enable-automation")
    ElseIf Browser_name = "谷歌" Then
        Call objBrowser.Start("""C:\Program Files\Google\Chrome\Application\chrome.exe"" --remote-debugging-pipe --enable-automation")
    Else
        Call objBrowser.Start
    End If
    Call objBrowser.attach("")
   


Call Sleep(2)
MsgBox ("等待")

Dim hh As String


hh = "document.querySelector" & "(" & Chr(34) & InputBox("请输入文本框selector") & Chr(34) & ").value=" & "'" & InputBox("请输入内容") & "'"

Call objBrowser.jsEval(hh)
Dim button1 As String
button1 = "document.querySelector" & "(" & Chr(34) & InputBox("请输入按钮selector") & Chr(34) & ").click()"
Call objBrowser.jsEval(button1)

奶白的学子

代码要审核吗，我知道edge的参数