The code can't find tablename or source data is not in R1C1 format.
1) If Table range is a named range then try this
from
ActiveSheet.PivotTableWizard SourceType:=xlExternal,
SourceData:=Sqlstring, tablename:="Table1"
to
ActiveSheet.PivotTableWizard SourceType:=xlExternal,
SourceData:=Sqlstring, tablename:=Range("Table1")
2) Make sure source data is in R1C1 format
"Consolidation!R1C1:R2C2"
"Michael" wrote:
> Hi,
>
> Could anyone please help with the following code. When I ran it, it
> said: "Error 1004"
>
> ActiveSheet.PivotTableWizard SourceType:=xlExternal,
> SourceData:=Sqlstring, tablename:="Table1"
>
> Thanks a lot!!
>
> Michael
>
>
|