【Excel VBA】使用activeX控件WebBrowser在单元格内读取数据，并搜索百度百科

代码1：

Sub row()
Dim intRow
Set intRow = Selection
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim intRow
Dim sTo

sTo = "12345"
Set intRow = Selection
[A1] = Selection.Value
[A2] = intRow & "sTo"
End Sub
'http://www.baidu.com/s?wd=

测试效果：

选中的但单元格上，赋值到固定单元格，比如【a1】[A2]

代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim intRow
Dim sTo
Dim mySearch As String
Dim url As String

mySearch = "http://www.baidu.com/s?wd="

sTo = "12345"
Set intRow = Selection

[A1] = Selection.Value
[A2] = intRow & "sTo"

url = mySearch & intRow
[A3] = url

End Sub
'http://www.baidu.com/s?wd=
'WebBrowser1.Navigate "http://www.baidu.com"
'WebBrowser1.Silent = True

效果：

加入插件并打开网页：

代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim intRow
Dim sTo
Dim mySearch As String
Dim url As String

mySearch = "https://baike.baidu.com/item/"
'设置搜索引擎为百度百科内部
Set intRow = Selection
'导赋值给选中的单元格
url = mySearch & intRow
[A3] = url
'将链接补全
WebBrowser1.Navigate url
WebBrowser1.Silent = True
'打开网页url

End Sub

效果：