web-dev-qa-db-ja.com

実行時エラー5-無効なプロシージャコールまたは引数

このマクロに関するヘルプが必要です。実行するたびに、以下のエラーが表示されます。チームの誰でも使用して、レポートを実行するたびにこのピボットテーブルを手動で作成するよりも時間がかからないようにすることができるのは、単純なマクロだと思いました。ただし、機能していません。以下のエラーを参照してアドバイスしてください。エラーを強調し、斜体にしました。

Error

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
excelvbaexcel-vbaruntime-error
6
user3067028

あなたの問題に対する答えは ここにあります です。

TableDestination:="LED OTTR!R1C1"のシート名は、TableDestination:="'LED OTTR'!R1C1"が機能するために単一引用符で囲む必要があります

また、コードを再実行する前にこのピボットテーブルを削除しないと、重複した名前で問題が発生します。

8
Byron Wall