用vba代码将F:\1（指定文件夹）中的多个工作簿转换为pdf文件

在office2016的VBA界面中用vba代码将F:\1（指定文件夹）中的多个工作簿转换为pdf文件，实现代码如下（注：因系统限制，该断代码完成速度会较慢，且转换成pdf界面前，应使同一打印界面在同一预览界面中，不然转换成的pdf文件也在不同界面）：`

Sub ConvertToPDF()
    Dim FolderPath As String
    Dim FileName As String
    Dim SavePath As String
    
    ' 设置文件夹路径
    FolderPath = "F:\1\"
    
    ' 获取文件夹中的所有文件
    FileName = Dir(FolderPath & "*.xls*")
    
    ' 遍历文件夹中的每个文件
    Do While FileName <> ""
        ' 打开工作簿
        Workbooks.Open (FolderPath & FileName)
        
        ' 设置保存路径为与原文件相同的路径，只是后缀名改为.pdf
        SavePath = Left(ActiveWorkbook.FullName, InStrRev(ActiveWorkbook.FullName, ".")) & "pdf"
        
        ' 保存为PDF文件
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=SavePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
        
        ' 关闭工作簿
        ActiveWorkbook.Close SaveChanges:=False
        
        ' 继续下一个文件
        FileName = Dir
    Loop
    
    MsgBox "转换完成！"
End Sub

`