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

tcdatongye

经测试，办公软件没有装在c盘时，打开谷歌页面速度正常，执行之后动作如跳转页面速度慢，要近2分钟才能完成。可有什么解决方案。

秋雨深

学习学习！！

ivrdachen

cliffordzk 发表于 2024-2-21 10:20
有没有大神可以帮忙：
要从这儿点导出表格，存到电脑指定位置
https://www.safe.gov.cn/safe/rmbhlzjj/in ...

Sub usdratio()
  Dim objBrowser As New clsBrowser
    objBrowser.start "edge", cleanActiveSession:=True
   'By default, the new window is minimized, use .show to bring it out
    objBrowser.show
    objBrowser.navigate "https://www.safe.gov.cn/safe/gzhbdmyzslb/index.html"
    objBrowser.wait till:="interactive" 'only need to wait until page is interactable. Refer to definition for other options
    'objBrowser.jsEval ("document.getElementsByTagName(""a"")[" & 10 & "].click()")
    For i = 20 To objBrowser.jsEval("document.getElementsByTagName(""a"").length") - 1
    jscode = objBrowser.jsEval("document.getElementsByTagName(""a"")[" & i & "].outerHTML")
    If InStr(jscode, "各种货币对美元折算率") And InStr(jscode, "年") Then
    objBrowser.jsEval ("document.getElementsByTagName(""a"")[" & i & "].click()")
        objBrowser.navigate "https://www.safe.gov.cn" & Split(Split(jscode, """")(1), """")(0)
    objBrowser.wait till:="interactive" 'only need to wait until page is interactable. Refer to definition for other options
    Exit For
    End If
    Next
      For i = 0 To objBrowser.jsEval("document.getElementsByTagName(""a"").length") - 1
    jscode = objBrowser.jsEval("document.getElementsByTagName(""a"")[" & i & "].outerHTML")
    If InStr(jscode, "各种货币对美元折算率") And InStr(jscode, "年") Then
    objBrowser.jsEval ("document.getElementsByTagName(""a"")[" & i & "].click()")
        objBrowser.navigate "https://www.safe.gov.cn" & Split(Split(jscode, """")(1), """")(0)
    objBrowser.wait till:="interactive" 'only need to wait until page is interactable. Refer to definition for other options
    Exit For
    End If
    Next
End Sub

garma

wodewan 发表于 2022-2-15 09:29

老师们好，用上面wodewan老师提供的示例，如何控制弹窗问题，就是说在控制浏览器时，‌如何通过获取浏览器的窗口句柄来操作浏览器？有了解此方法的老师们请您指导一下，谢谢。

abc400

请问各位大师可以下载东财的分时数据吗？网址：https://17.push2.eastmoney.com/a ... ails/sse?fields1=f1,f2,f3,f4&fields2=f51,f52,f53,f54,f55&mpi=2000&ut=bd1d9ddb04089700cf9c27f6f7426281&fltt=2&pos=-0&secid=1.600566&wbp2u=|0|0|0|web

九千吴小胖

订单1阿斯顿发斯蒂芬

jeff_ps2009

这么强吗？学习了。

dhlhmgc

看了代码和各们大神的讨论，确实是个好东西，但想请教：
如果是EDGE浏览器已经登录了某个系统（可以是由VBA先启动浏览器，手工登录），需要由VBA来做接下来操作
时，如何attch引用已经登录好的浏览器实体！求解！