arrays - 使用字符串数组转储超链接方程以文本形式出现

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]，“链接”)

我希望它是实际的超链接。如果在任何单元格上按 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