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

　暱稱: 熱狗慶

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

11^#

發表於 2022-7-12 16:15 | 只看該作者

本帖最後由 singo1232001 於 2022-7-12 16:29 編輯

回復 10# smart3135

1.你這個有frame
https://club.excelhome.net/thread-1452021-3-1.html
參考30樓再不行直接google 用純英文找看看有沒有範例

2.沒辦法只能多次利用 set tag1 = chrome.findelementsbytag("xxx")(0) 一層一層慢慢往下邊測邊找
xxx 就是最前面<> 中的紫色文字例如 center form table tbody tr td input
(0) 看物件組內的第幾個是你要的可以用迴圈或者.text 或.value 來debug.print 確認是不是你要的該元件

邊找也可以額外利用迴圈 + instr + .attribute 的方式模糊搜索

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

10^#

發表於 2022-7-12 11:12 | 只看該作者

回復 smart3135

其實可以不用按F12

(右鍵>檢查)做兩次不是右邊的紅框,而是左邊的顯示畫面 ...
singo1232001 發表於 2022-7-11 03:43

您好，今天到公司用了滑鼠右鍵選檢查，真的能找到對應的元件內容，只是還是不是很清楚這個FindElement該怎麼寫，可否再麻煩您幫忙看一下，若還需要其他資訊請再告知，非常感謝您。

1.首先現在Search點一下

2.在請輸入工單號碼欄位輸入工單號碼

3.按下查詢即可得到結果

quickfixer

帖子: 154
主題: 1
精華: 0
積分: 200
點名: 30
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2024-11-25

9^#

發表於 2022-7-11 05:44 | 只看該作者

本帖最後由 quickfixer 於 2022-7-11 05:51 編輯

回復 8# singo1232001

1.另外建議在編寫過程千萬不要用with 的寫法這會造成你測試麻煩

看樓主的程式碼,用with結構漂亮,也只用了1個,不會有問題
我google到用with只有好處
我不像你這麼精通程式,搞不清楚這幾行程式碼會出什麼問題
請教一下這種with寫法會出現什麼麻煩?

https://docs.microsoft.com/zh-tw/dotnet/visual-basic/language-reference/statements/with-end-with-statement
如果您的程式碼會在多個陳述式中存取相同物件，使用 With 陳述式有下列好處：

您不需要多次評估複雜的運算式或指派結果給暫存變數，以多次參考其成員。

您可以讓程式碼更容易讀取，方法是排除重複的限定運算式。

　暱稱: 熱狗慶

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

8^#

發表於 2022-7-11 03:43 | 只看該作者

本帖最後由 singo1232001 於 2022-7-11 03:58 編輯

回復 7# smart3135

其實可以不用按F12

(右鍵>檢查)做兩次不是右邊的紅框,而是左邊的顯示畫面上直接操作

中文版的是"檢查"  英文版的我忘了

若畫面有封鎖  就要先F12 然後右邊的程式碼  用滑鼠上下移動  看左邊畫面哪裡被框起來就能逐漸找到

或者安裝google chrome商店的 Selenium IDE 擴充功能來抓(遇到藏很深的才需要)

比如你說的那個搜尋欄就是
chrome.FindElementById("header-search-input").clear
chrome.FindElementById("header-search-input").sendkey "關鍵字"
點擊查詢按鈕
chrome.FindElementById("header-desktop-search-button").click

1.另外建議在編寫過程千萬不要用with 的寫法這會造成你測試麻煩
2.ID通常只有1個所以很好少
3.非ID的元件通常不只1個  就可以+s
例如:
set tag1 = chrome.FindElementByTag("input") 這頁面至少超過10個以上
就該改成
set tag1 = chrome.FindElementsByTag("input")

這樣就能在之後把所有的input 都放入 tag1 內並像陣列物件一樣會自動編號

之後就可以單獨選擇
tag1(0)
tag1(1)
.
.
.
.
.
tag1(tag1.count) 內的東西了

補充
要不要set 就看你之後還要不要繼續用
如上述例子
chrome.FindElementById("header-search-input").clear
chrome.FindElementById("header-search-input").sendkey "關鍵字"
當下sendkey 或者click 就沒必要額外set
當然也可以
set id1 = chrome.FindElementById("header-search-input")
id1.clear
id1.sendkey "關鍵字"

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

7^#

發表於 2022-7-10 23:14 | 只看該作者

回復 smart3135

在元件上檢查兩次才會全展開

第一次只會選擇到元件的上層或者框架
...
singo1232001 發表於 2022-7-10 01:30

可以再和您確認一下嗎？是左鍵兩次還是右鍵兩次？我按右鍵會出現圖中紅框的視窗。

　暱稱: 熱狗慶

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2022-7-10 01:30 | 只看該作者

回復 5# smart3135

在元件上檢查兩次才會全展開

第一次只會選擇到元件的上層或者框架
第二次才會自動跳到元件本身

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

5^#

發表於 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"這兩個關鍵詞？

2.您說在想查的元件上面右鍵 >檢查 (重複2次)，這裡不是很懂，可以再詳述一下或是提供參考圖片嗎？
先感謝您的指導

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

4^#

發表於 2022-7-10 00:00 | 只看該作者

回復 smart3135

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

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

　暱稱: 熱狗慶

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2022-7-9 18:05 | 只看該作者

本帖最後由 singo1232001 於 2022-7-9 18:09 編輯

回復 1# smart3135

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

要在瀏覽器按F12  並在想查的元件上面       右鍵  >檢查 (重複2次)

尤其是某些內部網頁藏框架就算上述你有給

也可能因為iframe不同框架無法用  但可以先試試

另外補充有ID簡單一點
沒ID 就要順著祖孫階層展開全抓