Question

我有一个包含大型数据库的工作簿。

（让我们称之为Basefile.xlsm）

我已经制作了根据部门对数据进行排序的代码，并使用它来更新一些预先存在的数据透视表。

然后，数据透视表和已排序的数据将保存在每个部门的单独文件中。

（让我们称这些为Department1.xls，Department2.xls等）。

我的问题是每个新文件的数据透视表仍然引用原始工作簿而不是新工作簿。

（因此Department1.xls中的数据透视表应从Department1.xls中的工作表中获取数据，但目前所有数据透视表仍使用Basefile.xlsm作为数据源）

有没有办法纠正这个？ - 没有使用代码制作所有数据透视表？

    Sub Selectdata()


  Application.ScreenUpdating = False2



' filters for nivå2 enhet, cuts and pastes data into a sheet named after nivå2 -  ready for creating pivot table

Dim i As Integer
Dim WS As Worksheet

For i = Worksheets("Department").Range("g4").Value To Worksheets("Department").Range("h4").Value

Sheets("Basefile 2014").Select
ActiveSheet.Range("A:O").AutoFilter Field:=15, Criteria1:= _
    Worksheets("Department").Range("b" & i).Value

Cells.Select
Range("A29619").Activate
Selection.Copy
Sheets("Metode").Select
Set WS = Sheets.Add
ActiveSheet.Paste
WS.Name = "RawData 2014"

'shows all the data in the new worksheet
WS.Select
 ActiveSheet.Range("A:O").AutoFilter Field:=15
     Columns("l:l").Select

' repeats proceedure for 2013
Sheets("Basefile 2013").Select
ActiveSheet.Range("A:O").AutoFilter Field:=15, Criteria1:= _
Worksheets("Department").Range("b" & i).Value
Cells.Select
Range("A29619").Activate
Selection.Copy
Sheets("Metode").Select
Set WSD = Sheets.Add
ActiveSheet.Paste
WSD.Name = "RawData 2013"

'shows all the data in the new worksheet
WSD.Select
 ActiveSheet.Range("A:O").AutoFilter Field:=15
     Columns("l:l").Select

 'Refreshes all the pivot table data
 ActiveWorkbook.RefreshAll

 Application.ScreenUpdating = True

Filename = Worksheets("Department").Range("c" & i).Value & "2014"
Fname = Worksheets("Department").Range("c" & i).Value & "2013"


Sheets(Array("Funn 2013", "Pivot 2013", "RawData 2013")).Copy

With ActiveWorkbook
.SaveAs "F:\X Simulation\test\" & Fname
.Close
End With


Sheets(Array("Pivot 1.", "Pivot 2.", "Pivot 3.", "Pivot 4.", "Funn 2014", "RawData 2014")).Copy



With ActiveWorkbook
.SaveAs "F:\X Simulation\test\" & Filename
.Close
End With

Application.DisplayAlerts = False
Worksheets("RawData 2014").Delete
Worksheets("RawData 2013").Delete
Application.DisplayAlerts = True


 Next i

End Sub

Answer 1

可以通过更改数据透视表的SourceData属性来实现。

Worksheets("PivotTable").PivotTables(1).SourceData = Worksheets("SourceData").Range("A1:Z999").Address

当然，您需要编辑工作表参数以及源数据来源的数据范围。

您还可以使用 宏记录器 记录相应的步骤，即在Department1.xls表中编辑数据透视表的来源，并查看它产生的代码

数据透视表数据源

1 个答案: