我在下面的代码上收到编译错误。也许有人可以帮助我。
呼叫替代程序的“参数数量错误或属性分配无效” （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
错误“参数数量错误或属性分配无效”意味着您需要在中使用2个参数Sub Alternative，因为您将它们传递给Call：
Sub Alternative(folderspec As String, f1Name As String)
ActiveWorkbook.UsedRange.Replace "Anteilklasse ", "", xlPart
End Sub
ActiveWorkbook是正确的；本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句