Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3970 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【59198】ピボットテーブルでエラー enachin 08/12/2(火) 10:10 質問[未読]
【59206】Re:ピボットテーブルでエラー n 08/12/2(火) 13:10 発言[未読]
【59215】Re:ピボットテーブルでエラー enachin 08/12/2(火) 16:33 お礼[未読]
【59198】ピボットテーブルでエラー
質問  enachin  - 08/12/2(火) 10:10 -
引用なし
パスワード
   ピボットテーブルのマクロでエラーになり、原因が分かりません。
エラー：実行時エラー'1004'
worksheetクラスのPivotTablesプロパティを取得できません。
エラー行は、PivotFields("定数")の行です。
よろしくお願いします。

　　ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
　　　　"Sheet1!R3C1:R" & Range("E65536").End(xlUp).Row & "C7").CreatePivotTable TableDestination:= _
　　　　"'[Sampleデータ.xls]Sheet5'!R3C1", TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1", DefaultVersion:= _
　　　　xlPivotTableVersion10
　　ActiveSheet.Cells(3, 1).Select
　　With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("定数")
　　　　.Orientation = xlRowField
　　　　.Position = 1
　　End With

Sampleデータ.Sheet1
　　A　　　　　B　　　C　　　D　　　E　　　F
1
2　日付　　　規格A　規格B　規格C　規格D　定数
3 2008/12/2　abc　　def　　uuu　　www　　50
4 2008/12/2　kkk　　djj　　oui　　swe　　20
【59206】Re:ピボットテーブルでエラー
発言  n  - 08/12/2(火) 13:10 -
引用なし
パスワード
   >Sampleデータ.Sheet1
ご提示のレイアウトなら
>SourceData:="Sheet1!R3C1:R" & Range("E65536").End(xlUp).Row & "C7"
SourceData:="Sheet1!R2C1:R" & Range("E65536").End(xlUp).Row & "C7"
と
>With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("定数")
With Sheets("sheet5").PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("定数")
じゃないでしょうか。
【59215】Re:ピボットテーブルでエラー
お礼  enachin  - 08/12/2(火) 16:33 -
引用なし
パスワード
   n さん
ありがとうございます。
>>Sampleデータ.Sheet1
>ご提示のレイアウトなら
>>SourceData:="Sheet1!R3C1:R" & Range("E65536").End(xlUp).Row & "C7"
>SourceData:="Sheet1!R2C1:R" & Range("E65536").End(xlUp).Row & "C7"
>と
>>With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("定数")
>With Sheets("sheet5").PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("定数")
>じゃないでしょうか。
無事に動作するようになりました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3970 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free