Как открыть папку из списка в таблице Excel с помощью VBA

Question

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

Этот код открывает определенную папку, но мне нужно открыть папку, сохраненную в таблице Excel, как показано ниже:

Мне нужен код для считывания пути и открытия папки, используя существующий путь в Excel.

Answer 1

Вы имеете в виду что-то вроде того, что показано ниже?

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

Если ваши адреса на самом деле не являются гиперссылками:

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

Также обратите внимание, что ваши значения в настоящее время не имеют расширения. Вы можете добавить их в ячейку или через VBA:

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