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

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

Sub BatchConvertExcelToPDF()
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objExcel As Object
    Dim objWorkbook As Object
    Dim strFolderPath As String
    Dim strPDFPath As String
    Dim intCounter As Integer

    ' 设置文件夹路径和PDF输出路径
    strFolderPath = Environ("UserProfile") & "\Desktop\1\"
    strPDFPath = Environ("UserProfile") & "\Desktop\PDF\"

    ' 创建文件系统对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    ' 获取文件夹对象
    Set objFolder = objFSO.GetFolder(strFolderPath)

    ' 创建Excel对象
    Set objExcel = CreateObject("Excel.Application")

    ' 遍历文件夹中的所有Excel文件
    For Each objFile In objFolder.Files
        ' 检查文件扩展名是否为.xlsx或.xls
        If Right(objFile.Path, 5) = ".xlsx" Or Right(objFile.Path, 4) = ".xls" Then
            ' 打开工作簿
            Set objWorkbook = objExcel.Workbooks.Open(objFile.Path)

            ' 更新标签控件的显示，并执行PDF转换
            frmProgress.lblFileName.Caption = "正在处理：" & objFile.Name
            DoEvents
            intCounter = intCounter + 1
            objWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                strPDFPath & objFile.Name & ".pdf", Quality:= _
                xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                OpenAfterPublish:=False

            ' 关闭工作簿
            objWorkbook.Close False
        End If
    Next objFile

    ' 释放Excel对象
    objExcel.Quit
    Set objExcel = Nothing

    ' 显示转换完成的消息
    MsgBox "已完成 " & intCounter & " 个文件的转换。"

End Sub

以上代码可以实现批量转换桌面上的1文件夹中的所有Excel文件为PDF，并在处理PDF转换的同时在用户窗体中显示正在处理的文件名，转换完成后会弹出一个消息框显示转换的文件数量。请注意，您需要将代码中的文件夹路径和PDF输出路径修改为您实际使用的路径。同时，需要在用户窗体中添加一个名为 lblFileName 的标签控件。