VBA驅動Edge開啟YAHOO網站,如何填入關鍵字及搜尋
- 帖子
- 33
- 主題
- 10
- 精華
- 0
- 積分
- 59
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office 2013
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-3-10
- 最後登錄
- 2024-2-7
 
|
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
|
|
|
|
|
|
|
|
- 帖子
- 10
- 主題
- 2
- 精華
- 0
- 積分
- 62
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- 2016
- 閱讀權限
- 20
- 註冊時間
- 2021-7-23
- 最後登錄
- 2024-4-27
|
2#
發表於 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 |
|
|
|
|
|
|
|
- 帖子
- 33
- 主題
- 10
- 精華
- 0
- 積分
- 59
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office 2013
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-3-10
- 最後登錄
- 2024-2-7
|
3#
發表於 2023-3-25 09:06
| 只看該作者
回復 2# checkout88
收到, 謝謝您 ! |
|
|
|
|
|
|
|
