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

我必须在Google中进行大量的search,所以我制作了一个简单的文本插入到谷歌链接的Excel文件:

“约翰”和“足球”或“运动”

“安德烈”和“足球”或“运动”

例如,在单元格A1中有名称“John”,并将其插入到以下链接中。

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%9CS%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

结果如下:

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

我只是简单地把它拖下来,所有的名字。 这些都是实际发送给我想要的页面的所有链接。 但是,我不能是“点击他们”,无论我尝试我不能让这些单元格点击超链接。

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

有什么办法强制文本在浏览器中打开? 以VBA为例。

先谢谢你,如果你知道一个更简单的方法来执行此操作,我也希望听到。

亲切的问候!

您应该使用Hyperlink( )函数

 =HYPERLINK(link_location, [friendly_name]) 

你有微软的这个例子,如果你想要的链接在A5:

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

您可以通过单元格的内容修改Address:= …