Excel 2010 VBA保存，打开位置，select文件

我已经做了一个VBAmacros来保存一个文件为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 

然而，我保存这些文件的文件夹变得相当充满，为了方便访问，我想打开浏览器中的path与select刚刚保存的PDF（如，我想打开文件夹select的文件，而不是打开PDF） 。 任何build议如何做到这一点？

Answer 1

尝试这个：

使用

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

代替

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