How to export data to pivot table office 2007 ?

[cesan01]

I have source to export data to pivot table office 2000, 2003.
but it's not working for office 2007.

have any idea or example source to export data to pivot table 2007

S := 'Select * from Employee';
Try
OlePv.CreateObject('OWC.PivotTable.9',False);
Except
Try
OlePv.CreateObject('OWC10.PivotTable.10',False);
Except
Try
OlePv.CreateObject('OWC11.PivotTable.11',False);
Except
end;
end;
end;
OLE := OlePv.OleObject;
OlePv.AutoActivate := aaManual;
Db := 'databasename';
Srv := 'ServerName';
Usr := 'UsrPvt';
Pass := '123';
OLE.ConnectionString := 'PROVIDER=SQLOLEDB.1;'+'Persist Security Info=True;'+
'USER ID='+Usr+'; PASSWORD='+Pass+';'+
'Initial Catalog='+Db+';'+'DATA SOURCE='+Srv+';'+'Connect
Timeout=15';
OLE.CommandText := S;
View := OLE.ActiveView;
View.FilterAxis.InsertFieldSet(View.FieldSets['fieldname1']);
View.RowAxis.InsertFieldSet(View.FieldSets['fieldname2']);
View.ColumnAxis.InsertFieldSet(View.FieldSets['fieldname3']);

OlePv.DoVerb(ovShow);
OLE.Export('',1);


thanks

 

[whosrdaddy]

Never done this myself.

found a vb.net sample on the net, it shouldn't be too hard tp convert this to Delphi:

http://code.msdn.microsoft.com/Release/ProjectReleases.aspx?ProjectName=odcxl2007h2&ReleaseId=2589

/Daddy

-----------------------------------------------------
What You See Is What You Get
Never underestimate tha powah of tha google!

 

[cesan01]

Thanks for reply.

I still use my source because source data use sql command to database.

any suggestions ?
so my source can be working in office 2007 ?

thanks.

 

[cesan01]

Thanks for reply.

I still use my source because source data use sql command to database.

any suggestions ?
so my source can be working in office 2007 ?

thanks

 

[DjangMan]

Use Excel 2007 to record a macro. The convert the VBA to Delphi.

 

[cesan01]

thanks for reply,

any suggestion, so my source code can be working office 2007,
What's wrong with my code.


thank's