Re: [請益] 請問VBA將網頁下拉的寫法
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
噓
09/12 20:47,
1年前
, 1F
09/12 20:47, 1F
→
09/12 23:25,
1年前
, 2F
09/12 23:25, 2F
推
09/13 10:38,
1年前
, 3F
09/13 10:38, 3F
推
09/13 11:01,
1年前
, 4F
09/13 11:01, 4F
推
09/13 12:10,
1年前
, 5F
09/13 12:10, 5F
推
09/13 12:18,
1年前
, 6F
09/13 12:18, 6F
推
09/13 15:21,
1年前
, 7F
09/13 15:21, 7F
推
09/13 19:04,
1年前
, 8F
09/13 19:04, 8F
→
09/13 19:27,
1年前
, 9F
09/13 19:27, 9F
推
09/13 20:54,
1年前
, 10F
09/13 20:54, 10F
試試看
For i = 1 To 5
Application.SendKeys "{DOWN}", True
Application.Wait (Now + TimeValue("00:00:01"))
Next i
Chrome要是目前活動窗口
不然指令會被送到別的地方
→
09/14 01:24,
1年前
, 11F
09/14 01:24, 11F
噓
09/14 04:38,
1年前
, 12F
09/14 04:38, 12F
※ 編輯: femlro (114.36.125.121 臺灣), 09/14/2023 12:22:37
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇):
7
17
Soft_Job 近期熱門文章
39
130
PTT職涯區 即時熱門文章