使用VBA从Excel工作表中的列表中打开文件夹

Question

This code is used to open a specific folder.

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

I need to open a folder saved in an Excel sheet (like in the image below). I need to read the path in Excel and to open the folder.

Answer 1

Let's say you have your table in the first three columns from A to C. You can write your serial number in cell E1 and run macro. For example, if you enter 3 in cell E1 and click the button, the folder from Edres will be open.

Dim strFolderPath As String
Dim NrRow As Long
NrRow = Cells(1, 5)
strFolderPath = Cells(NrRow + 1, 3).Value
ThisWorkbook.FollowHyperlink (strFolderPath)