VBA打开资源管理器并选择而不是打开选定的文件名

Question

我想要一个宏来打开 Windows 资源管理器并只选择一个文件，但不希望它打开该文件。 我在 excel 中有一个文档名称列表，分为一些变量。 我还在其中包含了一些超链接，因此您可以直接打开所选文件。 但现在我想要一个在资源管理器中选择相应文件并选择它的宏。 所有文件都在预定义的位置，但所有文件名都不同，当然。 例子; D:\username\Documents\workplans\document.001.1.xls D:\username\Documents\workplans\document.002.2.xls D:\username\Documents\workplans\document.003.3.xls

我想在excel中选择对应的文件名，并在资源管理器中启动宏来选择它。 例如，我选择单元格 D3 并启动宏，以便它打开资源管理器并转到以下地址并选择文件； D:\username\Documents\workplans\document.002.2.xls

      A                 B             C             D                 E
 1. var 1             var 2          var 3      doc. Name          Hyperlink
 2. document            1             1     document.001.1.xls  document.001.1
 3. document            2             2     document.002.2.xls  document.002.2
 4. document            3             3     document.003.3.xls  document.003.3

如果我将以下代码直接用于链接，它的工作方式就像我想要的那样，但文件名是可变的。

Sub open_explorer()
Shell "C:\Windows\explorer.exe /select,D:\username\Documents\workplans\document.002.2.xls", vbMaximizedFocus
End Sub

我调整了代码，但它不起作用。我认为问题出在（&范围（activeCell.select））。 我怎样才能让它工作？

Sub open_explorer()
Shell "C:\Windows\explorer.exe /select, D:\username\Documents\workplans\ &Range ActiveCell.Select", vbMaximizedFocus
End Sub

Answer 1

试试这个：

Sub open_explorer()
Shell "C:\Windows\explorer.exe /select, ""D:\username\Documents\workplans\" _
    & ActiveCell.Value & """", vbMaximizedFocus
End Sub

请注意，任何包含空格或其他特殊字符的路径都需要引号。上面字符串中的 双引号，在 D: 之前和 ActiveCell.Value 之后（连接到字符串的末尾）在路径。

Answer 2

只有在我为文件名添加扩展名（例如“.xls”）时，上述内容才对我有用。

Sub open_explorer()
Shell "C:\Windows\explorer.exe /select, D:\username\Documents\workplans\" & ActiveCell.Value & ".xls", vbMaximizedFocus
End Sub