Como abrir uma pasta de uma lista em uma planilha Excel usando VBA

Question

Dim strFolderPath As String 
strFolderPath = “C:\temp\” 
ThisWorkbook.FollowHyperlink (strFolderPath)

Este código abre uma pasta específica, mas preciso abrir uma pasta salva em uma planilha Excel conforme mostrado abaixo:

Preciso do código para ler o caminho e abrir a pasta usando o caminho existente no Excel

Answer 1

Você quer dizer algo como abaixo?

With ThisWorkbook.Sheets("Sheet1")   
    Range("C2").Hyperlinks(1).Follow
End with

Se seus endereços não forem hiperlinks:

With ThisWorkbook.Sheets("Sheet1")   
    ThisWorkbook.FollowHyperlink Address:=.Range("C2").Value, NewWindow:=False, AddHistory:=True
End with

Além disso, observe que seus valores atualmente não têm extensão. Você pode querer adicioná-los na célula ou por meio do VBA:

Address:=.Range("C2").Value & ".extention"