Question

我必须在Google中执行大量搜索，因此我创建了一个Excel文档，只需将文本插入到Google链接中：

＆＃34;约翰＆＃34;和“足球”或“运动”

＆＃34;安德烈＆＃34;和“足球”或“运动”

例如，在单元格A1中输入名称＆＃34; John＆＃34;我将其插入以下链接。

https://www.google.nl/search?newwindow=1&q=%22的＆安培; A1 ％22 + AND +％E2％80％9CSoccer％E2％80％9D + OR +％E2％80％9CSport％E2％80％9D +安培; OQ =％22安培;的 A1 ％22 + AND +％E2％80％9CSoccer％E2％80％9D + OR +％E2％80％9CSport％E2％80％9D +＆安培; gs_l = SERP 0.3 ... 7614.32351.0.32567.17.17.0.0.0.0.345.1828.8j6j0j1.15.0 .... 0 ... ... 1c.1.64.serp..2.3.379 30i10k1.vLZ-hcrrdgg

就像这样：

https://www.google.nl/search?newwindow=1&q=%22John%22+AND+%E2%80%9CSoccer%E2%80%9D+OR+%E2%80%9CSport%E2%80%9D+&oq=%22John%22+AND+%E2%80%9CSoccer%E2%80%9D+OR+%E2%80%9CSport%E2%80%9D+&gs_l=serp.3...7614.32351.0.32567.17.17.0.0.0.0.345.1828.8j6j0j1.15.0....0...1c.1.64.serp..2.3.379...30i10k1.vLZ-hcrrdgg

我只需将其拖下来就为所有名字制作了这个名称。这些都是实际上将我发送到我想要的页面的链接。但是，我无法＆＃34;点击他们＆＃34;无论我尝试什么，我都无法使这些单元格可点击超链接。

下一步也是我想使用Amyuni PDF打印/保存它们。（这不是我目前最关心的问题）

有没有办法强制文本在浏览器中打开？以VBA为例。

提前感谢您，如果您知道更简单的方法，我也希望听到这一点。

亲切的问候！

Answer 1

您应该使用Hyperlink( ) Function

=HYPERLINK(link_location, [friendly_name])

Answer 2

如果您想要的链接位于A5：

，那么您有来自Microsoft的此示例

Sub test()

With Worksheets(1)
 .Hyperlinks.Add Anchor:=.Range("a5"), _
 Address:="http://example.microsoft.com", _
 ScreenTip:="Microsoft Web Site"

End With
End Sub

您可以通过单元格的内容修改地址：= ...

如何强制excel在webbrowser中打开文本？

2 个答案: