VBA Excel:调用函数时参数数目错误或属性赋值无效

下面的代码有一个编译错误。也许有人能帮我

“参数数目错误或属性分配无效” 对于
调用可选项（folderspec，f1.Name）

因为某种原因，它在一天前就开始工作了

Sub WM()
Const folderspec = "C:\Users\xxx\Desktop\xxx\wm"
Dim fs, f, f1, fc

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files
    For Each f1 In fc
        If UCase(Right(f1, 3)) = "XLS" Then 'Excel File gefunden
        Call Alternative(folderspec, f1.Name)

        End If
    Next

End Sub

Sub Alternative()

Active.Workbook.UsedRange.Replace "Anteilklasse ", "", xlPart

End Sub

错误“参数数目错误或属性分配无效”意味着您需要在

子选项中使用两个参数，因为您正在使用
调用传递它们：

Sub Alternative(folderspec As String, f1Name As String)    
    ActiveWorkbook.UsedRange.Replace "Anteilklasse ", "", xlPart    
End Sub


现在编译错误应该可以了
活动工作簿和工作簿之间不应有点-
ActiveWorkbook
是否正确
@FunThomas-可能是用户正在编写，并决定删除大约20行使用参数的无关代码：）感谢您的快速响应。我尝试在一个特定的文件夹中打开几个.xls文件，然后“sub alternative”应该编辑这些文件。我想我需要这些参数来打开文件。