Ecrire dans un fichier .xls (Excel)

Version imprimable

12/11/2006, 17h30
avogadro

Ecrire dans un fichier .xls (Excel)

Bonjour,

je sais que c'est possible de lire dans un fichier Exel, j'ai deja la partie de code qui fait ca, par ailleurs j'aimerais pouvoir écrire aussi dans certain case de ce même fichier .xls

Malheuresement je ne trouve pas trop de code parlant de ca sur internte, est ce que certains ici on deja eu a faire ca? Quelqu'un a une idée ou un lien?

Merci bien...
12/11/2006, 18h22
TicTacToe

As-tu recherché dans la FAQ

plus précisément sur Office ?
12/11/2006, 22h02
defluc

Il y a plusieurs solutions dépendant de la version de Delphi et des composants qui y sont, ou non, en standard.

j'ai delphi 5, et j'ai suivis la manip du site, j'ai ca :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComObj,
  StdCtrls, OleServer, Excel97;
 
type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    ExcelApplication1: TExcelApplication;
    ExcelWorksheet1: TExcelWorksheet;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  vMSExcel,vWorksheet : variant;
 
implementation
 
{$R *.DFM}
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    vMSExcel := GetActiveOleObject('Excel.Application');
    vMSExcel.Visible := true;
 
    try
    vMSExcel := GetActiveOleObject('Excel.Application');
    except
    vMSExcel := CreateOleObject('Excel.Application');
    end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
    aValue, aRange : AnsiString;
    vCell : variant;
begin
    aRange := 'D3';
    vCell := vWorksheet.Range[aRange];
    aValue := vCell.Value;
    ShowMessage(aValue);
end;
 
end.

le bouton 1 servant a se connecter a linterface existance, et le bouton 2 a chercher la valeur d'une case, mais ca me provoque une erreur avec le

Code:

vWorksheet : variant;

pourtant il y a écrit ca :s

Code qui marche avec Delphi 7 et excel 2002

Salut.

Dans 1 premier temps, tu pose sur ta feuille un composant OLE Excel.
Le click sur le bouton va provoquer la connection à excel, l'envoie de données et même son ouverture

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
{-------------------------Au click sur le BTN Excel ---------------------------}
 
procedure TForm2.Button2Click(Sender: TObject);
begin
try     // Excel est ouvert
    Excel := GetActiveOleObject('Excel.Application');
    ExcelOpened := True;
Except
    on EOleSysError do
    ExcelOpened := False;
