有没有办法将所有 Excel VBA Google 搜索存储在 Excel 文件的单独 sheet 中？

Question

我有下面的代码，它完全按照我想要的方式工作。我在 Excel pop-up window using VBA 中键入某个词组，然后使用 Google Search 进行搜索。但是，我希望能够将所有 Excel VBA Google 搜索存储在同一个 Excel 文件中（same/another sheet ) 或在另一个文件中。有人知道这是否可行吗？我不知道是代码应该修改还是Excel设置有什么问题。

Private Const LicenseRegistration As String = "+brott+och+straff"
Private Sub CommandButtonSearch_Click()
   Dim query As String
   Dim search_string As String
   Dim googleChromePath As String
   
   query = InputBox("Enter your keyword", "Google Search")
   search_string = Replace(query, " ", "+") & LicenseRegistration
   
   googleChromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
   
   Shell (googleChromePath & " -url http://google.com/search?q=" & search_string)

With ThisWorkbook.Worksheets("AnotherSheet")
.Cells(.Rows.Count, 1).End(xlUp).Offset(1).Value = search_string
End With

End Sub

弹出标题为“Microsoft Visual Basic”的 window 并显示：Run-time 错误“9”：下标超出范围

我完全按照你写的代码复制粘贴了，甚至试图修改一下，但无济于事。我真的希望你能看到这个link的图片：https://drive.google.com/file/d/1me7xBn8jGvtmpRADp5QFUFmR9k2oGzBs/view?usp=sharing

Answer 1

如果您只想保留 search_string 的运行列表，那么您可以使用：

With ThisWorkbook.Worksheets("AnotherSheet") ' change sheet name as needed
   .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Value = search_string
End With

在 Shell 调用之前（甚至之后）。

有没有办法将所有 Excel VBA Google 搜索存储在 Excel 文件的单独 sheet 中？

Is there a way to store all Excel VBA Google searches in a separate sheet in the Excel file?

excel

vba

google-chrome

search

google-search