>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

...
		oDestination = .Range('A1')
		oDestination1 = .Range('O1')
		oDestination2 = .Range('A21')
		oDestination3 = .Range('O21')
...
		With oExcel.ActiveWorkbook.PivotCaches.Add(xlExternal)
			.Connection  = 'OLEDB;'+lcConnStr
			.CommandType = 2 && xlCmdSQL
			.CommandText = 'Select * from '+lcTableName
			.CreatePivotTable(oDestination1, 'PivotTable2')
			.CreatePivotTable(oDestination2, 'PivotTable3')
			.CreatePivotTable(oDestination3, 'PivotTable4')
		ENDWITH
...
		WITH .PivotTables("PivotTable1")
			.AddFields(@laRowFields, @laColFields, @laPageFields)
			.PivotFields('myField').Orientation = xlDataField
			.PivotFields('Count of myField').Caption = '# of Something'
		endwith
...

Cetin