Excel 在Sourcedata中使用变量

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

Act=InputBox（“今天”、“现在”、今天）

这里我需要写：10513（图纸名称）

范围（“AA2”）。选择

这样行吗

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

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

Debug.Print "' Act '"

vs

将此应用于代码片段，应该可以：

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
    SourceData:="'" & Act & "'!R1C23:R117C23").CreatePivotTable _
    TableDestination:="'[Control LE.xls]& Act '!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