链接到原始文件

Question

我需要帮助。我发现此代码在我需要的东西中非常有用，但是它缺少两件事，我没有找到该怎么做。我需要从目录中读取的文件具有位置的链接，或者单击excel中的每个文件都可以打开该部分。能帮我吗？

Sub ListaArquivosDiretorio()
Dim strOrigem As String
Dim strExtensao As String

strOrigem = Range("origem")
strExtensao = Range("extensao")

'Coloca barra no final, caso nao exista
If Right(strOrigem, 1) <> "\" Then
   strOrigem = strOrigem & "\"
End If

'Apaga resultados anteriores
Range("B9:B1048576").Select
Selection.Delete Shift:=xlUp
Range("A1").Select

Range("B9").Select 'Inicia a selecao no primeiro arquivo

'Define a string de busca e extensão
strFile = Dir(strOrigem & "*" & strExtensao)

Do While strFile <> ""
    ActiveCell = strFile
    strFile = Dir
    ActiveCell.Offset(1, 0).Select
Loop

End Sub