› 看板 Soft_Job
作者femlro (既得此生當盡其用)
看板Soft_Job
標題Re: [請益] 請問VBA將網頁下拉的寫法
時間Tue Sep 12 19:36:16 2023
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: 喔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
推 Kroner: 想問一下有沒有關節痛的運動禁忌？怕動得更嚴重… 09/13 19:27
推 TSMCfabXX: 重複次數09/13 12:18
推 neo5277: 原來是這樣的思路09/13 15:21
推 erpp: 感謝大神，但是試了還是不行09/13 19:04
→ femlro: 哪裡不行？09/13 19:27
推 Kroner: UC2神招啊，吃下去就對了 09/13 19:27
推 erpp: down5那邊不行，網頁無法往下09/13 20:54
試試看 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勒？09/14 01:24
噓 peter98: 此id必噓09/14 04:38
※ 編輯: femlro (114.36.125.121 臺灣), 09/14/2023 12:22:37