Dim fso,filepath,i 'Dim ExcelBook,ExcelSheet,MyExcelBook,MyExcelSheet Dim ie Set ie=WScript.CreateObject("internetexplorer.application")

ie.Navigate "http://www.google.com/" MsgBox "等待一下" ie.Visible = True ie.Document.body.all.q.Value = "abc" ie.Document.body.all.btnG.Click MsgBox (ie.LocationURL) Set IEDocument = ie.Document msgbox IEDocument.body.innertext