VBA编译错误‘named argument not found’：XLSM转XLSX保存报错

安全阿岳

2026-6-25

解决SaveCopyAs保存XLSM为XLSX时的“named argument not found”错误

问题原因

SaveCopyAs方法仅用于创建原文件的副本，不支持FileFormat参数——这就是触发“named argument not found”编译错误的核心原因。该方法会完全保留原文件的格式，无法直接转换为其他格式。

解决方案

要将XLSM文件另存为XLSX格式，需使用SaveAs方法（支持指定文件格式参数）。根据需求分两种场景处理：

场景1：直接将当前工作簿转换为XLSX（原XLSM文件会被替换为新的XLSX文件）

修改后的代码如下：

Sub SaveExistingWorkbook()
    Dim savePath As String
    Application.DisplayAlerts = False
    ' 构建带日期的保存路径
    savePath = "C:\Users\Public\Documents\Report Tracker\" & Format(Now(), "yyyy-MM-dd") & ".xlsx"
    ' 使用SaveAs指定XLSX格式
    ThisWorkbook.SaveAs Filename:=savePath, FileFormat:=xlOpenXMLWorkbook
    Application.DisplayAlerts = True
End Sub

场景2：保留原XLSM文件不变，另存为新的XLSX文件

如果不想修改原工作簿，可先复制副本再转换格式：

Sub SaveAsXlsxWithoutChangingOriginal()
    Dim savePath As String
    Dim tempWb As Workbook
    
    Application.DisplayAlerts = False
    savePath = "C:\Users\Public\Documents\Report Tracker\" & Format(Now(), "yyyy-MM-dd") & ".xlsx"
    
    ' 先创建原文件的XLSM副本
    ThisWorkbook.SaveCopyAs Filename:=savePath
    ' 打开副本并转存为XLSX
    Set tempWb = Workbooks.Open(savePath)
    tempWb.SaveAs Filename:=savePath, FileFormat:=xlOpenXMLWorkbook
    tempWb.Close SaveChanges:=False
    
    Application.DisplayAlerts = True
End Sub