使用VBA复制工作簿并筛选时出现编译错误，求问题排查及优化方案

你遇到的「Compile Error: Named argument not found」错误核心原因是SaveCopyAs方法不支持FileFormat命名参数，该方法仅可传入Filename一个参数，会默认继承原工作簿的文件格式保存，你额外传入的FileFormat:=xlOpenXMLWorkbook是无效参数，直接触发编译报错。

除了这个报错外，现有代码还存在多个逻辑问题：

• 文件夹创建循环遍历的是A13:A14单元格，筛选用的是Input表A1:A2单元格，两处范围不匹配，会出现文件夹和筛选国家对应不上的问题
• 打开新工作簿后操作Worksheets("Summary")没有指定所属工作簿，存在操作到原工作簿的风险
• 新工作簿做完筛选后未保存、未关闭，会残留大量打开的工作簿占用系统内存
• 重复在循环内声明变量，不符合VBA语法规范
• 未判断国家名称是否为空、是否包含非法路径字符，容易触发路径错误

Sub CECL_Scrub()
    ' 常量统一配置，后续修改无需逐行查找
    Const OUTPUT_ROOT As String = "C:\Users\me\MacroTestOutput\"
    Const FILTER_RANGE As String = "A1:A2" ' 筛选国家所在范围
    Const SUFFIX As String = " - Test"
    
    Dim wbSource As Workbook
    Dim wsInput As Worksheet
    Dim rngCountry As Range, cl As Range
    Dim newWB As Workbook
    Dim savePath As String, folderPath As String
    
    ' 初始化基础对象
    Set wbSource = ThisWorkbook
    Set wsInput = wbSource.Sheets("Input")
    Set rngCountry = wsInput.Range(FILTER_RANGE)
    
    ' 系统设置关闭，提升运行效率
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.DisplayAlerts = False ' 关闭覆盖提示
    
    For Each cl In rngCountry
        ' 跳过空值
        If Trim(cl.Value) = "" Then GoTo NextCountry
        
        ' 创建对应国家文件夹
        folderPath = OUTPUT_ROOT & Trim(cl.Value) & "\"
        If Len(Dir(folderPath, vbDirectory)) = 0 Then
            MkDir folderPath
        End If
        
        ' 拼接保存路径
        savePath = folderPath & Trim(cl.Value) & SUFFIX & ".xlsx"
        
        ' 保存副本（去掉错误的FileFormat参数）
        wbSource.SaveCopyAs Filename:=savePath
        
        ' 打开副本做筛选
        Set newWB = Workbooks.Open(savePath)
        ' 直接指定工作簿下的工作表，避免误操作原文件
        With newWB.Sheets("Summary").Range("$A$6:$W27")
            .AutoFilter Field:=1, Criteria1:=cl.Value
        End With
        
        ' 保存并关闭副本，释放内存
        newWB.Save
        newWB.Close
        Set newWB = Nothing
        
NextCountry:
    Next cl
    
    ' 恢复系统设置
    Application.DisplayAlerts = True
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

• 去掉了SaveCopyAs的无效FileFormat参数，直接解决编译报错
• 所有路径、范围参数统一提取为常量，后续调整更方便
• 去掉了所有Activate/Select这类依赖活动窗口的不稳定操作，全部通过对象引用直接操作，运行速度和稳定性都大幅提升
• 新增空值跳过逻辑，避免单元格为空时触发路径错误
• 每处理完一个国家就立刻保存关闭副本，不会残留无用进程占用内存
• 新增DisplayAlerts关闭逻辑，避免文件覆盖提示打断运行
• 文件夹创建和筛选共用同一套国家范围，不会出现对应关系错乱的问题

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