0

Microsoft のチュートリアル ページのサンプル VBA コードに基づいてサブルーチンを作成しました: LINK

Sub WIP20Pivot()
'
' Pivot Macro

'Creates a PivotTable report from the table on Sheet1
'by using the PivotTableWizard method with the PivotFields
'method to specify the fields in the PivotTable.
 Dim objTable As PivotTable, objField As PivotField

' Select the sheet and first cell of the table that contains the data.
 ActiveWorkbook.Sheets("DATA").Select
 Range("A1").Select

' Create the PivotTable object based on the Employee data on Sheet1.
 Set objTable = Sheet1.PivotTableWizard 'ERROR OCCURS HERE
 ActiveSheet.Name = "PivotSheet" 

'There is more VBA code below to select fields for the pivot table, etc..

End Sub

このコードを実行すると、次のエラーが表示されます。

実行時エラー '424': "オブジェクトが必要です"。

奇妙なのは、Microsoft のチュートリアル ページにあるダウンロード可能なサンプル マクロで、サブルーチンが完全に正常に動作することです。

助けてくれてありがとう！

ありがとう、アメ

4

4 に答える 4

1

Set objTable = Sheet1.PivotTableWizard 'ここでエラーが発生しました

Shee1 を指定しましたが、実際のシート名は異なっていました。いくつかのシートを削除し、そのシートにシート 1 という名前を付けた可能性があります。VBA エディタのプロジェクト ウィンドウで、実際のシート名が「Sheet9(Sheet1)」のように表示されることを確認してください。このシナリオでは、次のように言及する必要があります

「objTable = Sheet9.PivotTableWizard に設定」

それで解決しました!!! :)

（コードはモジュールにある必要があることに注意してください）

于 2015-04-28T13:43:14.097 に答える
0

あなたSub WIP20Pivot() => subroutineはモジュールにいる必要があります、

ワークシートに埋め込むことはできません。

それは私にも起こります。

于 2013-11-28T06:33:46.413 に答える
0

これは、ピボット シートに名前を付けるのに役立つと思いますか?

于 2014-06-11T20:45:30.717 に答える
0

私も同じ問題を抱えてる。いくつかの調査を行った後、この解決策を見つけました。それがあなたにも役立つことを願っています。

 Set objTable = Worksheets("PivotTable").PivotTableWizard(SourceType:=xlDatabase, SourceData:=Range("PivotData!A1:C3918"), tabledestination:=Range("PivotTable!A1"))
于 2013-07-23T17:13:25.533 に答える