Discussion :

[sniperpro]

Bonjour,

j'ai cette fonction qui me permet d'exporter des données vers 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
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
function TFPointeuse.SaveAsExcelFile(ADataSet: TDataSet; 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;
  ICol, iRow: Integer;
 
    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;
begin
  Result := False;
  FStream := TFileStream.Create(PChar(AFileName), fmCreate or fmOpenWrite);
  try
    CXlsBof[4] := 0;
    FStream.WriteBuffer(CXlsBof, SizeOf(CXlsBof));
    ADataSet.DisableControls;
    ADataSet.first;iRow := 0;
     while not ADataSet.EOF do
     begin
        iRow := iRow+1;
        for ICol := 0 to ADataSet.FieldCount - 1 do
          XlsWriteCellLabel(FStream, ICol+1, iRow,ADataSet.Fields[ICol].AsString);
        ADataSet.Next;
     end;
     ADataSet.DisableControls;
 
 
    FStream.WriteBuffer(CXlsEof, SizeOf(CXlsEof));
    Result := True;
  finally
    FStream.Free;
  end;
end;

Le classeur est généré avec une seule seule feuille.
Ma question est : Comment puis je la modifiée pour avoir 3 feuille dedans ?

[ShaiLeTroll]

C'est directement en binaire ?

XlsWriteCellLabel, je l'ai déjà vu cette fonction, ah oui, c'est dans la FAQ - Comment exporter un TStringGrid vers Excel ?
Il est fort possible que cela soit plus difficile, surtout ensuite, faudra écrire les cellules dans la bonne feuille

Utiliser Excel en OLE serait peut-être plus pérenne ? surtout avec les versions XML !
Le code est plus simple et il est mieux de maitriser ce que l'on utilise !
Si tu as un peu de budget, le composant TMS FlexCell permet de créer un fichier Excel sans avoir Excel installé

Tu trouves d'autres exporter Excel gratuit aussi

[NABIL74]

Si tu as un peu de budget, le composant TMS FlexCell permet de créer un fichier Excel sans avoir Excel installé

Tu trouves d'autres exporter Excel gratuit aussi

Salut,

+1, le composant TMS FlexCell est très performant! Ou tu peux aussi utilisé les composants XLS Read WriteII .

Sinon la Biblio TscExcelExport gratuite (for non-commercial use)permet de le faire aussi:
http://www.scip.be/index.php?Page=ComponentsExcelExport

Bonne chance

[sniperpro]

En fait, j'utilise cette fonction pour creer le fichier excel, puis le compostant ole pour le modifier :

Code :

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

1
2
3
4
5
6
7
try
    ExcelApp := GetActiveOleObject('Excel.Application');
  except
  ExcelApp:=CreateOleObject('Excel.Application');
  end;
  MonClasseur:=ExcelApp.Workbooks.Open('C:\Sauvegardes\P2'+ DateNouvFormat +'\Point'+ DateNouvFormat+'.xls');
  MaFeuille:=MonClasseur.Worksheets[1] ;

Le problème revient à ajouter une autre feuille "MaFeuille2"

[ShaiLeTroll]

si tu utilises déjà OLE, pourquoi ne pas utiliser le code de la Comment ajouter une feuille au classeur ?

Je te laisse lire l'aide MSDN de MonClasseur.Worksheets.Add();

[sniperpro]

Lorsque j'ajoute cette ligne

Code :

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

Monclasseur.Sheets.Add(EmptyParam,EmptyParam,1,xlWBATWorksheet,0);

j'ai un problème 'Nombre de paramètres invalide', je suis sous delphi7

[ShaiLeTroll]

Selon la MSDN microsoft.office.interop.excel.worksheets.add

Code :

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

1
2
3
4
5
6
Object Add(
	Object Before,
	Object After,
	Object Count,
	Object Type
)

le dernier zéro me semble effectivement en trop !
Je suppose que tu l'avais trouvé tout seul, et j'espère voir un prochainement

[sniperpro]

Code :

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

1
2
3
4
5
MonClasseur:=ExcelApp.Workbooks.Open('C:\Sauvegardes\P2'+ DateNouvFormat +'\Point'+ DateNouvFormat+'.xls');
  Monclasseur.Sheets.Add(EmptyParam , EmptyParam ,1,xlWBATWorksheet) ;
 
  MaFeuille:=MonClasseur.Worksheets[1] ;
  MaFeuille2:=MonClasseur.Worksheets[2] ;

Ce code n'a pas d'effet sur le classeur :

Code :

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

MaFeuille2.Range['A1'].Value:='Nom';

Ne fait rien

J'ai l'impression que il y a quelque chose qui manque

[ShaiLeTroll]

Il faut faire un Save !
Comment enregistrer le classeur précédemment ouvert ?

[sniperpro]

C'est déja fait, mais c'est pas mentionné plus haut;

Code :

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

1
2
3
MonClasseur.Save ;
  MonClasseur.Close(True);
  ExcelApp.Quit;

[ShaiLeTroll]

C'est déja fait, mais c'est pas mentionné plus haut;

Mentionné ? ben si dans la !
Pilotage OLE d'Excel à partir de Delphi !

Pourquoi faudrait-il répéter ce que n'importe qui devrait trouver si il le cherche !