excel - 在 Sourcedata 中使用变量

Question

我怎样才能让这段代码正常工作，我需要使用一个变量

Act = InputBox("Today", "Now", Thisday)

在这里我需要写：10513（工作表名称）。

Range("AA2").Select

这工作正常

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
SourceData:="'10513'!R1C23:R117C23").CreatePivotTable TableDestination:="'[Control LE.xls]10513'!R4C27", _
TableName:="Tabla dinámica3", DefaultVersion:=xlPivotTableVersion10

这不...

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
SourceData:="' Act '!R1C23:R117C23").CreatePivotTable _
TableDestination:="'[Control LE.xls]& Act '!R4C27", TableName:="Tabla dinámica3", _
DefaultVersion:=xlPivotTableVersion10

Answer 1

您只需将字符串Act作为工作表名称传递。要发送此名称（存储在字符串变量中，请使用字符串连接技术，请注意以下差异：

Debug.Print "' Act '"

对比

Debug.Print "'" & Act & "'"

将此应用于您的代码片段，这应该可以工作：

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
    SourceData:="'" & Act & "'!R1C23:R117C23").CreatePivotTable _
    TableDestination:="'[Control LE.xls]& Act '!R4C27", TableName:="Tabla dinámica3", _
    DefaultVersion:=xlPivotTableVersion10