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

Question

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

代码如下：

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

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

Excel 2010 VBA save, open location, select file

excel

vba

excel-2010