'在excel表1添加WebBrowser控件
Sub lau()
Dim web As WebBrowser
Set web = Sheet1.WebBrowser1
With web
.Navigate "http://www.baidu.com"
Do Until .ReadyState = 4
DoEvents
Loop
.Document.GetElementById("kw").Value = sheet1.[a1]
End With
End Sub
range("a1").copy range("b1")
借助dataload可以帮你实现