返回列表 上一主題 發帖

VBA驅動Edge開啟YAHOO網站,如何填入關鍵字及搜尋

chihminyang88

帖子
33 
主題
10 
精華
0 
積分
59 
點名
0  
作業系統
win10 
軟體版本
office 2013 
閱讀權限
20 
性別
男 
註冊時間
2013-3-10 
最後登錄
2024-2-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 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
收藏 分享

chihminyang88

帖子
33 
主題
10 
精華
0 
積分
59 
點名
0  
作業系統
win10 
軟體版本
office 2013 
閱讀權限
20 
性別
男 
註冊時間
2013-3-10 
最後登錄
2024-2-7 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2023-3-25 09:06 | 只看該作者
回復 2# checkout88

收到, 謝謝您 !

TOP

checkout88

帖子
10 
主題
2 
精華
0 
積分
62 
點名
2  
作業系統
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

TOP

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題