使用 Excel VBA 引用路径和单元格公式打开 Windows 资源管理器

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”。 它打开我的文档文件夹。 我想当某些东西不起作用时它是默认设置？

单元格 N1 有一个引用不同工作表上的另一个单元格的公式。 公式是“=LISTS.A4”。 这张纸是隐藏的。

Answer 1

你需要参考

"ActiveSheet.Range(N1).Value"

作为

ActiveSheet.Range("N1").Value