Discussion :

[tarmo57]

Bonjour tous ,j'ai un petit probleme.J'ai une table paradox je passe mes données dans excel sans probleme.Mais dans excel 2010 j'ai le message
La chaine de classe est incorrecte


Voici mon code

procedure TExportExcel.Image2Click(Sender: TObject);
var
vMSExcel,vXLWorkbooks, vXLWorkbook, vWorksheet : variant ;
i,j:integer;

begin


// demarrer excel
vMSExcel := CreateOleObject('Excel.Application');
vMSExcel.Visible := true;

//creer un nouveau fichier xls
vXLWorkbooks := vMSExcel.Workbooks;
vXLWorkbook := vXLWorkbooks.Add;

//acceder a une feuil
vWorksheet := vXLWorkbook.WorkSheets['feuil1'];


//ecrire les titres des champs
for i:=0 to Query1.FieldCount-1 do
vworksheet.cells.item[1,i+1].value:=Query1.Fields[i].FieldName;

//ecrire les données
Query1.First;
for j := 1 to Query1.RecordCount do
begin
for i:=0 to Query1.FieldCount-1 do
begin
vworksheet.cells.item[j+1,i+1].value:=Query1.Fields[i].AsString;
vworksheet.Range['A1','Z6000'].Columns.Autofit;
// Je mets les tites en gras------------------------------------------------
vworksheet.Range['A1','Z1'].Font.Bold:=True;
end;
Query1.Next;

end;
end;

Merci de votre aide

[ShaiLeTroll]

L'exception se produit lors de CreateOleObject('Excel.Application'); ???
Tu ne précise pas à quel moment survient l'erreur dans l'extrait de code

Cela me rappelle le sujet Lancement Office 2010 64 bits avec Delphi

[tarmo57]

je ne sais pas vraiment car excel ne s ouvre pas du tous comme si excel n'était pas installer

[Whiler]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TExportExcel.Image2Click(Sender: TObject);
var
vMSExcel,vXLWorkbooks, vXLWorkbook, vWorksheet : variant ;
i,j:integer;
 
begin
// demarrer excel
vMSExcel := CreateOleObject('Excel.Application');
vMSExcel.Visible := true;
 
//creer un nouveau fichier xls
vXLWorkbooks := vMSExcel.Workbooks;
vXLWorkbook := vXLWorkbooks.Add;
 
//acceder a une feuil
vWorksheet := vXLWorkbook.WorkSheets['feuil1'];
 
 
//ecrire les titres des champs
vworksheet.cells.item[1,1].value:='toto';

Fonctionne parfaitement avec mon Excel 2010 64bits.
Donc, cela ne vient probablement pas de ton code Delphi...

[tarmo57]

Le programme est pour mon cousin il me dit avoir office 2010 starter, cela change quelque chose ? je ne connais pas office starter