objWorkbook.ExportAsFixedFormat Type:=xlTypePDF, filename:= _ strPDFPath & objFile.Name & ".pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False 无效的调用参数过程

这个错误通常是由于 Excel 库的版本不兼容所引起的。请尝试将代码中的导出语句修改为以下代码：

objWorkbook.ExportAsFixedFormat _
    Type:=0, _
    filename:=strPDFPath & objFile.Name & ".pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

这段代码中的 Type 参数将 PDF 格式的值设置为 0，因为在一些 Excel 库版本中，xlTypePDF 常量可能不可用。请注意，以上代码中的 Type 参数是必需的，因为它确定了要导出的文件类型。如果导出的文件类型不正确，会导致“无效的调用参数过程”错误。另外，请确保您已经将代码中的文件夹路径和PDF输出路径修改为您实际使用的路径。

相关问题

objWorkbook.ExportAsFixedFormat _ Type:=0, _ filename:=strPDFPath & objFile.Name & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False无效的调用过程货参数

如果您仍然遇到“无效的调用过程或参数”错误，可能是因为您的 Excel 库版本不支持 ExportAsFixedFormat 方法。在这种情况下，您可以尝试使用 Microsoft Print to PDF 打印机来将 Excel 文件转换为 PDF 文件。以下是示例代码：

Sub BatchConvertExcelToPDF()
    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 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")

    ' 创建PDF打印机对象
    Set objPDFPrinter = CreateObject("WScript.Network").SetDefaultPrinter("Microsoft Print to PDF")

    ' 遍历文件夹中的所有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.PrintOut Copies:=1, ActivePrinter:="Microsoft Print to PDF", PrintToFile:= _
                True, PrToFileName:=strPDFPath & objFile.Name & ".pdf"

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

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

    ' 移除PDF打印机对象
    Set objPDFPrinter = Nothing

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

End Sub

以上代码中，我们使用 PrintOut 方法将 Excel 文件打印到 Microsoft Print to PDF 打印机，然后使用 PrToFileName 参数将打印输出保存为 PDF 文件。在此过程中，我们没有使用 ExportAsFixedFormat 方法，因此不需要处理可能导致“无效的调用过程或参数”错误的问题。请注意，您需要将代码中的文件夹路径和 PDF 输出路径修改为您实际使用的路径。同时，需要在用户窗体中添加一个名为 lblFileName 的标签控件。

运行时错误＇424＇： 要求对象 Sub ConvertExcelToPDF() 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 i As Integer strFolderPath = "C:\Users\Administrator\Desktop\pr\2\5E2206172401600E\" strPDFPath = strFolderPath & "PDF\" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strFolderPath) i = 0 For Each objFile In objFolder.Files If Right(objFile.Name, 4) = "xlsx" Then Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(objFile.Path) 'Display the name of the file being processed Label1.Caption = "Processing: " & objFile.Name 'Save the Excel file as PDF objWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ strPDFPath & Replace(objFile.Name, "xlsx", "pdf"), Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False objWorkbook.Close False objExcel.Quit i = i + 1 End If 'Display the number of files processed Label1.Caption = "Processed " & i & " files" Next objFile Set objFolder = Nothing Set objFSO = Nothing MsgBox "Conversion completed."End Sub

这个代码的作用是将一个文件夹中的所有 Excel 文件转换为 PDF 文件，并将它们保存在指定的文件夹中。该错误通常是由于未正确实例化 "objFile" 对象或该对象的属性 "Name" 不存在或未正确命名而导致的。

请检查以下几点：

1. 检查 "objFile" 对象是否已正确地定义和实例化。您可以在代码中的其他地方查找 "For Each objFile In objFolder.Files" 语句来确认。
2. 确保 "Name" 属性在 "objFile" 对象中存在，且已正确命名。如果名称不正确，您可以使用 "objFile.Name" 来调用正确的名称。

如果以上步骤仍然无法解决问题，请确保您的代码中的变量和对象都已正确定义和实例化，并且您的 VBA 环境中已正确安装 Excel 应用程序。