如何打开Cell.Value中给定的（非HYPERLINK形式）完整的256个字符+URL对应的网页？

Question

我有动态组合 URL，每个包含多达 173 个不同的产品编号。

复合 URL 是使用条件文本公式从最多包含 1000 个产品编号的导入列表自定义编译的。我将每个 URL 限制在 2040 个字符以适应我的浏览器的最大 URL 字符限制，但是这些会导致 Excel 的 256 个字符超链接限制出现问题。

我使用任何基于 VBA 的解决方案和#value 得到无效进程！使用任何基于公式的解决方案。

Answer 1

假设您在单元格 A1 中有一个 URL。

在标准代码模块中添加此例程：

Sub OpenWebpage(url$)
    ActiveWorkbook.FollowHyperlink url
End Sub

现在这样称呼它：

OpenWebpage Range("A1")

以上解决方案将使用您计算机系统的默认值web-browser。

要通过直接自动化在 Internet Explorer 中打开 URL，请使用此过程：

Sub OpenWebpageInIE(url$)
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate WorksheetFunction.EncodeURL(url)
    End With
End Sub

Answer 2

按照@ComputerVersher 的建议，我实现了在 https://www.devhut.net/2018/02/01/vba-open-a-url-in-firefox-chrome/ 找到的代码，并用 Call OpenURL(Range("K16").Value, InternetExplorer)

调用它

如何打开Cell.Value中给定的（非HYPERLINK形式）完整的256个字符+URL对应的网页？

How can I open the webpage corresponding to a complete 256 char+ URL given (not in HYPERLINK form) in a Cell.Value?

url

excel

vba

hyperlink