Como hiperlink automaticamente para pastas do Excel

Question

Eu tenho 500 pastas com uma string específica de nomes por exemplo, Aseem-tb-rd-001 , Taj-tb-rd-006 , etc.

Cada pasta tem duas subpastas, exatamente denominadas In e Out .

Agora tenho um arquivo do Excel com planilhas denominadas In e Out , Ambas as folhas têm a respectiva cadeia de nomes. Eu preciso do Excel para buscar automaticamente a pasta e adicionar o hiperlink.

por exemplo, se a célula H3 na folha In tiver o nome Taj-tb-rd-006 , eu quero que o hiperlink vincule à pasta Taj-tb-rd-006\In e se a célula H8 na folha Out tiver o nome Taj-tb-rd-006 , eu quero que o hiperlink vincule à pasta Taj-tb-rd-006\Out .

Isso pode ser feito por qualquer meio?

    

Answer 1

Você pode fazer isso usando uma fórmula. Eu começaria com:

= HIPERLINK (H3 & "\ out")

Editar Desculpe, interpretou mal a questão. A outra metade da resposta é que você precisa de algum código VBA como esse, modificado de esta resposta no SO:

Sub LoopThroughFiles()
    Dim MyObj As Object, MySource As Object, file As Variant, i As Integer
    file = Dir("D:\My Folder\", vbDirectory)
    While (file <> "")
       i = i + 1
       ActiveSheet.Cells(i, 1) = file
       file = Dir
   Wend
End Sub