使用vba将桌面下的1文件夹的excel表进行批量转换为PDF，同时使用用户窗体显示转换进度

以下是将桌面下的1文件夹的Excel表进行批量转换为PDF，并使用用户窗体显示转换进度的VBA代码：

Sub ConvertExcelToPDF()
    Dim FSO As Object
    Dim SourceFolder As Object
    Dim FileItem As Object
    Dim ExcelApp As Object
    Dim ExcelBook As Object
    Dim SavePath As String
    Dim i As Long
    Dim TotalFiles As Long
    
    '设置源文件夹路径
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = FSO.GetFolder(Environ("USERPROFILE") & "\Desktop\1")
    
    '获取源文件夹中的Excel表数量
    TotalFiles = SourceFolder.Files.Count
    
    '初始化Excel应用程序
    Set ExcelApp = CreateObject("Excel.Application")
    ExcelApp.DisplayAlerts = False
    
    '遍历源文件夹中的每个Excel表，将其转换为PDF
    For Each FileItem In SourceFolder.Files
        If Right(FileItem.Name, 4) = ".xls" Or Right(FileItem.Name, 5) = ".xlsx" Then
            i = i + 1
            
            '打开Excel表
            Set ExcelBook = ExcelApp.Workbooks.Open(FileItem.Path)
            
            '设置PDF保存路径
            SavePath = FSO.BuildPath(Environ("USERPROFILE") & "\Desktop\PDFs", FSO.GetBaseName(FileItem.Name) & ".pdf")
            
            '将Excel表保存为PDF
            ExcelBook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SavePath
            
            '关闭Excel表
            ExcelBook.Close False
            
            '更新进度条
            UserForm1.ProgressBar1.Value = i / TotalFiles * 100
        End If
    Next
    
    '关闭Excel应用程序
    ExcelApp.Quit
    
    '销毁对象
    Set ExcelBook = Nothing
    Set ExcelApp = Nothing
    Set FileItem = Nothing
    Set SourceFolder = Nothing
    Set FSO = Nothing
End Sub

这段代码使用Microsoft Excel应用程序将源文件夹中的每个Excel表转换为PDF，并在转换过程中使用用户窗体来显示进度条。您需要创建一个名为"UserForm1"的用户窗体，并在其中添加一个名为"ProgressBar1"的进度条控件。同时，您需要将源文件夹路径和PDF保存路径替换为您自己的路径。