使用字符串数组转储超链接等式以文本形式出现

Question

我正在使用字符串数组来收集文件路径和指向该文件的超链接。下面的代码是我正在做的事情的简化版本，但它似乎遇到了同样的问题。此子将数据输出到两列中。第一列是文件名，包括路径，第二列是允许用户打开该文件的超链接等式。

  Sub string_dump()

  Dim i As Long
  Dim str() As String
  ReDim str(10, 1)

    For i = 0 To 10
      str(i, 0) = "C:\Users\Wegner\Documents\Programs\Document1.txt"
      str(i, 1) = "=hyperlink(rc[-1],""link"")"
    Next i

    Range(Cells(3, 1), Cells(13, 2)) = str

  End Sub

问题是在将数组转储到工作表单元格后，超链接方程式在单元格中显示如下：

=超链接(rc[-1],"link")

我希望它成为实际的超链接。如果按 F2，然后在任何单元格上按 Enter，它将成为超链接。有人可以告诉我我在这里缺少什么吗？让我发疯的是下面的代码完全符合我的要求。

Sub equation_dump()

  Range(Cells(3, 2), Cells(13, 2)) = "=hyperlink(rc[-1],""link"")"

End Sub

我必须使用字符串转储方法来代替上述方法。我错过了什么？

Answer 1

将 str 保留为 variant

Sub string_dump()

Dim i As Long
Dim str()
ReDim str(10, 1)

For i = 0 To 10
   str(i, 0) = "C:\Users\Wegner\Documents\Programs\Document1.txt"
   str(i, 1) = "=hyperlink(rc[-1],""link"")"
Next i

Range(Cells(3, 1), Cells(13, 2)).FormulaR1C1 = str

End Sub

使用字符串数组转储超链接等式以文本形式出现

using string array to dump hyperlink equation comes out as text

arrays

excel

vba

hyperlink