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 '"

VS

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

在Sourcedata中使用变量

1 个答案: