Re: [請益] 請問VBA將網頁下拉的寫法

[femlro (既得此生當盡其用)]

Sub OpenAndScrollChrome()

    '啟動Chrome瀏覽器
    Shell "C:\Program Files\Google\Chrome\Application\chrome.exe"

    '等待Chrome開啟
    Application.Wait (Now + TimeValue("00:00:05"))

    '模擬下箭頭鍵
    Application.SendKeys "{DOWN 5}", True

    '等待30秒
    Application.Wait (Now + TimeValue("00:00:30"))

    '關閉當前網頁（Ctrl+W）
    Application.SendKeys "^{w}", True

End Sub
-----
Sent from JPTT on my iPhone

--
Every man for himself and God against them all.

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.36.125.121 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Soft_Job/M.1694518580.A.7F3.html
噓 brucetu: 喔
→ neo5277: 酷耶來試試看
推 lchcoding: 推，難得有程式碼可以看...
推 B0988698088: 所以他的問題是少一個true?
推 kero961240: 想詢問 down 5的意思是什麼呢
推 TSMCfabXX: 重複次數
推 neo5277: 原來是這樣的思路
推 erpp: 感謝大神，但是試了還是不行
→ femlro: 哪裡不行？
推 erpp: down5那邊不行，網頁無法往下

試試看

For i = 1 To 5
    Application.SendKeys "{DOWN}", True

    Application.Wait (Now + TimeValue("00:00:01"))
Next i

Chrome要是目前活動窗口
不然指令會被送到別的地方

→ Firstshadow: 改Application.SendKeys "{PGDN 5}", True勒？
噓 peter98: 此id必噓
※ 編輯: femlro (114.36.125.121 臺灣), 09/14/2023 12:22:37