Ouvrir un fichier Excel existant

Version imprimable

Voir 40 message(s) de cette discussion en une page

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

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
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:

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.:?

20/01/2024, 14h49
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.
20/01/2024, 15h21
aimer_Delphi

Citation:

Envoyé par 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.

Merci pour le réponse.
y a t il un exemple pour l'ouverture d'un fichier excel , et écrire des données?
20/01/2024, 15h43
Papy214

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

déjà pour la base

Voila un exemple pour ouvrir un fichier Excel

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
 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;

Citation:

Envoyé par wheel

Voila un exemple pour ouvrir un fichier Excel

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
 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 ?

20/01/2024, 21h06
wheel
Si comme en VBA, ce sont les mêmes fonctions et opérations il faut veiller que les instructions soient écrites correctement en Delphi
Code:

1 2 3 xlSheet.Cells[1, 1] := 'Cellule'; xlSheet.Range['A2'] := 'Range A2';
21/01/2024, 10h35
pascal07

Bonjour
pour un usage pro, j'utilise ce composant payant:

http://www.kluug.net/xlsx-ods-delphi.php

Très fiable, aucun retour clientèle depuis des années, Excel installé ou pas, et SAV efficace.

Je manipule comme je veux le fichier Excel, en mémoire, puis le sauve...

Cordialement
Pascal
21/01/2024, 12h43
aimer_Delphi

Merci a vous tous,
j'ai trouvé cette procédure dans ce post

exportation des données

c'est excellente fonction,
seulement je cherche a modifier la fonction , pour ouvrir un fichier excel , ne pas remplir l’entête des colonne , et le début des ligne est paramétrable , c'est a dire a partir d'une ligne (exemple 8 mais pas 1).
21/01/2024, 14h18
aimer_Delphi

et pour 10890 ligne , l'exportation est très très lourde ....

J'ai fait quelques tests et modifications dans le code ça prend environs 16 secondes pour exporter 10000 enregistrements avec 17 champs vers le fichier Excel et 20 secondes pour le tout incluant l'enregistrement ce qui raisonnable.

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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
 function ExportToExcelFile(Query: TDataSet; const AFilename:string) : Boolean;
var
    Index       :   Integer;
    XLApp, Sheet, Data, xlFile: OLEVariant;
    _Col         :   Integer;
    _Row         :   Integer;
    RecNo       :   Integer;
    function RangeRef(ACol, ARow, ACols, ARows:integer):string;
    begin
       ACol := Ord('A') + ACol - 1;
       Result := Format('%s%d:%s%d',[
                 Chr(ACol),
                 ARow,
                 Chr(ACol + ACols - 1),
                 ARow + ARows - 1]);
    end;
var
    Records:integer;
    VisCols: integer;
begin
    Screen.Cursor:=crHourGlass;
    Result:=False;
    // On envoi l'entête dans la feuille
    try
        XLApp := CreateOleObject('Excel.Application');
        XLApp.Visible := True;
        xlFile := xlApp.Workbooks.Open(AFilename);
        Sheet:= xlFile.Sheets['Feuil1'];
 
    except on E:Exception do
        begin
            Data:=Unassigned;
            MessageDlg('Impossible de trouver une instance de Microsoft Excel !',mtError,[mbOk],0);
            Screen.Cursor:=crDefault;
            Exit
        end;
    end;
    Query.DisableControls;
  //  Query.FetchAll;
    Query.First;
    Records  := Query.RecordCount;
    VisCols := 0;
    for Index:= 0 to Pred(Query.FieldCount) do
    begin
        if Query.Fields.Fields[Index].Visible then
           Inc(VisCols);
    end;
 
    Data := VarArrayCreate([1, Records, 1, VisCols], varVariant);
    for _Row := 1 to Records do
    begin
        _Col:=1;
        for Index:=0 to Pred(Query.FieldCount) do
        with Query.Fields.Fields[Index] do
        if Visible then
        begin
 
            if (DataType = ftDate) or (DataType = ftDateTime) then
            begin
                if IsNull or (AsDateTime = 0) then
                   Data[_Row,_Col] := ''
                else
                   Data[_Row,_Col] := AsDateTime;
            end else
                   Data[_Row,_Col] := DisplayText;
            Inc(_Col);
        end;
        Query.Next;
    end;
 
    try
        Sheet.Range[RangeRef(1, 8, VisCols, Records)].Value := Data;
        xlFile.Save
    finally
        Data:=Unassigned;
    end;
 
    Screen.Cursor:=crDefault;
    if not VarIsEmpty(XLApp) then
    begin
        XLAPP := Unassigned;
        Sheet := Unassigned;
        xlFile := Unassigned;
    end;
 
    Query.EnableControls;
    Result:=True;
end;

22/01/2024, 07h42
aimer_Delphi

Bravo, wheel ,Merci beaucoup .
c'est vraiment super rapide .
seulement j'ai un petit problème dans le formatage des champs.
si le code Client = '0000152536' (par exemple) le transfert élimine les zéro et ça devient : 152536 .
peutons réglé ce problème? :oops:
22/01/2024, 10h25
popo

Deux solutions.
Soit modifier le type de la cellule pour lui dire que c'est du texte.
Soit rajouter une quotte au début de la chaine : '0000152536

c'est bon,
j'ai trouvé la solution :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
            //----------------
                if DataType  in [ftCurrency,ftBCD] then
                begin
                   Data[_Row,_Col]   := AsCurrency;
                end
                else
                    if DataType  in [ftDate,ftDateTime]then
                    begin
                          if IsNull or (AsDateTime = 0) then
                             Data[_Row,_Col] := ''
                          else
                             Data[_Row,_Col] := AsDateTime;
                    end
                    else
                      begin
                         Data[_Row,_Col] := '''' + DisplayText;
                      end ;
 
            //-----------------

Merci a vous tous. ;)

22/01/2024, 15h22
aimer_Delphi

Mais toujours , ça marche plus avec office 2007.
22/01/2024, 16h45
wheel
En effet, j'ai fait mes tests sur office 2010 et ça marche sans problèmes
Essaie de vérifier l'actuel syntaxe à l'ancien proposé dans le lien.
remplacer Sheets par Worksheets

Pour vérifier si l'Excel est installé correctement dans le registre faites ce test pour ouvrir le fichier
Code:

1 2 3 4 5 6 7 var XLApp : OLEVariant; begin XLApp := CreateOleObject('Excel.Application'); XLApp.Visible := True; XLApp.Workbooks.Open('C:\Users\pc2020\Desktop\Classeur1.xlsx') end;
Si l’opération se déroule comme prévu il faut vérifier alors si le classeur contient la feuille :' Feuil1'

Merci beaucoup wheel,
effectivement la solution et simple:

Code:

1
2
3
 
        //Sheet := xlFile.Sheets[1]; // si office > 2007
        Sheet := xlFile.Worksheets[1]; // si office 2007

Utiliser un entier avec Worksheets ou Sheets veut dire qu'on cherche la feuille par indice et pas par nom, cela explique que la Feuil1 n'existe pas mais la recherche par nom est contraignante pour une solution générale.

Pour maintenir l'affichage des zéros coté gauche il est possible de définir le format d'affichage de la colonne en question avant la copie des données dans l'Excel, seulement préciser l'indice de la colonne,
c'est mieux qu'envoyer le texte entre les quotes et qui seront visibles coté Excel.
Code:

1 2 3 Sheet.Range[RangeRef(indice de la colonne, 8, 1, Records)].NumberFormat := '0000000000'; // ou '@' pour format texte /// juste avant cette ligne Sheet.Range[RangeRef(1, 8, VisCols, Records)].Value := Data;

26/01/2024, 15h23
lave_01

1 pièce(s) jointe(s)

Bonjour,

J'ai récemment débuté l'écriture d'une lib pour Microsoft Office en débutant par Excel.
Elle a été écrite en partie avec ChatGPT pour aller plus vite et modifier selon mes besoins.
Je la partage si vous voulez vous en inspirez :)

Pièce jointe 649803
26/01/2024, 15h54
sergio_is_back

Citation:

Envoyé par lave_01

Bonjour,

J'ai récemment débuté l'écriture d'une lib pour Microsoft Office en débutant par Excel.
Elle a été écrite en partie avec ChatGPT pour aller plus vite et modifier selon mes besoins.
Je la partage si vous voulez vous en inspirez :)

Pièce jointe 649803

C'est sympa mais y'a rien du tout dans ta lib à part un squelette de base que n'importe qui aurait pu pondre en 3 minutes

Voir 40 message(s) de cette discussion en une page