откройте проводник Windows, используя путь ссылки Excel VBA и формулу ячейки

Question

У меня проблемы с открытием папки, обозначенной путем и ячейкой

Private Sub cmd_OPEN_FOLDER_Click()

    Dim d As String
    Dim FolderPath As String
    Dim FinalFolder As String

    FolderPath = "C:\Users\USER1\Desktop\ExampleFolder1\ExampleFolder2\"

    FinalFolder = "ActiveSheet.Range(N1).Value" & "\"

    Call Shell("explorer.exe """ & FolderPath & FinalFolder & "", vbNormalFocus)

End Sub

Если я опущу,

FinalFolder = "ActiveSheet.Range(N1).Value" & "\"

и изменим,

Call Shell("explorer.exe """ & FolderPath & FinalFolder & "", vbNormalFocus)

до

Call Shell("explorer.exe """ & FolderPath & "", vbNormalFocus)

все работает.Но если я добавлю «FinalFolder».Открывает папку MyDocuments.Я думаю, по умолчанию, когда что-то не работает?

Ячейка N1 имеет формулу, которая ссылается на другую ячейку на другом листе.Формула "= СПИСОК! А4".Этот лист скрыт.

Answer 1

Вам нужно сослаться на

"ActiveSheet.Range(N1).Value"

как

ActiveSheet.Range("N1").Value