Sujet Précédent Sujet Suivant

Help : Excel veut pas ouvrir mon fichier

Banban113 Messages postés 10 Date d'inscription jeudi 10 juin 2004 Statut Membre Dernière intervention 7 février 2005 - 7 févr. 2005 à 14:18
Banban113 Messages postés 10 Date d'inscription jeudi 10 juin 2004 Statut Membre Dernière intervention 7 février 2005 - 7 févr. 2005 à 14:21
Bijour tout le monde !!!!!

Bon Banban est encore dans la merde

Voila je veux faire mumuse avec Excel depuis Delphi 7 mais ce pignouf m'affiche une erreur OLE quand je lui demande d'ouvrir un fichier existant.(Erreur OLE 800A03EC).

Je ne veux pas passer par un objet OLE.
J'appelle bien mes bbliothèques Excel (Excel 2000).

Voila le code de ma DLL

les variables :

Var
xlApp : TExcelapplication;
MyWorkBook : TExcelWorkBook;
MyWorkSheet : TExcelWorkSheet;
WorkBook : _WorkBook;
Sheet : _WorkSheet;

le code qui plante :

//Preparation des objets de travail dans Excel
xlApp := TExcelapplication.Create(Nil);
MyWorkBook := TExcelWorkBook.Create(Nil);
MyWorkSheet := TExcelWorkSheet.Create(Nil);


//Lancement de l'application Excel
xlApp.Connect;
xlApp.Visible[0] := TRUE;
xlApp.ScreenUpdating[0] := TRUE;



//Ouverture du fichier Template (ça plante à la ligne suivante)
xlApp.Workbooks.Open('C:\Temp\Template.xls',False,False,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
MyWorkBook.ConnectTo(Workbook);


//Connection à la feuille de travail
Sheet := MyWorkBook.Worksheets['TEST'] as _WorkSheet;
MyWorkSheet.ConnectTo(Sheet);

Merci pour l'aide que vous pourriez m'apporter.

Banbang

1 réponse

Réponse 1 / 1
Banban113 Messages postés 10 Date d'inscription jeudi 10 juin 2004 Statut Membre Dernière intervention 7 février 2005
7 févr. 2005 à 14:21
Autant poutr moi j'ai foiré mon copier/coller
le ligne qui plante est la suivante :

WorkBook :=xlApp.Workbooks.Open('C:\Temp\Template.xls',False,False,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);

La meme sauf que je lui dit que c'est mon workbook.

Banbang
0
Rejoignez-nous