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