如何將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. 收集數據。