Out of bounds sur liaison Ole avec Excel

Version imprimable

Bonsoir tout le monde,

je tombe sur un os, j'essaie de mettre en place une liaison OLE avec Excel et à chaque fois j'ai le message d'erreur "out of bounds".
Est-ce que quelqu'un a une idée ? Pour l'instant j'en suis là.
Code:

1 2 3 4 5 6 7 8 9 10 AssignFile(F,ExtractFilePath(Application.exename)+'chemin.jpp'); Reset(F); Readln(F,afilename); CloseFile(F); path:=afilename; XLApp:=CreateOleObject('Excel.Application'); XLApp.visible:=false; XLApp.displayAlerts:=false; XLApp.Workbooks.Open(path);

evolution du machin

Alors quand j'écris ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
procedure TForm1.Button1Click(Sender: TObject);
 
  var
    xlapp:variant;
    lastrow,newrow:integer;
    arange:Ansistring;
    avalue:AnsiString;
  begin
 
    xlapp:=CreateOLEObject('excel.application');
    xlapp.visible:=true;
    xlapp.WorkBooks.open('c:\programmes\test.xlsx');
//je détermine la derniére ligne utilisée
    lastrow:=xlapp.workbooks[1].worksheets[1].UsedRange.Rows.Count;
//je calcule la nouvelle ligne
    newrow:=lastrow+1;
    arange:='A'+IntToStr(newrow);
//je me positionne et je note mes données
 
//j'enregistre et je ferme
    xlapp.workbooks[1].close;
    xlapp.quit;
    xlapp:=unassigned;

Ça fonctionne.
:( donc petite progression.

11/02/2014, 21h50
tourlourou

si le 1° code plantait sur l'ouverture du fichier et pas le second où c'est passé en dur, ne serait-ce pas un pb de codage de caractères ?
11/02/2014, 22h46
jpp

codage de caractéres
Je crois bien que oui !
du coup j'ai un autre probléme, je ne peux pas écrire dans la feuille excel quand je mets
Code:

1 2 3 4 5 lastrow:=xlapp.workbooks[1].worksheets[1].UsedRange.Rows.Count; newrow:=lastrow+1; arange:='A'+IntToStr(newrow); xlapp.workbooks[1].worksheets[1].cells[1,newrow].value:='123';
j'arrive bien dans la bonne cellule mais rien ne s'inscrit.

Bon je vais me coucher, demain je me léve tot et de toutes façons je n'irais pas plus loin aujourd'hui!
12/02/2014, 08h32
Jon Shannow

En OLE, les chaines doivent être de type AnsiString ou wideString, sinon, ça plante. Je l'ai appris à mes dépens avec les liaisons OpenOffice et j'ai eu droit à une piqûre de rappel avec Word ! :?