Excel 2010 VBA 保存、打开位置、选择文件

Question

我制作了一个 VBA 宏，将文件保存为 xlsx 和 pdf，并保存在设定位置，文件名取自工作表中的单元格，然后打开保存位置。

代码如下:

Sub SaveAs()

Dim FName           As String
Dim FPath           As String

FPath = "PATHNAME HERE"
FName = Sheets("SHEETNAME").Range("E1").Text
ActiveWorkbook.SaveAs Filename:=FPath & "\" & FName, FileFormat:=51

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FPath & "\" & FName, Quality:=xlQualityStandard

Shell "explorer.exe" & " " & "PATHNAME HERE", vbNormalFocus    

End Sub

但是，我保存这些文件的文件夹变得非常满，为了方便访问，我想在资源管理器中打开路径，并选择刚刚保存的pdf(例如，我想打开选择文件的文件夹，而不是像打开pdf)。有什么建议如何实现这一点吗？

Answer 1

试试这个:

使用

Shell "explorer.exe /select," & FPath & "\" & FName, vbMaximizedFocus

而不是

Shell "explorer.exe" & " " & "PATHNAME HERE", vbNormalFocus