標題: VBA驅動Edge開啟YAHOO網站,如何填入關鍵字及搜尋 [打印本頁]

---

作者: chihminyang88    時間: 2022-8-29 20:07     標題: VBA驅動Edge開啟YAHOO網站,如何填入關鍵字及搜尋

VBA驅動Edge開啟YAHOO網站首頁,想填入關鍵字(飲水機)且搜尋,不知該如何寫程式,期望高手指點,感謝!   
Sub Edge_test()
    Dim WebUrl As String
   
     WebUrl = "https://tw.yahoo.com/"
     Shell ("C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe -url " & WebUrl)
   
End Sub
[attach]35178[/attach][attach]35178[/attach]

---

作者: checkout88    時間: 2022-10-15 19:28

回復 1# chihminyang88

我用 chrome, 應該是一樣的.(EDGE沒裝好,無法試)

Sub test()
    Set Driver = CreateObject("Selenium.ChromeDriver")
    Driver.Get "https://tw.yahoo.com/"
    Driver.findelementbyxpath("//*[@id=""header-search-input""]").Click
    Driver.SendKeys ("飲水機")
    Driver.findelementbyxpath("//*[@id=""header-desktop-search-button""]").Click
    MsgBox ("done")
End Sub

---

作者: chihminyang88    時間: 2023-3-25 09:06

回復 2# checkout88

收到, 謝謝您 !

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)