String-Werte in eine vorhandene Exceltabelle einfügen

[davidhoffelner]

Hi!!!

Ich habe leider keinen Plan wie ich String-Werte in ein schon vorhandenes Excelblatt einfüge und danach will ich dieses Excelblatt auch ausdrucken.

Kann mir jemand sagen wie ich das am einfachsten mache und welche Komponenten ich dafür alles brauche!!


Gruß David

[chsgmbh]

Hi David,

welche Version Delphi ?

Es gibt nämlich mehrere Möglichkeiten, von "ganz einfach" über zusätzliche Komponenten http://www.turbopower.com/products/officepartner/
bis "mittelschwer" über die Delphi Office Komponente "TExcelApplication", bis zur codierung eines OLE-Servers "per Hand".

Werte schreiben per OLE-Server z.B.: Excel.Cells[zeile, spalte].Value := '???'.

Eigentlich geht es, Du mußt Dir halt nur den OLE-Server erzeugen
z.B.: Excel := CreateOleObject ('Excel.Application')
und auch wieder freigeben.

Wenn Du es "per Hand" machen willst, kann ich Dir gerne ein kleines Beispielprogramm erstellen und zumailen, allerdings nicht mehr heute.

Gruß

Sven

[Daniel]

Zitat:

Zitat von chsgmbh

... kann ich Dir gerne ein kleines Beispielprogramm erstellen und zumailen...

Wenn Du magst, kannst Du es auch gerne allen zu Verfügung stellen... :wink:

[chsgmbh]

Is ja schon gut Daniel, mußt nicht immer mit mir schimpfen :oops:

Übrigens, wie hieß der maschinist nochmal im Film "Das Boot".

Ach ja, Johann, das Gespenst :lol:

G&K

Sven

[Hansa]

Hi Leute,

lese hier gerade was von Turbopower. Früher hatte ich ein paar Sachen von denen, die waren echt gut. Weiß jemand, was die heute so machen?

Gruß
Hansa

[Daniel B]

Zitat:

Zitat von chsgmbh haute mal wieder ganz Wild in die Tasten und

Is ja schon gut Daniel, mußt nicht immer mit mir schimpfen

Hi,

niemand hat mit Dir geschimpft. Das was Du gemacht hast, war nciht nett. Sowas kann man per PN oder EMail ausdiskutieren. Oder halt eben allen zur Verf. stellen.
Es ist einfach unhöfflich öffentlich zu sagen, das Du was für jemanden alleine machst.

Grüsse, Daniel :hi:

[Daniel]

Also Leute.... ich würde doch nie jemanden ausschimpfen! Ich bin nur von Natur aus gierig und nehme (auch im Interesse der andere Benutzer) alles, was ich kriegen kann :mrgreen:.
Deswegen eben meine Frage an "chrisgmbh", ob er uns seine Lösung nicht öffentlich vorestellen mag - so hätten wir alle etwas davon. Wohlgmerkt: Das war eine Frage! Diese kann ggf. auch mit einem knappen 'nein' beantwortet werden. :roll:

[chsgmbh]

Hey Leute, sorry, meine Antwort an Dani war als Spaß gemeint. Hab mich missverständlich ausgedrückt.

Mit dem Schimpfen war darauf bezogen, dass ich mal wieder nicht !! schlau genug war, es öffentlich zu stellen.

Der angeboten Code enthält keine Geheimnisse, ich habe nur nicht soweit gedacht, dass es evtl. auch für andere interessant sein könnte.

Kommt nie wieder vor - großes Indianer-Ehrenwort.

Bin doch auch nur Junior-Member, heißt: Ich lerne noch :wink:

Grüße und Code ( öffentlich ) folgt.

Sven

[chsgmbh]

Hi Hansa,

die gibt es noch und sie sind genauso gut wie früher.

Ich arbeite mit drei ihrer Komp-Suits und bin sehr zufrieden.

Folge einfach oben den Link ( wenn Du es nicht schon getan hast ),
da sind alle Delphi-Sachen von denen.

Gruß

Sven

[Hansa]

Hi chsgmbh,

was hast du denn früher bzw. heute gut gebrauchen können ? Mit Delphi 1,2,3 konnten die anscheinend nicht viel anfangen oder die ENtwicklung war zu langwierig. :witch: Deshalb habe ich das auch aus den Augen verloren. In irgendeinem Forum habe ich bisher nichts gesehen. Oder liegts am Preis ? :mrgreen:

Gruß
Hansa

[chsgmbh]

Hallo Hansa,

hast recht, ich meinte noch aus Turbo/Borland-Pascal Zeiten.

Bin bei denen allerdings erst wieder mit D3 und Systools eingestiegen.

Arbeite momentan mit Systools, OfficePartner und Internet Professional.

Gut, kostet natürlich. Aber Preis-Leistungsverhältnis paßt. Für die gebotene Funktionalität und Bequemlichkeit verglichen mit den "paar" Dollars, das kannst Du nicht selbst machen (vom Zeitaufwand).

Wenn man allerdings zum Lernen oder als Hobby proggt, dann sind sie zu teuer, keine Frage.

Fazit:
Ich persönlich kann die Suits von TuroPower empfehlen.

s.l.

Sven

[Daniel]

Ich glaube, Ihr werdet gerade ein wenig "Off-Topic"....

[davidhoffelner]

Also irgendwie habe ich immer noch kein Plan wie es funktionieren soll!! :angle:

Leider müsste ich euch nochmal bemühen mir eine Antwort zu schreiben, die selbst ich verstehe :D

Danke
David

[chsgmbh]

@David, bzw. alle die warten.

Sorry, hatte Prog-PC-Totalausfall, Excel-Beispiel folgt, ist nicht vergessen.

Gruß

Sven

[chsgmbh]

Hi there,

anbei das versprochene Excel-Beispiel als Selbstentpacker.

Aber bitte, habe ich jetzt eben in fünf Minuten zusammengekloppt,
keine Fehlerüberprüfung oder ähnliches, funktioniert nur, sonst
nichts.

Excel müßt Ihr natürlich installiert haben :lol:

s.l.

Sven

[davidhoffelner]

Hallo Leute!!

Sven das Programm ist super gut, nur wie bekomme ich in eine Bestimmte Zeile und Spalte String-Werte??:)

Aber sonst hat es mir sehr weitergeholfen!!

Ach wie kann ich eine BESTIMMTE Exceltabelle öffnen keine Neue??

Grüße David

[chsgmbh]

Hi David,

bitte sei mir nicht böse, wenn ich die beiden Fragen ! nicht !
richtig verstanden habe.

Meine Antwort wäre :oops:

1.
z.B.: Excel.Workbooks.Open ( 'x:\TabName.xls' );
anstatt
Excel.Workbooks.Add;

2.
z.B.: Excel.Cells [ 10, 10 ].Value := 'David kann es !';

würde in Zelle J / 10 den Text "David kann es !" einfügen.


Ich hoffe das war gemeint - ansonsten melden, kriegen wir hin :wink:

sl

Sven