透视表数据源

我有一个包含一个大型数据库一个工作簿。透视表数据源

（让我们称之为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

来源

2014-04-02 user3489344

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

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

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

您还可以记录适当的步骤，即编辑透视表的来源，你的Department1.xls片，与宏录制，并查看生成的代码。

来源

2014-05-08 18:35:36 MP24

透视表数据源

回答

相关问题