Excel Datei öffnen und bearbeite

[ByTheTime]

Hallo,
Zu aller erst: Es tut mir leid, ich denke dies hier ist nicht das richtige Unterforum, jedoch bin ich neu hier und noch etwas orientierungslos.

Nun zu meinem Problem:
Seit kurzer Zeit arbeite ich mit Delphi. Aktuell arbeiteich mit Delphi 2009. Ich möchte eine Excel Datein öffnen und dann den Text aus Edit-Feldern in Zellen kopieren/übertragen. Leider habe ich sowas vorher nochnicht gemacht Meine ersten Ideen habe ich hieraus gezogen: http://www.delphipraxis.net/37480-ex...rnsteuern.html
Allerdings steht dort nicht wie ich eine Excel Datei öffne und im Internet findet sich viel, leider nicht immer das passende. Habt ihr vllt. einen Beispiel-Code, wie ich die Excel-Datei öffne?

Für eure Hilfe wäre ich sehr dankbar

Lukas

[zeras]

Bitte nutze die Suche im Forum.

http://www.delphipraxis.net/13873-excel-auslesen.html

[ByTheTime]

Ich habe schon gesucht, finde aber nicht immer das passende bzw. kann es auf mich Umwandeln:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComObj, StdCtrls;

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

var
  Form1: TForm1;
  Excel: Variant;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

 try
  Excel := CreateOleObject('Excel.Application');
 except
  ShowMessage('Excel konnte nicht gestartet werden !');
  Exit;
 end;

 Excel.Workbooks.Open('D:\Test.xls');
 //Weiß nicht ob das so geht, habe viele verschiedene Methode gesehen und vermute mal
 Excel.Cells[3, 4].Value := 'Hallo Welt';
 //Zeigt Fehler an: Undeklarierter Bezeichner 'Value'
 Excel.Visible := true; //für Testphase sinvoll

end;

end.

Das ist mal die ganze Unit. Ich scheiter schon direkt am öffnen des Dokuments. Ich habe so viele verschiedene Methoden gesehen das Excel Dokument zu öffnen, da bin kch etwas durcheinander gekommen.

[zeras]

Also, ich habe deinen Code genutzt mit Excel 97 und es geht.

Hast du Excel installiert?
Es kann sein, dass es mit neueren Excelversionen anders geht, aber mit 97 geht es.

[ergeka]

Hallo,

Mit Excel 2007 funktioniert es auch ohne Probleme.


Ralf

[ByTheTime]

-.- Ich habe meinen Fehler gefunden War natürlich wieder reine Dummheit...

[bit4bit]

@ByTheTime

Sehr schön!

Würdest Du uns verraten was es war?

[ByTheTime]

@bit4bit:
Ich habe hier einen anderen Code gepostet (den funktionierenden). In Delphi habe ich etwas herum experiementiert und dabei versehentlich "ComObj" aus den uses gelöscht... Hat etwas gedauert bis ich gemerkt habe, das ich es gelöscht habe.

Aber ich hätte doch noch eine Frage:
Ich möchte als Dateipfad den Text aus einem Edit-Feld nehmen, bloß hier habe ich bis jetzt nichts erreicht. Könnt ihr mir da vllt. noch helfen?
Dasselbe auch nochmal umgekehrt: Edit-Feld Text als Speicherpfad.

Wäre echt nett

[zeras]

Zitat von ByTheTime:

Ich möchte als Dateipfad den Text aus einem Edit-Feld nehmen, bloß hier habe ich bis jetzt nichts erreicht. Könnt ihr mir da vllt. noch helfen?
Dasselbe auch nochmal umgekehrt: Edit-Feld Text als Speicherpfad.

Nimm doch Edit.Text und dann hast den Pfad oder Namen und damit kannst du dann deine Exceltabelle öffnen. Das genannte Feld kannst du dann auch wieder beschreiben.

[ByTheTime]

Excel.Workbooks.Open('Edit1.Text'); oder
Excel.Workbooks.Open := Edit1.Text; Meinst du so? Das funzt ja nicht. Oder habe ich dich nicht richtig verstanden?