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

Question

我想要一个宏来打开Windows资源管理器,只需选择一个文件,但不希望它打开该文件.我在excel中有一个文档名列表,分成了一些变量.我还在其中包含了一些超链接,因此您可以直接打开所选文件.但是现在我想要一个在资源管理器中选择相应文件的宏,然后选择它.所有文件都在预定义的位置,但所有文件名都不同,当然.例; D:\用户名\ 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:\用户名\文档\工作计划\ 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(级联到字符串的末尾)把一个双引号之前和路径之后炭.