BorlandTalk.com

Joaquim · Guest

Hi,

I´m trying to instantiate a instance of an Automation object (Excel)
from a SQL Statement in a Delphi application by creating a OleObject,
but I´m getting an exception class EOleException with message: "O
método PivotTableWizard da classe WorkSheet falhou"
(PivotTableWizard method of class WorkSheet has failed).

Note: I´m using Delphi 6, Office 97, windows XP and connecting a MS
SQL Server database. But when using Windows 2000 we have no problems
and the program works at all !!

Here some code:

procedure cmdGenerateExcelClick (Sender: TObject);
var
cServerName : string;
cPassword : string;
cUserName : string;
cDataBaseName : string;
Obj, Destino, SQL: Variant;

begin
with DataModule1.DataBase1.Params do
begin
cServerName := Values['SERVER NAME'];
cUserName := Values['USER NAME'];
cPassword := Values['PASSWORD'];
cDataBaseName := Values['DATABASE NAME'];
end;

Obj := CreateOleObject('Excel.Application');

Obj.Visible := bOleVisivel;

Obj.Workbooks.Add;

Destino := Obj.Range['A8'];

Sql := VarArrayCreate([0,8], VarOleStr);

Sql[0]:= (' Select * from RelPautaView ');

Sql[1]:= (' where CodEvento = ' +
DataModulo1.qMasterPautaCodEvento.AsString );

StatusBar1.SimpleText := 'Conecting to database...';

StatusBar1.Refresh;

Conexao := 'ODBC;DSN=ProdCap;DRIVER={MSSQL};SRVR=' + cServerName +
';DB=' + cDataBaseName + ';UID=' + cUserName + ';PWD=' + cPassword;

Obj.Workbooks[1].Sheets[1].PivotTableWizard(2,SQL,Destino,'Tabela
dinâmica1',False, False,,,,,,,,,, Conexao);

Obj.Workbooks[1].Sheets[1].PivotTables['Tabela
dinâmica1'].PivotCache.RefreshOnFileOpen := True;

StatusBar1.SimpleText := 'Conection OK...';

StatusBar1.Refresh;

End;

Thank´s for any help.

Joaquim

Riki Wiki Google · Guest

Hoi Joaquim