Frage zum Import/Export von Excel Dateien

[Hallo_Thomas]

Hallo, ich hab zu den folgenden Code mal zwei Fragen:

1.In den uses wird ExcelXP verwendet, ist die Form auch lauffähig ohne Excel, bzw. wie kann ich abfragen ob Excel vorhanden ist?

2.Wie Frage ich die verwendeten Zeilen ab? Habs mit ws.Rows.Count probiert, doch da erhalte ich immer nur 65536 als Wert.

Danke für eure Hilfe!

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, JvComponentBase, JvDBGridExport,ExcelXP, OleServer;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    SaveDialog1: TSaveDialog;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  s:string;
  excel: TExcelApplication;
  wb: _WorkBook;
  ws: _WorkSheet;
  lcid: INTEGER;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  lcid := GetUserDefaultLCID;
  excel := TExcelApplication.Create(Form1);
  excel.Connect;
  opendialog1.Filter:= 'Exceldateien (*.xls)|*.XLS';
  IF not  opendialog1.Execute THEN exit;
   s:= opendialog1.FileName;
  // Exceldatei laden (test.xls)
  wb := excel.Workbooks.Open(s, emptyParam, emptyParam, emptyParam, emptyParam,
  emptyParam, emptyParam, emptyParam, emptyParam, emptyParam, emptyParam,
  emptyParam, emptyParam,emptyParam, emptyParam,lcid);

  // erstes Worksheet auswählen
  ws := wb.Sheets[1] as _WorkSheet;
  // Feld A1 ausgeben
  ShowMessage(ws.Cells.Item[2,1].TEXT);   //Zeile:Spalte
  // Hier in dein Grid übergeben
//...
  wb.Close(FALSE, emptyParam, emptyParam, lcid);
  excel.Quit;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  lcid := GetUserDefaultLCID;
  excel := TExcelApplication.Create(Form1);
  excel.Connect;
  Savedialog1.Filter:= 'Exceldateien (*.xls)|*.XLS';
  IF not  Savedialog1.Execute THEN exit;
   s:= savedialog1.FileName;
  // Exceldatei laden (test.xls)
  wb := excel.Workbooks.Add(emptyParam,lcid);
  ws := wb.Sheets[1] as _WorkSheet;


  ws.Cells.Item[1,1]:='Hallo';
  ws.SaveAs(s, emptyParam, emptyParam, emptyParam, emptyParam, emptyParam, emptyParam, emptyParam, emptyParam, emptyParam);

  wb.Close(FALSE, emptyParam, emptyParam, lcid);
  excel.Quit;
end;

end.

[mkinzler]

Zitat:

1.In den uses wird ExcelXP verwendet, ist die Form auch lauffähig ohne Excel,

Nein, da es nur ein vorhandes Excel per COM fernsteuert.

Zitat:

bzw. wie kann ich abfragen ob Excel vorhanden ist?

Wenn die Verbindung nicht funktioniert.

[Hallo_Thomas]

Wie kann ich es abfragen damit ich nenn True oder False Wert bekomme?

[Bernhard Geyer]

Zitat von Hallo_Thomas:

Wie kann ich es abfragen damit ich nenn True oder False Wert bekomme?

AFAIK gibt es eine Exeption bei den Zeilen:

Delphi-Quellcode:

excel := TExcelApplication.Create(Form1); 
excel.Connect;

oder du prüfst ob du Excel verwenden kannst mittels:

Delphi-Quellcode:

try
  CreateOleObject('Excel.Application');
  result := True;
except
  result := False;