nombre de feuille d'un document Excel ??Résolu

Question

Bonjour!

Je souhaiterais savoir comment on peut faire pour conna&#238;tre le nombre de feuille d'un document Excel 

et renvoyer celui-ci dans un TEdit 

J'ai juste fait:



procedure TTestSurExcel.InteroClasseurClick(Sender: TObject);

begin

  if OpenExcel.Execute then

    begin

      OleApplication :=CreateOleObject('Excel.Application');

      OleApplication.visible:=False;

      OleWorkBook:=OleApplication.Workbooks.open(OpenExcel.FileName);

      ????

      NbClasseur.Text:=???

    end

end;



Et la je ne vois pas

vaughan · Accepted Answer

Voici un code exemple :

unit UXL;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMan, StdCtrls;


type
  TForm1 = class(TForm)
    OD_SearchFile: TOpenDialog;
    edFile: TEdit;
    btSearchFile: TButton;
    edNbSheet: TEdit;
    lbNbSheet: TLabel;
    XPManifest: TXPManifest;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btSearchFileClick(Sender: TObject);
  private
    FXLApp :  Variant;
    FXLClasseur : Variant;
  public
    { D&#233;clarations publiques }
  end;


var
  Form1: TForm1;


implementation


Uses
 ComObj;


{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
  //Cr&#233;e un objet unique non initialis&#233; de la classe sp&#233;cifi&#233;e par le param&#232;tre 'Excel.Application'
  FXLApp:=CreateOleObject('Excel.Application');
  //Rends l'application visible
  FXLApp.Application.Visible:=True;
end;


procedure TForm1.FormDestroy(Sender: TObject);
begin
  // Lib&#232;re l'application XL
  FXLApp := Unassigned;
end;


procedure TForm1.btSearchFileClick(Sender: TObject);
begin
  // Recherche du fichier
  OD_SearchFile.Execute;
  edFile.Text := OD_SearchFile.FileName;
  // Ouverture du classeur XL.
  FXLClasseur := FXLApp.Workbooks;
  FXLClasseur := FXLClasseur.Open(edFile.Text);
  // Nombre de feuille dans le classeur
  edNbSheet.Text := FXLClasseur.WorkSheets.count;


end;


end.

vaughan

darky93 · Answer

Merci pour le .count; &#231;a fonctionne



J'ai cherch&#233; un truc pour faire la m&#234;me chose avec OpenOffice Classeur et j'ai trouv&#233; l'&#233;quivalent:  .GetCount;

Nombre de feuille d'un document Excel ??

2 réponses

Votre réponse

Discussions similaires