如何将Excel与Google搜索集成？ <VBA code>

Question

目标：获得的电话号码在谷歌低谷的公司数据表格在Excel

表：应收 名称|工业|国|城市

细胞的命中组合和“固定电话”在谷歌搜索和收集在Excel中

我正在手动。希望通过编程实现它。

提示和参考编码会帮助很多。

Answer 1

假设您有一套您希望进行谷歌搜索的主题。放置话题列A：

下面的宏：

Sub dural() 
    Dim N As Long, i As Long 
    N = Cells(Rows.Count, "A").End(xlUp).Row 
    With ActiveWorkbook 
     For i = 1 To N 
      .FollowHyperlink Address:="https://www.google.com/search?q=" & Cells(i, 1).Value 
     Next i 
    End With 
End Sub 

将开启一组谷歌搜索窗口。所有你需要做的就是添加到代码：

1. 选择网页的相应链接
2. 收集数据。