Mettre une valeur dans un champ excel ...

Mettre une valeur dans un champ excel ... - Delphi/Pascal - Programmation

Marsh Posté le 09-07-2003 à 13:35:56    

Salut tout le monde !!
Bon voilà j'étais parti sur un pgm vb sous excel mais c trop chiant donc ej me remets sur mon bon vieux delphi et decide, via des variants, de lancer excel à partir d'un pgm.
 
Tout se passe bien, l'ouverture du OLEObject, du workbooks, du worksheet, du cell mais quand je veux mettre un valeur dans un champ spécifier au préalable ben y'a rien qui se passe : voilà mon code :  
 
 
 
  vXLApplication := CreateOleObject('Excel.Application');
  vXLApplication.Visible := true;
  vXLWorkbooks := vXLApplication.Workbooks;
  vXLWorkbook := vXLWorkbooks.Add;
  sSheetName := 'Feuil2';
  vWorksheet := vXLWorkbook.WorkSheets[sSheetName];
  sCell := 'B2';
  vCell := vWorkSheet.range[sCell];
  sValue := Edit1.Text;
  vCell.value := sValue;
 
le "svalue" est non nul mais pourtant rien ne se passe sous excel .....
 
qu'est-ce que vous en pensez ?

Reply

Marsh Posté le 09-07-2003 à 13:35:56   

Reply

Marsh Posté le 10-07-2003 à 09:12:45    

personne ?  
j'ai vraiment pas de pot moi !!!!!

Reply

Marsh Posté le 11-07-2003 à 11:58:40    

Moi je fais plutôt comme ça (j'ouvre un fichier et j'écris dedans):
 

Code :
  1. exc:OleVariant;
  2. exc:=createoleobject('excel.application');
  3. exc.workbooks.open(un_fichier);
  4. exc.goto('L'+inttostr(l+1)+'C'+inttostr(c+1)); 
  5. exc.activecell.value := 'quelque chose';


 
Ou alors avec un composant Excelapplication de l'onglet serveur. Ici je prends le fichier qui est ouvert et j'écris s dans L1C1.
 

Code :
  1. ExcelApplication1.Connect;
  2. ExcelApplication1.Goto_('L1C1');
  3. ExcelApplication1.ActiveCell.Value:=s;

 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed