Excel auslesen
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. |
Re: Excel auslesen
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 :P der kann dir da bestimmt helfen |
Re: Excel auslesen
Zitat:
No, funktioniert nicht. Hab ich schon alles durchprobiert. |
Re: Excel auslesen
versuche mal für a:
Delphi-Quellcode:
einzusetzen.
ShowMessage(ws.Cells.Item[1,wb.activecell.column].value);
raik |
Re: Excel auslesen
Nein, auch nicht.
|
Re: Excel auslesen
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; |
Re: Excel auslesen
@ toms
wußte ich doch :thuimb: raik |
Re: Excel auslesen
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 |
Re: Excel auslesen
Zitat:
|
Re: Excel auslesen
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 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:45 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz