Excel auslesen

[Micha]

Hallo zusammen,

ich möchte aus einer bestimmten Excel-Datei z. B. aus der Zelle A1 den Wert in ein Edit-Feld übernehmen lassen.

Hier im Forum habe ich schon mal etwas gefunden.
Aber ich kann es leider nicht auf mich umbauen.

Kann mir bitte wer helfen?!

Hier mal mein bisheriger Code (Ausgabe noch in ShowMessage):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
    // Excel öffnen
    lcid := GetUserDefaultLCID;

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

    // Exceldatei laden (test.xls)
    wb := excel.Workbooks.Open('test.xls', emptyParam, emptyParam,     
          emptyParam, emptyParam, emptyParam, emptyParam, emptyParam,  
          emptyParam, emptyParam, emptyParam, emptyParam, emptyParam, 
          lcid);

    // erstes Worksheet auswählen
    ws := wb.Sheets[1] as _WorkSheet;

    ShowMessage(ws.Cells.Item[1,a].value);  //Fehlermeldung "a" undefinierter Bezeichner

end;

Vielen Dank im Voraus.

[kiar]

hallo micha ,

kenn mich mit exel nicht so richtig aus, aber müsstest du nicht a als einen integer deklarieren?

oder probiere mal die 1 einzusetzen, dann müsste er dir aus dem item 1,1 den zellwert auslesen.

raik

ich sehe gerade toms ist da der kann dir da bestimmt helfen

[Micha]

Zitat:

oder probiere mal die 1 einzusetzen, dann müsste er dir aus dem item 1,1 den zellwert auslesen.

No, funktioniert nicht. Hab ich schon alles durchprobiert.

[kiar]

versuche mal für a:ShowMessage(ws.Cells.Item[1,wb.activecell.column].value); einzusetzen.

raik

[Micha]

Nein, auch nicht.

[toms]

Hi,

Probier's mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  WorkBk: _WorkBook; //  ein WorkBook deklarieren
  WorkSheet: _WorkSheet; //  ein WorkSheet deklarieren
  XLApp: TExcelApplication;
  _lcid: LCID;
begin
  _lcid := GetUserDefaultLCID;
  XLApp := TExcelApplication.Create(Self);
  try
    // Zum Server TExcelApplication verbinden
    XLApp.Connect;
    try
      // WorkBooks zur ExcelApplication hinzufügen
      XLApp.Workbooks.Open('c:\test.xls', emptyParam, emptyParam,
        emptyParam, emptyParam, emptyParam, emptyParam, emptyParam,
        emptyParam, emptyParam, emptyParam, emptyParam, EmptyParam,
        _lcid);
      // erstes WorkBook auswählen
      WorkBk := XLApp.WorkBooks.Item[1];
      // erstes WorkSheet definieren
      WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;
      // Wer aus Zelle (1,1) anzeigen
      ShowMessage(Worksheet.Cells.Item[1, 1].Value);

      // XLApp.Visible[0] := True;
    finally
      // Server disconnecten
      XLApp.Disconnect;
    end;
  finally
    XLApp.Quit;
  end;
end;

[kiar]

@ toms

wußte ich doch

raik

[Micha]

Schon mal ein großes DANKE.

Aber ich erhalten nun eine Fehlermeldung (habe ich bei meinem Code beim Rumprobieren auch schon mal erhalten):

Zugriffsverletzung in Modul 'RPCRT4.DLL'

Liegt das an dieser Datei? Ist die bei mir vielleicht geschrottet?

Thanks

[toms]

Zitat:

Aber ich erhalten nun eine Fehlermeldung

Seltsam. Starte mal das System neu und probier's nochmals.

[Micha]

Hab den PC auch schon runtergefahren. - Fehlermeldung kommt immer noch.

Muss ich wohl noch n paar Tage warten. Dann kann ichs mal an nem anderen PC versuchen.

Aber wenn's bei dir klappt, dann sag ich schon mal Dankeschööön