ピボットテーブル形式をコピーする

Question

ピボットテーブル形式を新しいシートにコピーするのに問題があります。基本的に私がやろうとしていることはこれです：

someRange.Copy 
someOtherRange.pasteSpecial xlPasteValues 
someOtherRange.pasteSpecial xlPasteFormats 

は基本的に、私は新しいシートにピボットテーブルの上に現在のビューの正確なコピーをしたいんだけど、値をしたいと書式設定（および接続されていませんピボットテーブルへの移動）。手作業でこの手順を実行すると正しい結果が得られますが、何らかの理由でvbaを使用して同じアプローチを使用したときに書式設定がコピーされません。

更新：要求として 正確なコードは：

Application.CutCopyMode = False 
pivotSheet.Range(pivotSheet.usedRange.Cells(1, 2), pivotSheet.Cells(pivotSheet.usedRange.Rows.Count, pivotSheet.Columns.Count)).Copy 
updatesSheet.Range(updatesSheet.Cells(1, 1), updatesSheet.Cells(pivotSheet.usedRange.Rows.Count, pivotSheet.usedRange.Columns.Count)).PasteSpecial xlPasteValues 
updatesSheet.Range(updatesSheet.Cells(1, 1), updatesSheet.Cells(pivotSheet.usedRange.Rows.Count, pivotSheet.usedRange.Columns.Count)).PasteSpecial xlPasteFormats 
Application.CutCopyMode = False 

Answer 1

は実証済み

Option Explicit 

Sub Sample() 
    With Sheets("Sheet1") 
     .Range("H1:I6").Copy 

     With .Range("M7") 
      .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
      :=False, Transpose:=False 

      .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ 
      SkipBlanks:=False, Transpose:=False 
     End With 
    End With 
End Sub 

SNAPSHOT

Answer 2

コピーし、手動で貼り付ける前に、マクロの記録を開始します。終了したら、録音を停止して録音したコードを調べます。あなたは削除できる余分なものを手に入れますが、やっていることを実行するための正しい構文も得られます。