Norbert,

Try something like this:

#DEFINE cnExternalData 2
DIMENSION laSD[2]
lcHomeDir = JustPath(tcDbfFile)
laSD[1]=[DSN=Visual FoxPro Tables;UID=;PWD=;SourceDB=] + lcHomeDir +;
        [;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=MACHINE;]+;
        [Null=Yes;Deleted=Yes;]
laSD[2]=[SELECT * FROM ] + [`]+ tcDbfFile + [` PivotData]

loPivotTable=oXLS.ActiveSheet.PivotTableWizard(cnExternalData, @laSD,loDestination, "Analysis", .T., .T.)

HTH

>Hi,
>can anybody help me. I am not able to pass array to Excel variant property:
>1. I can read Excel variant property and I get array sd
> sd=oXL.ActiveSheet.PivotTables(1).SourceData
>2. But I cannot set this property from VFP, even the property is read-write (I can set it from Excel VBA)
> oXL.ActiveSheet.PivotTables(1).SourceData=sd
>
>Thanks
> Norbert Kustra