Discussion :

[petitcoucou31]

Bonjours a tous ,
je voudrais savoir si il est possible de lire un fichier excel (composé d'une seule feuille ) et charger les cellules dans un Tstringgrid ?

Je ne cherche pas a travailler avec exel depuis delphi , mais juste a charger le fichier exel .

Toutes les infos que j'ai trouvé semble traiter cela avec des composants tel que 'Tapplicationexcel .. ' ou les 'OLE' .

Mais je ne sais pas si je peux utiliser de telle methodes , car la machine qui va traiter ce fichier sera monoposte ( pas d'intranet .. ) possedera juste le fichier excel a traiter et ne possedera pas exel .

Je suis prenneur de toutes les subjections ..

merci d'avance

[Linkin]

J'utilise ça pour en créer un, si ça peut t'aider:

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
function SaveAsExcelFile(AGrid: TStringGrid; AFileName: string): Boolean;
const
  {$J+} CXlsBof: array[0..5] of Word = ($809, 8, 00, $10, 0, 0); {$J-}
  CXlsEof: array[0..1] of Word = ($0A, 00);
var
  FStream: TFileStream;
  I, J: Integer;
begin
  FStream := TFileStream.Create(PChar(AFileName), fmCreate or fmOpenWrite);
  try
    CXlsBof[4] := 0;
    FStream.WriteBuffer(CXlsBof, SizeOf(CXlsBof));
    for i := 0 to AGrid.ColCount - 1 do
      for j := 0 to AGrid.RowCount - 1 do
        XlsWriteCellLabel(FStream, I, J, AGrid.cells[i, j]);
    FStream.WriteBuffer(CXlsEof, SizeOf(CXlsEof));
    Result := True;
  finally
    FStream.Free;
  end;
end;
 
procedure XlsWriteCellLabel(XlsStream: TStream; const ACol, ARow: Word;
  const AValue: string);
var
  L: Word;
const
  {$J+}
  CXlsLabel: array[0..5] of Word = ($204, 0, 0, 0, 0, 0);
  {$J-}
begin
  L := Length(AValue);
  CXlsLabel[1] := 8 + L;
  CXlsLabel[2] := ARow;
  CXlsLabel[3] := ACol;
  CXlsLabel[5] := L;
  XlsStream.WriteBuffer(CXlsLabel, SizeOf(CXlsLabel));
  XlsStream.WriteBuffer(Pointer(AValue)^, L);
end;

[skywaukers]

bonjour,

il y a les composants Flexcel qui font ça très bien, dans les deux sens et sans excel (ils existent même pour kylix).
Tu peux les trouver aujourd'hui à cette adresse : www.tmssoftware.com

@++
dany

[petitcoucou31]

salut skywaukers , je suis allé chercher Flexcel , mais j'ai des prob d'install . J'ai desintallé tous les softs de chez "tms.." qui etait sur mon pc pour ne pas avoir de prob , et j'ai essayer d'installer la version de Flexcel pour delphi7 , mais il me dit qu'il me manque le fichier UExelAdapter.dcu , alors qu' il se trouve bien dans la directory Flexcel ??
Donc je n'arrive pas a l'installer !

Par contre toi qui semble utiliser déjà ces composants , si j'ai bien compris dans la config de l'installation on doit indiquer la version d'excel qu'on doit utiliser .
Donc on ne peux lire les fichier que d'une version d'excel ? 97 ou 2000 ou Xp ou .. ? ou bien on peut lire les fichiers quelque soit leurs versions ?

merci .

[skywaukers]

La version que j'utilise est la dernière version téléchargeable lorsqu'ils étaient indépendant, je n'ai jamais télécharger la version de TMS à vrai dire.
Par contre pour l'installation, le truc c'est qu'il faut ajouter tous les répertoires contenus dans le répertoire Flexcel au path avant de compiler, et là tout va bien.
Je n'ai jamais indiqué de version d'excel, il m'a toujours ouvert mes tableaux, j'en génère aussi sans aucun soucis.
Quand tu l'auras installé, tu pourras ouvrir leur démos qui est très complète, cela te donneras une idée de jusqû'où on peut aller avec.

@++
Dany

[petitcoucou31]

re salut , quand tu dis qu'il faut rajouter les nom des directory au path de delphi , c'est a dire ?
dans Delphi => outil => option d'environnement => variable d'environnement ?
si oui je connais pas la ou les variables que je dois renseigner !
si c'est pas la ou est ce ?
merci.

[skywaukers]

tu vas :
outils --> options d'environnement --> bibliothèques --> chemin de bibliothèque
Et là tu ajoutes les répertoire (sauf packages et démo).

voilà
Dany

[petitcoucou31]

J'ai pas encore essayé , mais l'installation c'est bien passé !
merci beaucoup a toi !!
bye !

[mlepretre]

Linkin, ton code m'intéresse beaucoup mais je ne parviens pas à charger le fichier xls dans mon StringGrid

Le but pour moi serait de faire un automate qui va convertir une série de fichiers xls en csv, et ce sans installer Excel sur la machine.

[Linkin]

ce code ne gère que la génération de fichiers excel 2 ou 4 je crois.

Pour faire ça sans passer par Ole, je pense qu'il doit y avoir des composants qui le font, mais je n'en connais pas.

[mlepretre]

Ok, merci de l'info.

J'ai voulu m'intéresser au composants Flexcel, malheureusement ils sont payants

Je vais creuser vers OLE en espèrant qu'il y aura moyen d'installer Excel sur la machine concernée.

Encore merci et à bientôt