时间戳

首页 > 解决方案 > 使用 Excel VBA 引用路径和单元格公式打开 Windows 资源管理器

excel - 使用 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)

至，

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

有用。但如果我添加“FinalFolder”。它打开 MyDocuments 文件夹。我想当某些东西不起作用时它是默认值？

单元格 N1 有一个公式，它引用不同工作表上的另一个单元格。公式是“=LISTS!A4”。此工作表已隐藏。

标签： excelvbapath

解决方案

你需要参考

"ActiveSheet.Range(N1).Value"

作为

ActiveSheet.Range("N1").Value

推荐阅读