使用vba批量处理桌面上的1文件夹下里面的表格转换为PDF，在处理PDF转换的同时，显示正在处理的文件名，当处理完一个后，自动刷新显示下一个文件名

以下是 VBA 代码示例，可以实现您的需求：

Sub ConvertExcelToPDF()
    ' 定义变量
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objExcel As Object
    Dim objWorkbook As Object
    Dim objPDFPrinter As Object
    Dim strFolderPath As String
    Dim strFileName As String
    Dim strPDFFileName As String
    Dim i As Long
    
    ' 设置打印机为 Microsoft Print to PDF
    Set objPDFPrinter = CreateObject("WScript.Network")
    objPDFPrinter.SetDefaultPrinter "Microsoft Print to PDF"
    
    ' 设置文件夹路径
    strFolderPath = Environ("USERPROFILE") & "\Desktop\1\"
    
    ' 创建文件系统对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    ' 获取文件夹对象
    Set objFolder = objFSO.GetFolder(strFolderPath)
    
    ' 遍历文件夹下的所有 Excel 文件
    For Each objFile In objFolder.Files
        If objFSO.GetExtensionName(objFile.Path) = "xlsx" Then
            ' 打开 Excel 文件
            Set objExcel = CreateObject("Excel.Application")
            Set objWorkbook = objExcel.Workbooks.Open(objFile.Path)
            
            ' 构造 PDF 文件名
            strFileName = objFSO.GetFileName(objFile.Path)
            strPDFFileName = objFSO.BuildPath(objFolder.Path, objFSO.GetBaseName(strFileName)) & ".pdf"
            
            ' 将文件保存为 PDF 格式
            objWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPDFFileName
            
            ' 关闭 Excel 文件
            objWorkbook.Close False
            objExcel.Quit
            
            ' 显示正在处理的文件名
            Application.StatusBar = "正在处理：" & strFileName
            
            ' 等待 1 秒，以便显示下一个文件名
            Application.Wait Now + TimeValue("0:00:01")
        End If
    Next objFile
    
    ' 恢复状态栏
    Application.StatusBar = False
    
    ' 释放对象
    Set objFolder = Nothing
    Set objFile = Nothing
    Set objExcel = Nothing
    Set objWorkbook = Nothing
    Set objPDFPrinter = Nothing
    Set objFSO = Nothing
End Sub

此代码可以将指定文件夹下的所有扩展名为 .xlsx 的 Excel 文件转换为 PDF 格式，并在处理每个文件时，显示正在处理的文件名。代码中使用了 VBA 内置函数 Environ 获取当前用户桌面路径，使用了 Scripting.FileSystemObject 对象进行文件和文件夹操作，使用了 Excel.Application 对象进行 Excel 文件转换操作，使用了 Application.StatusBar 显示状态栏信息。

您可以将代码复制到一个新的 VBA 模块中，然后运行 ConvertExcelToPDF() 函数来执行转换操作。在执行过程中，请勿操作计算机或关闭 Excel 窗口，以免影响转换结果。