Question

点击excel中单元格中的数据后，需要将数据复制到浏览器＆amp;浏览器打开。

示例：我在Excel中的单元格A1中有“Stackoverflow”文本。单击单元格后，应将内容复制到所需的浏览器，例如：google.co.in，浏览器应打开，显示结果。

Answer 1

Private Sub IE_Autiomation()
Dim IE As Object
For Each cell In Range("A1:A200")
     ' Create InternetExplorer Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = False
    ' Set webpage address(google+searching word
    IE.Navigate ("http://www.google.com/?gws_rd=ssl#q=" & cell.Value)
    IE.Visible = True
Next
End Sub

你需要这样的东西吗？

Answer 2

可能的解决方案如下：

创建新的控制按钮
将以下宏添加到按钮：
```
With Worksheets(1)
   .Hyperlinks.Add Anchor:=.Range("A1:B3"), _
       Address:="http://www.google.co.in/search?q=" & ActiveCell.Value
End With
```
1. 将A1:B3替换为您的范围
2. 转到单元格（使用键盘上的导航键或在搜索弓中键入单元格位置）
3. 使用鼠标，单击您创建的按钮
4. 单击所需单元格中的文本

我并不是说这是最好的解决方案，但它确实需要，因为我们遵循上述步骤

Answer 3

我使用了这段代码。谢谢大家。

Private Sub CommandButton3_Click()
Dim IE As Object
For Each cell In Range("b7")
     ' Create InternetExplorer Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = False
    ' Set webpage address(google+searching word
    IE.Navigate ("http://www.google.co.in/?gws_rd=ssl#q=" & cell.Value)
    IE.Visible = True
Next
End Sub

如何将点击的单元格数据复制到浏览器？

3 个答案: