Excel et SaveDialogRésolu

Question

Bonjour,


Je cherche à utiliser un SaveDialog pour permettre à l'utilisatuer de choisir un nom de fichier Excel puis de l'enregistrer où il le souhaite.
Je pensais tout d'abord utiliser la technique OLE qui peut créer un fichier Excel par défaut dans un endroit donné du disque, mais cela ne permet pas de demander le nom du fichier sous lequel l'utilisatuer souhaite l'enregistrer.


Voici le code por créer le fichier Excel avec OLE :


unit UExcel;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleServer, Excel97, ComObj, StdCtrls;


type
  Texcel = class
  
  procedure Creer(nom : string);
  
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
  
var
  Excel : Texcel; 
  OleApplication : variant;
  OleWorkbook : variant;


implementation


{$R *.dfm}


{********* Crée un fichier excel **********}


procedure Texcel.Creer(nom : string);


        begin
        OleApplication:=CreateOleObject('Excel.Application');
        OleApplication.Visible:=false;
        OleWorkbook:=OleApplication.workBooks.Add;
        OleApplication.ActiveWorkBook.Save;
        OleApplication.Quit;
        OleApplication:=Unassigned;
        end;


end.


Est-il possible d'utiliser un SaveDialog pour réaliser ce que je souhaite ?
Si oui quelqu'un aurait-il un exemple à me proposer ?


Merci d'avance.

moldov · Accepted Answer

Salut,

Voici ce que je te propose, 

{********* Crée un fichier excel **********}

procedure Texcel.Creer(nom : string);

        begin
        OleApplication:=  CreateOleObject('Excel.Application');
        OleApplication.Visible:=false;
        OleWorkbook:=OleApplication.workBooks.Add;

         if SaveDialog1.Execute then 

             if SaveDialog1.Filename <> '' then

              OleApplication.ActiveWorkBook.SaveAs(SaveDialog1.Filename);

   //      OleApplication.ActiveWorkBook.Save; 
        OleApplication.Quit;
        OleApplication:  =Unassigned;
        end;

 		end.

Pour info j'ai pas pu tester ce code, car je suis pas sur une machine avec Delphi donc merci de me tenir au courant.
Bonne Prog

revsys · Answer

Merci beaucoup !! Ca marche!!

jelume · Answer

Bsr

A titre d'info, voilà un exemple qui utilise seulement Excel

var
 Wbk: _Workbook;
 Wks: _Worksheet;
 OleTrue, OleFalse, C: OleVariant;
begin
  With CoExcelApplication.Create do
  begin


    DisplayAlerts[GetUserDefaultLCID] := True;


    Wbk := Workbooks.Add(EmptyParam, GetUserDefaultLCID);


    Wks := Wbk.Worksheets.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam, GetUserDefaultLCID) as  _WorkSheet;


    C := 'B5';
    Wks.Range[C, C].Value := 'Toto';


    OleTrue  := True;
    OleFalse := False;
    Wbk.Close(OleTrue, EmptyParam, OleFalse, GetUserDefaultLCID);


  end;

touJava · Answer

Bonjour Je veux faire le même travail que [auteur/REVSYS/718949.aspx revsys.][auteur/REVSYS/718949.aspx ] Par contre moi je voudrais que lorsque la boite de dialogue TSaveDialog s’ouvre un nom de fichier s’affiche par défaut dans cette boitte. Si quelqu’un à une aidé Merci.

moldov · Answer

Salut, 
Alors pour forcer un nom de fichier, il faut définir le filtre.

Pour cela une fois que tu as placé ton composant, dans le panneau des propriétés tu as la propriété Filter. Edite la et je te propose un exemple :

- Si tu veux ne faire apparaitre que les fichiers qui se nomment toto.xls alors renseigne "Fichier Toto.xls" dans le champs "Nom du filtre" et "toto.xls" dans "Filtrer"
- Si tu veux ne faire apparaitre que les fichiers qui ont xls comme extension alors renseigne "Fichier Excel" dans le champs "Nom du filtre" et " *.xls " dans "Filtrer"

- Si tu veux ne faire apparaitre tous les fichiers alors renseigne "Tous les fichiers" dans le champs "Nom du filtre" et " *.* " dans "Filtrer"

En espérant avoir été assez clair.
Bonne Prog

Excel et SaveDialog

5 réponses

Votre réponse

Discussions similaires