使用Excel VBA导出Word文档为PDF时遇“命名参数未找到”错误

错误原因 #

你调用Word文档的ExportAsFixedFormat方法时，误用了Excel的常量xlTypePDF。Word的这个方法需要使用专属的导出格式常量，两者不兼容，才会触发“命名参数未找到”的报错。

修正后的代码 #

把Type:=xlTypePDF替换为Word专属的ExportFormat:=wdExportFormatPDF，同时补充必要的对象初始化代码（原代码缺少Word文档的打开逻辑）：

Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim wdCell As Word.cell
Dim saveLocation As String

' 初始化Word应用并打开目标文档
Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Open("请替换为你的Word文档本地路径") ' 需填写实际文档路径

With wdDoc
    ' 注意：直接保存到SharePoint在线地址可能失败，建议先存本地再上传
    saveLocation = "C:\Temp" 
    .ExportAsFixedFormat _
        OutputFileName:=saveLocation & "\File" & ThisWorkbook.Sheets("Sheet1").Range("G1").Value & ".pdf", _
        ExportFormat:=wdExportFormatPDF
    .Save
    .Close
End With

' 释放Word对象
wdApp.Quit
Set wdDoc = Nothing
Set wdApp = Nothing

额外注意事项 #

• 必须在VBA编辑器中引用Word对象库：点击「工具」→「引用」，勾选「Microsoft Word xx.x Object Library」（xx.x对应你的Office版本）
• 直接保存到SharePoint在线URL大概率会失败，建议先保存到本地临时文件夹，再通过映射网络驱动器或SharePoint API同步到云端
• 访问Excel单元格时最好加上工作表限定（比如ThisWorkbook.Sheets("Sheet1")），避免因当前工作表切换导致的错误

内容的提问来源于stack exchange，提问作者Sosa