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