作者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://webptt.com/cn.aspx?n=bbs/Soft_Job/M.1694518580.A.7F3.html
1F：嘘 brucetu: 喔09/12 20:47
2F：→ neo5277: 酷耶来试试看09/12 23:25
3F：推 lchcoding: 推，难得有程式码可以看...09/13 10:38
4F：推 B0988698088: 所以他的问题是少一个true?09/13 11:01
5F：推 kero961240: 想询问 down 5的意思是什麽呢09/13 12:10
6F：推 TSMCfabXX: 重复次数09/13 12:18
7F：推 neo5277: 原来是这样的思路09/13 15:21
8F：推 erpp: 感谢大神，但是试了还是不行09/13 19:04
9F：→ femlro: 哪里不行？09/13 19:27
10F：推 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要是目前活动窗口
不然指令会被送到别的地方
11F：→ Firstshadow: 改Application.SendKeys "{PGDN 5}", True勒？09/14 01:24
12F：嘘 peter98: 此id必嘘09/14 04:38
※ 编辑: femlro (114.36.125.121 台湾), 09/14/2023 12:22:37