运行时错误5 - 无效的过程调用或参数

Question

我需要这个宏的帮助。每次运行它，我都会收到以下错误。我认为这是一个简单的宏，我可以让团队中的任何人使用它来花费更少的时间，而不是每次他们运行报告时手动创建这个数据透视表。但是，它不起作用。请参阅下面的错误并提出建议。我胆大妄为错误。

Sub LEDOTTR()
'
' LEDOTTR Macro
'

'
    Range("A87").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    ***ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R87C1:R8214C25", Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:="LED OTTR!R1C1", TableName:="PivotTable6", _
        DefaultVersion:=xlPivotTableVersion14***
    Sheets("LED OTTR").Select
    Cells(1, 1).Select
    With ActiveSheet.PivotTables("PivotTable6").PivotFields("LED")
        .Orientation = xlPageField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTable6").PivotFields("Hierarchy name")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable6").PivotFields("LED").CurrentPage = "(All)"
    With ActiveSheet.PivotTables("PivotTable6").PivotFields("LED")
        .PivotItems("LED Marine").Visible = False
        .PivotItems("LL48 Linear LED").Visible = False
        .PivotItems("Other").Visible = False
    End With
    ActiveSheet.PivotTables("PivotTable6").PivotFields("LED"). _
        EnableMultiplePageItems = True
    ActiveSheet.PivotTables("PivotTable6").AddDataField ActiveSheet.PivotTables( _
        "PivotTable6").PivotFields("   Late " & Chr(10) & "Indicator"), "Sum of    Late " & Chr(10) & "Indicator", _
        xlSum
    ActiveSheet.PivotTables("PivotTable6").AddDataField ActiveSheet.PivotTables( _
        "PivotTable6").PivotFields("Early /Ontime" & Chr(10) & "   Indicator"), _
        "Sum of Early /Ontime" & Chr(10) & "   Indicator", xlSum
End Sub

Answer 1

您的问题的答案是located here。

TableDestination:="LED OTTR!R1C1" 中的工作表名称需要用单引号包围才能生效TableDestination:="'LED OTTR'!R1C1"

如果在重新运行代码之前未删除此数据透视表，则重复名称也会出现问题。

Answer 2

就我而言，问题与Windows中的区域设置有关。我从互联网上下载了一个（受保护的）xlsm文件，打开该文件时始终出现“运行时错误5-无效的过程调用或参数”错误。另一个答案告诉我，这可能与语言设置有关。我的Windows设置为英语区域时，文件中的脚本显然是用德语编程的。

在Windows 10 Settings > Time & Language > Region中，我将Region和Regional format都更改为德语。重新启动Excel后，该文件即可工作。

Answer 3

我遇到了这个错误，该错误是由在隐藏的工作表上调用Worksheet.ExportAsFixedFormat方法引起的。

我刚刚在代码中添加了if worksheet.Visible Then条件，以防止出现Invalid Procedure Call or Argument错误。