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. -- ※ 發信站: 批踢踢實業坊(web-ptt.org.tw), 來自: 114.36.125.121 (臺灣) ※ 文章網址: https://web-ptt.org.tw/Soft_Job/M.1694518580.A.7F3

噓 brucetu: 喔09/12 20:47

→ neo5277: 酷耶來試試看09/12 23:25

推 lchcoding: 推，難得有程式碼可以看...09/13 10:38

推 B0988698088: 所以他的問題是少一個true?09/13 11:01

推 kero961240: 想詢問 down 5的意思是什麼呢09/13 12:10

推 Peycere: 有人被包養嗎09/13 12:10

推 TSMCfabXX: 重複次數09/13 12:18

推 neo5277: 原來是這樣的思路09/13 15:21

推 erpp: 感謝大神，但是試了還是不行09/13 19:04

→ femlro: 哪裡不行？09/13 19:27

推 erpp: down5那邊不行，網頁無法往下09/13 20:54

推 vd422: 求包養...管飽就好XD09/13 20:54

→ Firstshadow: 改Application.SendKeys "{PGDN 5}", True勒？09/14 01:24

噓 peter98: 此id必噓09/14 04:38