如何将Excel与Google搜索集成？ <vba code =“”>

Question

目标：通过Excel中的公司数据表获取Google中的电话号码

表：帐户 名称|工业|国|城

在Google搜索上点击细胞和“固定电话”的组合并在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

将打开一组Google搜索窗口。您需要做的就是将代码添加到：

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