19/09/05 22:46:41.46 2H22tSfV.net
VBA知らないけどググったら5分でコピペ作品ができたぞw
'I'm Feeling Luckyボタンを押す
Sub ボタン1_Click()
Dim objIE As Object
Dim button As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "URLﾘﾝｸ(www.google.com")
objIE.Visible = True
Application.Wait Now() + TimeValue("00:00:05")
Set button = objIE.document.getElementsByName("btnI")(0)
button.Click
End Sub