end;
try
Excel := CreateOleObject('Excel.Application');// création du lien OLE pour la classe référencée par Excel dans la base de registre "Excel.Application"
{On effectue l'exportation}
SaveAsExcelFile(grille,ExtractFilePath(Application.ExeName) + 'Test2006.xls');
if ExcelOpened = False then
begin
 Excel.Quit;
 Excel := Unassigned;
end;
 except
   ShowMessage('Microsoft Excel n''est pas installé. Cette fonctionnalité n''est pas accessible');
   Abort;
end;
 
{On ouvre le fichier}
ouvrir_Excel;
end;
 
{------------------------------------------------------------------------------}
 
procedure TForm2.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;
 
{------------------------------------------------------------------------------}
function TForm2.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;

13/11/2006, 09h27
defluc

Sur quelle instruction se produit ton erreur
13/11/2006, 09h37
avogadro
ahh, j'ai mis le TExcelOLEObject et ca marche, avant j'avais mis ExcelApplication et ExcelWorksheet c'est pour ca...

dans mon cas je souhaite que le fichier excel soit ouvert en meme temps que le soft, mais je dois tout de meme gérer l'erreur lors de cette manip
Code:

1 2 vMSExcel := GetActiveOleObject('Excel.Application'); vMSExcel.Visible := true;
Si le fichier est fermé ca me renvoie une exeption EOleSysError et j'essais de pouvroir contenir l'erreur en faisant
Code:

1 2 3 4 5 6 7 8 try vMSExcel := GetActiveOleObject('Excel.Application'); except on EOleSysError do ShowMessage('Fichier Excel non ouvert!'); end; vMSExcel.Visible := true;
mais ca n'a pas l'air d'etre ca :s

j'ai une erreur quand je veux lire aussi la valeur de la case dans cette partie :
Code:

1 2 3 4 5 6 7 8 9 var aValue, aRange : AnsiString; vCell : variant; begin aRange := 'D3'; vCell := vWorksheet.Range[aRange]; aValue := vCell.Value; ShowMessage(aValue); end;
avec la variant ne référance pas un objet automation, precessus stopé!

Salut

Pour le try... except
Code:

1 2 3 4 5 6 7 8 try vMSExcel := GetActiveOleObject('Excel.Application'); except on EOleSysError do vMSExcel := CreateOleObject('Excel.Application'); ShowMessage('Fichier Excel non ouvert!'); end; vMSExcel.Visible := true;
C'est en dehors de Delphi que tu dois tester l'exécutable sinon tu auras toujours le message d'erreur.

Pour ce qui est de la deuxième erreur, je fait de ne pas ouvrir un classeur pourrait en être à l'origine.
Fais une exécution pas à pas pour detecter l'instruction qui génère l'erreur.

Bonne chance.

pareil :s

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button2Click(Sender: TObject);
var
    aValue, aRange : AnsiString;
    vCell : variant;
    MonClasseur : _workbook;
 
begin
    //vWorksheet := vXLWorkbook.WorkSheets['feuil1'];
    If ExcelApplication1.Workbooks.Count>=1 Then
    MonClasseur:=ExcelApplication1.Workbooks[1];
 
    aRange := 'D3';
    vCell := vWorksheet.Range[aRange];
    aValue := vCell.Value;
    ShowMessage(aValue);
end;

l'erreur est générée par :

Code:

vCell := vWorksheet.Range[aRange];

13/11/2006, 13h22
defluc
Chez moi, ta source ne pose aucun problème, sauf une erreur à la compilation sur la déclaration : «MonClasseur : _workbook» qui est une instruction Ole Automation.

Je me demande si tu ne mélanges pas les instruction Ole et Ole Automation.

Remplace
Code:

1 2 vCell := vWorksheet.Range[aRange];
par
Code:

1 2 vCell := vWorksheet.Cells[3,4];
ou par
Code:

1 2 vCell := vWorksheet.Cells.Item[3,4];
Je serais curieux de savoir si une des deux fonctionne

oui peut etre que je mélange, je sais pas, les codes marches pas la, par contre ce code la m'ouvre un fichier excel et écrit dedans, le hic c'est que je veux qu'il écrire ds le fichier deja ouvert :s
Code:

1 2 3 4 5 6 7 8 9 var MonClasseur : _workbook; MaFeuille : _worksheet; begin ExcelApplication1.SheetsInNewWorkbook[0]:=1; MonClasseur:=ExcelApplication1.Workbooks.Add(EmptyParam,0); MaFeuille:=MonClasseur.Worksheets[1] as _worksheet; MaFeuille.Range['B1','B2'].Value:='BLOP' ; ExcelApplication1.Visible[0]:=true;
Pour capter l'attention d'un fichier xls ouvert avant j'utilisais ca :

Code:

vMSExcel := GetActiveOleObject('Excel.Application');

Edit :

il fallait faire ca :
Code:

1 2 3 4 5 6 If ExcelApplication1.Workbooks.Count>=1 Then MonClasseur:=ExcelApplication1.Workbooks[1]; MaFeuille:=MonClasseur.Worksheets[1] as _worksheet; MaFeuille.Range['B1','B2'].Value:='BLOP' ; MaFeuille.Cells.Item[1,1].value:='bzzzzz'; ExcelApplication1.Visible[0]:=true;

13/11/2006, 21h08
defluc

Pour ta gouverne, c'est dans la doc des objets Ole Automation que tu dois piocher parce que ce sont ceux que tu sembles utiliser.

Mais il me semble que ton sujet est résolu.
Marque le donc comme tel.
13/11/2006, 21h48
avogadro

mais il y a un petit probleme, moi j'ai office 2003 et un amis a aussi office 2003, le code marche chez moi et pas chez lui, alors qu'on a fait la meme manip oO

ce code peut pas etre apadté a toutes les version d Excel ?
13/11/2006, 22h21
defluc

Le code de l'unité Excel_TLB.pas est généré par la bibliothèque
EXCEL8.OLB (pour Excel 97)
EXCEL9.OLB (pour Excel 2000)
EXcel10....
...

Si un utilisateur de ton programme utilise une version de Excel plus ancienne que celle de la bibliothèque de ton programme, cela ne marchera pas.

L'idéal est donc que tu charges la bibliothèque la plus ancienne et que tu recompiles. Tu assureras ainsi une compatibilité vers les versions de Excel les plus récentes.

Avec l'installation Office par défaut, les fichiers olb sont dans C:\Program Files\Microsoft Office\Office\. Si tu ne les trouves pas, fais une recherche de Excel*.olb et importe (Projet - Importer une bibliothèque de type) la plus ancienne.

Si tu ne trouves pas plus ancien 10 ou 11, il ne faut pas espérer une compatibilité avec Excel 95, 97, ou 2000.

Télécharges Excel7.olb ou Excel8.olb et importe la bibliothèque dans ton projet pour en garantir la compatibilté ascendante.

Avec mes excuses pour le caractère aride de ces explications

Delphinement
14/11/2006, 14h28
avogadro

donc le truc a faire, c'est importer dans mon projet le plus ancien ou bien tous les fichier olb?
ca peut toujours se trouver...
14/11/2006, 17h46
defluc

Tu as tout compris, le plus ancien pour moi étant Excel8.olb.

Bonne recherche

La meilleure solution est d'utiliser OLE.

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
25
var
MonObjOle,MonDocument,MonSheet : Variant;
begin
{Initialisation de l'objet COM Excel.Application}
try
    MonObjOle := CreateOleObject ('Excel.Application');
  except
Application.MessageBox ('Impossible d''initialiser l''objet OLE Excel.Application', 'Erreur', MB_OK);
    Exit ;
end;
try
MonDocument :=  MonObjOle.Workbooks.add();
  except
    Application.MessageBox ('Impossible d''initialiser l''objet OLE Excel.Workbook', 'Erreur', MB_OK);
Exit ;
  end;
MonSheet :=  MonDocument.Add;  
except
    Application.MessageBox ('Impossible d''initialiser l''objet OLE Excel.Workbook', 'Erreur', MB_OK);
Exit ;
  end;
 
{Placer ici le code de traitement}
MonSheet.Cells[1,1] := 'Hello Excel!'
end;

Bien sûr,ce code est "rudimentaire",mais il affiche le texte "Hello Excel!" à la cellule "A1".

08/02/2007, 10h21
Vodkha

Hello j'ai aussi ce problème avec les différentes versions ascendantes.
J'ai compilé mon programme avec la librairie excel xp et j'ai testé sur un excel 97.

Voici le message d'erreur "The server threw an exception"

J'aimerais bien recompilé avec une version plus ancienne mais je n'en possède pas. J'ai effectué des recherches sur le net mais rien trouvé.

Quelqu'un peut-il me dire ou trouvé la librairie Excel8.olb ?

Merci
08/02/2007, 11h05
defluc

Bonjour

Donnes moi une adresse Email.
Je te l'enverrai.
26/02/2007, 09h45
supersnail

Le problème du composant "TExcelOLEObject" est qu'on ne peut éxécuter le programme seulement sur un poste(alors qu'avec OLE,ça marche!)
:P