arrays - 正确语法以将超链接从数组添加到 Excel 工作表

Question

我有一个 Excel 宏，它在 lopp 中使用 DIR 从所有文件夹中检索所有文件并将它们显示在工作表上。在每次迭代时输出到工作表的代码位是：

rOut.Range("A1:B1").Offset(iFile).Value = Array(sName, sFile)

我想将第一个单元格作为超链接输出到文件所在的文件夹（存储在变量 sPath 中），在第二个单元格中我想输出文件名，这也是打开文件的超链接。

我想出了这段代码：

With rOut
    With .Cells(1, 1)
        .Offset(iFile).Hyperlinks.Add Anchor:=.Offset(iFile), Address:=sPath, TextToDisplay:=sName
    End With
    With .Cells(1, 2)
        .Offset(iFile).Hyperlinks.Add Anchor:=.Offset(iFile), Address:=sName, TextToDisplay:=sFile
    End With
End With

我知道这很草率，而且它明显比上面的数组语法慢，但我就是想不通。

建议？

谢谢。

标签： arraysexcelvbahyperlink