如何使用vba在google上进行搜索？

除了使用 Excel 之外，我们还要做许多重要的事情。我对吗？

其中之一就是使用 Google 来搜索某些内容。在我的有用宏代码列表中，我有一个代码，您可以使用它来使用 Chrome 在 Google 上执行搜索查询。

今天我将与大家分享这段代码。您可以将此代码添加到您的个人宏工作簿中，并在需要 Google 某些内容时随时使用它。

打开 Google Chrome 进行搜索的 VBA 代码

下面是您可以使用 Chrome 搜索 Google 的代码。

Windows 32版本

 Sub Google_Search_32() Dim chromePath As String Dim search_string As String Dim query As String query = InputBox("Enter here your search here", "Google Search") search_string = query search_string = Replace(search_string, " ", "+") chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe""" Shell (chromePath & " -url http://google.com/search?q=" & search_string) End Sub

Windows 64版本

 Sub Google_Search_64() Dim chromePath As String Dim search_string As String Dim query As String query = InputBox("Enter here your search here", "Google Search") search_string = Replace(query, " ", "+") chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe""" Shell (chromePath & " -url http://google.com/search?q=" & search_string) End Sub

如何使用此 VBA 代码在 Google 上进行搜索

这是兑换此代码所需遵循的简单步骤。

• 使用 Alt + F11 快捷键打开 VB 编辑器或转到开发人员选项卡。

• 插入一个新模块并将上述代码粘贴到其中。

现在关闭 VB 编辑器并从开发人员选项卡中的宏选项运行此宏。

怎么运行的

当您运行此代码时，它会显示一个用于输入查询的输入框。您需要在此输入框中输入您的查询，然后单击“确定”。

单击“确定”后，此代码将使用您输入的文本创建搜索 URL 语法。

最后，将 Chrome 重定向到此 URL，为您提供您输入的查询的结果。