Question

使用Excel VBA，我使用Bitly API来缩短长链接。宏运行完美，我能够将所有长链接转换为短链接。现在，当我将这些链接复制/粘贴到浏览器时，它们工作正常，例如http://bit.ly/1FVcuRx但是当我将它们用于：

 =HYPERLINK(A1, 2)

其中A1 = http://bit.ly/1FVcuRx，然后我点击它，它出错：“找不到[某个文件，本地目录]”。

我不知道如何才能使其工作，因为链接工作正常，但超链接无法使用它。

另外，我注意到一件事，对于较短的链接（少于255个字符），当我运行宏时，Bitly链接可以正常使用HYPERLINK函数。

Answer 1

似乎excel 2013和excel 2016（来自Office 365）存在问题。我尝试使用谷歌文档和excel 2013（普通版），它运行良好。

Answer 2

您的代码〜= HYPERLINK（A1,2）〜在Office 365的excel 2016上运行正常。或者，您可以使用以下代码将这些小网址转换为可点击的超链接。我还将示例文件上传到了Dropbox。https://www.dropbox.com/s/52vl33rma7468no/test_0910_2015b.xlsm?dl=0

Sub ConvertToHyperlinks()
  Dim Rng As Range
  Dim WorkRng As Range
  On Error Resume Next
  Set WorkRng = Application.Selection
  Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
  For Each Rng In WorkRng
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
  Next
End Sub

即使被Bitly缩短，HYPERLINK也找不到长链接

2 个答案: