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

喔

酷耶来试试看

推，难得有程式码可以看...

所以他的问题是少一个true?

想询问 down 5的意思是什么呢

重复次数

原来是这样的思路

感谢大神，但是试了还是不行

哪里不行？

down5那边不行，网页无法往下

改Application.SendKeys "{PGDN 5}", True勒？

此id必嘘