使用string数组转储超链接方程作为文本出来

我正在使用string数组来收集文件path和超链接到该文件。 下面的代码是我正在做的简化版本，但它似乎遭受同样的问题。 这个子输出数据到两列。 第一列是文件名，包含path，第二列是允许用户打开该文件的超链接公式。

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然后input任何单元格，它将成为超链接。 有人能告诉我我在这里错过了什么吗？ 什么让我疯狂的是，下面的代码正是我想要的。

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

我必须得到string转储方法工作，而不是上述方法。 我错过了什么？

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