如何将Excel与Googlesearch集成？ <VBA代码>

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

表：帐户名称|行业|州|城市

在Googlesearch中点击单元格和“固定电话”组合，然后在Excel中收集

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

提示和参考编码将有很大的帮助。

Answer 1

假设您有一套您希望进行Googlesearch的主题。 将主题放在A列中：

以下macros：

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 

将打开一组Googlesearch窗口。 所有你需要做的是添加到代码：

1. select适当的链接
2. 从网页收集数据。