0

このコードを正しく動作させるにはどうすればよいですか。変数を使用する必要があります

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
4

1 に答える 1

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
于 2013-05-14T01:57:24.027 に答える