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

Question

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

我想在excel中选择对应的文件名，然后启动宏在资源管理器中选择它。 例如，我选择单元格 D3 并启动宏，以便它打开资源管理器并转到以下地址并选择文件； D:\用户名\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

我调整了代码，但是不起作用。我认为问题出在 (& range (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 之后(连接到字符串末尾)都会放置一个 < em>双引号路径前后的字符。