Excel使用變量創建數據透視表

Question

我有一本有10張紙的工作簿。 我試圖通過宏自動在每個工作表上創建數據透視表。 我記錄了第一張時間表的宏

以下是腳本的一部分：

ActiveWorkbook.PivotCaches.Create(SourceType:=xlExternal, SourceData:= _        
ActiveWorkbook.Connections("WorksheetConnection_Timetables!$A$1:$D$382"), _
Version:=xlPivotTableVersion15).CreatePivotTable TableDestination:= _
"Timetables!R1C5", TableName:="PivotTable1", DefaultVersion:= _
xlPivotTableVersion15

由於每張紙上要使用的每個數據范圍都不同。 我試圖為該范圍創建一個變量。

Dim ws as Worksheet
Set ws = Activesheet

Dim wr As Range
Set wr = Range("A1", Range("D1").End(xlDown))

問題是如何用腳本上的變量替換范圍時間表！$ A $ 1：$ D $ 382？

Answer 1

您不需要范圍，需要文本字符串作為數據透視表源數據參數的參數。

Dim lastrow As Long
Dim ws As Worksheet
Dim TheRange As String

Set ws = ThisWorkbook.Sheets("WorksheetConnection_Timetables")

lastrow = ws.Cells(Rows.Count, 1).End(xlUp).Row
TheRange = "WorksheetConnection_Timetables!$A$1:$D$" & lastrow

然后，您可以將其用作數據源參數：

..._
ActiveWorkbook.Connections(TheRange), _
...