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]，＆＃34;连结＆＃34）

我希望它是实际的超链接。如果按F2，则在任何单元格上输入，它将成为超链接。谁能告诉我我在这里失踪了什么？让我疯狂的是，下面的代码完全符合我的要求。

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

使用字符串数组转储超链接方程式作为文本出现

1 个答案: