Discussion :

[aimer_Delphi]

Bonjour a tous,
pour ouvrir un fichier Excel existant , j'utilise ce bout de programme :

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
var Tab: _workbook;
    Feuil: _worksheet;
    i,j:Integer;
    S:shortstring;
      StrSaveFile: string;
      IntFileType: integer;
      SaveDialog: TSaveDialog;
 
begin
   try
            SaveDialog := TSaveDialog.Create(nil);
            SaveDialog.Filter := 'Excel files |*.XLSX';
            SaveDialog.Execute;
            IntFileType := SaveDialog.FilterIndex;
            StrSaveFile := SaveDialog.FileName;
            if Length(StrSaveFile) = 0 then
              Exit
            else
              StrSaveFile := Trim(SaveDialog.FileName);
 
    ExcelApplication1.Connect;
    ExcelApplication1.Visible[0]:=False;
 
            Tab:=ExcelApplication1.Workbooks.Open(StrSaveFile,False,False,
                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
 
 
          feuil:=Tab.Worksheets[1] as _worksheet;

chez moi , j'ai office 2013 installé , donc pas de problème.
mais , chez un de mais client qui a office 2007 installé , je ne peut pas ouvrir le fichier excel.

y a t il une modification a reporter sur mon code ?
est comment trouvé les bon paramaitre pour l'ouverture excel , avec cette instruction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Tab:=ExcelApplication1.Workbooks.Open(StrSaveFile,False,False,
                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);

Merci a tous.

[Papy214]

en utilisant directement OLE plutôt que le composant Delphi qui est lié à une version Excel.
L'avantage d'OLE est qu'il s'adapte automatiquement à la version Excel installée sur le poste si je ne me trompe pas.

[aimer_Delphi]

en utilisant directement OLE plutôt que le composant Delphi qui est lié à une version Excel.
L'avantage d'OLE est qu'il s'adapte automatiquement à la version Excel installée sur le poste si je ne me trompe pas.

Merci pour le réponse.
y a t il un exemple pour l'ouverture d'un fichier excel , et écrire des données?

[Papy214]

https://lfe.developpez.com/PasExcel/

déjà pour la base

[wheel]

Voila un exemple pour ouvrir un fichier Excel

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
 uses comobj;
 
procedure TForm2.Button1Click(Sender: TObject);
var
 ExelFile,Dir:string;
 xlApp,xlSheet,xlFile:Variant;
begin
  Dir:=ExtractFilePath(ParamStr(0));
  if not PromptForFilename(ExelFile,'Excel|*.xlsx','','', Dir) then
    Exit;
  xlApp:= CreateOleObject('Excel.Application');
  try
    xlApp.Visible := False;
    xlApp.DisplayAlerts := False;
    xlFile := xlApp.Workbooks.Open(ExelFile);
    xlSheet:=xlFile.Sheets['Feuil1'];
    ...
 
 
  finally
     xlApp.Quit;
  end;
 
end;

[aimer_Delphi]

Voila un exemple pour ouvrir un fichier Excel

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
 uses comobj;
 
procedure TForm2.Button1Click(Sender: TObject);
var
 ExelFile,Dir:string;
 xlApp,xlSheet,xlFile:Variant;
begin
  Dir:=ExtractFilePath(ParamStr(0));
  if not PromptForFilename(ExelFile,'Excel|*.xlsx','','', Dir) then
    Exit;
  xlApp:= CreateOleObject('Excel.Application');
  try
    xlApp.Visible := False;
    xlApp.DisplayAlerts := False;
    xlFile := xlApp.Workbooks.Open(ExelFile);
    xlSheet:=xlFile.Sheets['Feuil1'];
    ...
 
 
  finally
     xlApp.Quit;
  end;
 
end;

merci pour le réponse ,
mais comment faire pour remplir les cellules de la feuille ?

[Papy214]

C'était déjà ma réponse dès le début mais ça n'a pas semblé faire tilt 🙂

[lave_01]

Merci pour le lien vers le fichier que je ne connaissais pas. Effectivement toute la base y est