VBA数据透视表数据源错误

Question

大家早上好!

我搜索过这个论坛，但没有找到 VBA 和数据透视表问题的答案。

我尝试做的很简单。我有一个包含两张工作表的工作簿，一张包含数据，另一张数据透视表基于第一张工作表中的数据。我想复制这两张表(这里没问题)，然后将新数据透视表的数据源从旧数据表移动到新数据表。当我运行下面的代码时，出现错误 5。关于如何解决这个问题有什么想法吗？非常感谢:)

Sub nouvelle_periode()
   'Crée un nouveau planning vierge fonctionnel à partir des feuilles types

   'Copie les tableau et analyse
   ActiveWorkbook.Worksheets("Période type").Copy After:=Sheets(Sheets.Count)
   ActiveSheet.Name = "nouvelle-periode"
   ActiveWorkbook.Worksheets("Analyse type").Copy After:=Sheets(Sheets.Count)
   ActiveSheet.Name = "nouvelle-analyse"

   'Associer la bonne période comme référence pour les tableaux croisés 
   dynamiques de la feuille d'analyse
   Dim wb As Workbook
   Dim ws As Worksheet
   Dim pt As PivotTable
   Dim datarange As Range

   donnees = Worksheets("nouvelle-periode").Range("F10:M500")

   Worksheets("nouvelle-analyse").Activate
   Set wb = ActiveWorkbook
   Set ws = ActiveSheet

   For Each pt In ws.PivotTables
       pt.ChangePivotCache _
           wb.PivotCaches.Create(SourceType:=xlDatabase, _
               SourceData:=donnees)
   Next pt

End Sub

Answer 1

donnees 是一个范围对象，对象被赋予单词 Set。声明对象也是一个好习惯，例如Dim donnees As Range 在分配之前某处。

Set donnees = Worksheets("nouvelle-periode").Range("F10:M500")