Cómo abrir una carpeta desde una lista en una hoja de cálculo de Excel usando VBA

Question

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

Este código abre una carpeta específica, pero necesito abrir una carpeta guardada en una hoja de Excel como se muestra a continuación:

Necesito el código para leer la ruta y abrir la carpeta usando la ruta existente en Excel

Answer 1

¿Te refieres a algo como lo siguiente?

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

Si sus direcciones no son en realidad hipervínculos:

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

Además, tenga en cuenta que sus valores actualmente no tienen ninguna extensión. Es posible que desee agregarlos en la celda o mediante VBA:

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