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

打开由路径和单元格指定的文件夹时遇到问题

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)

对,

它起作用了。但如果我加上“最后一位”。它会打开MyDocuments文件夹。我猜当某些东西不工作时，这是默认的

单元格N1有一个引用不同工作表上另一个单元格的公式。公式为“=列表！A4”。此工作表已隐藏。

您需要参考

"ActiveSheet.Range(N1).Value"

作为

你需要参考

"ActiveSheet.Range(N1).Value"

作为

---

谢谢你的回复！我工作过。我想我试过了。我感谢你的帮助！谢谢你的回复！我工作过。我想我试过了。我感谢你的帮助！

ActiveSheet.Range("N1").Value