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

Excel VBA用WebBrowser单元格读数据搜百科

最新推荐文章于 2024-07-19 00:13:51 发布

原创

最新推荐文章于 2024-07-19 00:13:51 发布 · 1.2k 阅读

2 ·

CC 4.0 BY-SA版权

代码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

效果：