[發問] 如何用EXCEL VBA在CHROME輸入資料再按下查詢？

請教各位大神，我想用VBA抓公司網頁資料，之前都是用IE，語法上大概了解怎麼寫，但現在公司IE停用了，只能用CHROME，我目前只能寫到開啟CHROME網頁，但是如何操作輸入數字按下查詢是完全沒有頭緒，附上開啟CHROME的程式碼以及截圖，懇請各位大神幫忙解惑，萬分感謝。
PS:由於程式碼內的網址是公司內部網頁，所以各位大神在測試的時候沒辦法由外部開啟，還請見諒。

Sub test()
Dim Chrome As New Selenium.ChromeDriver
Dim URL As String
URL = http://etrex2:8080/SelectWeb/
With Chrome
.Get URL
End With
End Sub

複製代碼

樓主熱帖

smart3135

中學生 Rank: 2

帖子: 96
主題: 18
精華: 0
積分: 125
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2014-3-23
最後登錄: 2022-8-2

2^#

發表於 2022-7-10 00:00 | 顯示全部帖子

回復 smart3135

https://github.com/florentbr/SeleniumBasic/releases
下載
SeleniumBasic-2.0.9 ...
singo1232001 發表於 2022-7-9 16:39

感謝您提供的這些資訊，會再好好消化一下。

TOP

smart3135

中學生 Rank: 2

帖子: 96
主題: 18
精華: 0
積分: 125
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2014-3-23
最後登錄: 2022-8-2

3^#

發表於 2022-7-10 00:21 | 顯示全部帖子

本帖最後由 smart3135 於 2022-7-10 00:32 編輯

回復  smart3135

需要附上那兩個元件的相關資訊  例如ID  class  tagname

要在瀏覽器按F ...
singo1232001 發表於 2022-7-9 18:05

您好，原來我一開始就搞錯了，不是在網頁按右鍵選檢查網頁原始碼，而是要按F12查元件，後來有詢問到，應該是要用.FindElementById、.FindElementByName、.FindElementByXPath的語法，如下面用Yahoo奇摩首頁搜尋的例子

Sub test()
Dim chrome As New Selenium.ChromeDriver, UrL As String, s As String
UrL = "https://tw.yahoo.com/"
s = "尿布"
With chrome
.Get UrL
.FindElementById("header-search-input").SendKeys (s)
.FindElementById("header-desktop-search-button").Click
End With
Stop
chrome.Quit
Set chrome = Nothing
End Sub

複製代碼

以奇摩這個case來說，元件是用ID，所以是用.FindElementById，下週到公司會再用F12查詢一次元件的相關資訊再附上圖片，在此之前有幾個疑問想先請教您
1.在奇摩首頁，我按下F12，一開始並沒辦法找到"header-search-input"和"header-desktop-search-button"這兩個關鍵詞，是等按下Crl+F搜尋框出現後key入search後才出現，不太理解為什麼要在這樣操作後才會出現關鍵詞，我這樣的作法是正確的嗎？或是有其他比較正確的方法可以查到"header-search-input"和"header-desktop-search-button"這兩個關鍵詞？