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