Re: Excel auslesen
Wollte bloß kurz bescheid sagen, dass es an einem anderen Rechner super klappt.
Dankeschööön. |
Re: Excel auslesen
Hallo,
Ich hoffe es antwortet mir noch wer auf diesen alten Post. Und zwar verwende ich auch den Code, den toms geschrieben hat und der funktioniert auch. Mein Problem ist es aber, dass ich nicht die Nummer der Tabelle eingeben will sondern den Tabellennamen selber. (Die Tabelle, von der ich auslese liegt bei verschiedenen exel files auf einer anderen Nummer)
Delphi-Quellcode:
Danke schonmal
// erstes WorkSheet definieren
WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet; |
Re: Excel auslesen
habs selber herausgefunden, wen es interessiert:
Delphi-Quellcode:
Gruß
WorkSheet := Workbk.sheets['Tabelle2'] as _WorkSheet;
|
Re: Excel auslesen
Hallo rich123,
ich bin mir da nicht ganz sicher, aber ich denke das sollte funktionieren. Soweit ich weiß kannst Du bei VBA über Namen oder Nummern zugreifen. Nur sieht das in der Hilfe ein wenig anders aus: Zitat:
Da war ich etwas langsam, dann noch eine Empfehlung hinterher: nach Möglichkeit immer ein "activ..." definieren, da is die Chance sich zu verdaddeln nicht so groß, weil alle Zugriffe auf "activ...." erfolgen. Gruß K-H |
Re: Excel auslesen
Hallo zusammen,
Nochmals will ich was zu dem Code erfragen.
Delphi-Quellcode:
Wäre es auch möglich statt der Zelle 1,1 einfach 1,B oder so anzugeben? (Also die Spaltenbezeichnung wie bei Excel)
ShowMessage(Worksheet.Cells.Item[1, 1].Value);
Gibt es die Funtkion schon vorgefertigt oder müsste man sich die selber ausprogrammieren? Danke für die Hilfe Gruß |
Re: Excel auslesen
Zitat:
z.B
Delphi-Quellcode:
Worksheet.Range['B53','B53'].Value
|
Re: Excel auslesen
Hallo,
ich würde nur statt ‚Value’ ‚Value2’ vorziehen, um Probleme mit deutschen Datumsformaten zu vermeiden. Bis bald Chemiker |
Re: Excel auslesen
Hier mal eine Skizze wie das geht...
Delphi-Quellcode:
Application:TExcelApplication;
var ActiveSheet:_WorkSheet; ActiveSheet:=Application.ActiveSheet as _WorkSheet; var Sheet:variant; var Zelle, Value:string; Sheet:=ActiveSheet; Zelle:='A1'; Value:='Hello World'; Sheet.Range[Zelle].Value:=Value; |
Re: Excel auslesen
Hallo omata,
das dürfte aber nicht funktionieren, weil Range in Delphi im Gegensatz zu Excel 2 Parameter erwartet. So müsste es gehen.
Delphi-Quellcode:
Oder direkt
Sheet.Range[Zelle, EmptyParam].Value:=Value;
Delphi-Quellcode:
Bis bald Chemiker
Sheet.Range['A1',EmptyParam].Value:=Value;
|
Re: Excel auslesen
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:34 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