OLE mit Excel

[monta]

Wie ist es denn möglich, Excel mittels Lazarus über OLE zu automatisieren?
Gibt es den Weg über OLEVariant, oder etwas vergleichbares, wie in Delphi?

[Christian]

Jab sollte mit dem 2.2.0 gen, Beispiele gibts ja für Delphi genug... probiert hab ichs mit Outlook bisher

[af0815]

Jab sollte mit dem 2.2.0 gen, Beispiele gibts ja für Delphi genug... probiert hab ichs mit Outlook bisher

Klingt vermesssen, aber hast du ein Beispiel für das ? Ich nehme an du verwendest 'late bindings'.

THX

Andi

[Christian]

http://www.dsdt.info/tipps/?id=605

was sind "late bindings" ?

[Christian]

Ach du woolltest das ganze für outlook

http://www.dsdt.info/tipps/?id=608

damit hab ich auch angefangen und dann stückchenweise aufgebohrt

[af0815]

was sind "late bindings" ?

Ganz einfach: 'late binding' sind aufrufe an den Automationserver die ohne TLB gehen. Sprich es wird über das IDispatch Interface zugegriffen.

Beim 'early binding' wird über IUnknown und die VMT gegegangen. Vorteil ist, das ein Compiler bereits zur Komplilerzeit weiss, was für Objekte und Interfaces vorhanden sind.
Nur wie komme ich da bei Lazarus (und FP) von der TLB zur Interfaceunit. ?

Vielleicht um meine Frage mehr zu präzisieren:
'Klingt vermesssen, aber hast du ein Beispiel in Code der mit dem Lazarus geht für das ? '

[Christian]

Siehe Links oben.

Ein Tool um ne Unit aus ner TLB zu erzeugen hab ich beim fpc auch noch nicht gesehn. Ich hab das dann mit Delphi gemacht (notgedrungenerweise). Aber die Outlook Geschichte geht ohne TLB.

[af0815]

Siehe Links oben.

Dort steht 'Portal' und 'Forum'.

[Christian]

ha ha in meinen Beiträgen sind so unterstrichene Schriften wo sich der Mauszeiger ändert wenn du da mit der Maus drüber gehst klick da mal drauf da findest du deine Beispiele

[monta]

Ich muss das nochmal aufgreifen...

Ein Tool um ne Unit aus ner TLB zu erzeugen hab ich beim fpc auch noch nicht gesehn. Ich hab das dann mit Delphi gemacht (notgedrungenerweise). Aber die Outlook Geschichte geht ohne TLB.

Was hast du mit Delphi gemacht. Hast du die Unit aus der TLB erstellt und die ohne Probleme in Laz verwendet oder hast du komplett in Delphi programmiert?
Bei ersterem würde mich interessieren, ob ich da was spezielles brauch, oder ob jedes Delphi da ausreicht.
Dann würde ich mal den weg über die tlb probieren, da ich mit late bindings irgendwie nicht weiter komme.

[Christian]

1.

Hab mein Delphi 6 genommen und die Unit zur TLB generiert.
Im Falle Excel und Outlook und co, brauchst das aber ja noch nicht mal da kannst ja über OLEVariant gehn.

[af0815]

Bei ersterem würde mich interessieren, ob ich da was spezielles brauch, oder ob jedes Delphi da ausreicht.
Dann würde ich mal den weg über die tlb probieren, da ich mit late bindings irgendwie nicht weiter komme.

Ab D4 geht es, mit D5 und besser ist die TLB-umsetzter stabiler geworden.

Wo bist du mit den late bindings stecken geblieben ?

[monta]

Also Ziel war es, verschiedenen in Excel zu öffnende Dateien in CSV zu konvertieren. Es wiederstrebt mir zwar, aber Excel und Windows kann vorausgesetzt werden, daher die Lösung, die Datei in Excel zu öffnen und dann entsprechend wieder als CSV zu speichern.

Ich bekomm momentan über die late bindings zwar eine Instanz von Excel die auch im Taskmanager erscheint, aber die Datei wird nicht geöffnet. Und Excel wird auch nicht angezeigt.

Code: Alles auswählen

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
  windows, Buttons, OleServer, ole2, variants, ActiveX, comobj;
 
procedure TForm1.BitBtn1Click (Sender: TObject );
var Excel: variant;
begin
  Excel := CreateOleObject('Excel.Application');
  ShowMessage('Create');
  Excel.visible := true;
  Excel.Documents.Open('Mappe1.xls');
//  WB := Excel.WorkBooks.Open('Mappe1.xls');
//spätestens hier ist Schluss

Bei Excel.visible := true erscheint beim ausführen die Meldung 'Mitglied nicht gefunden', aber gut, das muss ja nicht unbedingt sein (soll eh mehr Stapelkonvertierung werden).

Aber das öffnen geht auch nicht:

Bei Excel.Documents.Open('Mappe1.xls'); erscheint: 'Method 'Documents' is not supported'

Und bei den Varianten mit Excel.WorkBooks.Open('Mappe1.xls'); erscheint ebenfalls 'Mitglied nicht gefunden'

[Christian]

Kann ich dir leider auch nicht weiter helfen, wie gesagt habs nur mit Outlook probier und da ging alles. Probier doch mal den weg über die TLB. Dann sollte er die Eigenschaften auf jeden Fall finden.

[moritz]

Hallo, Monta, bist Du mit OLE unter Windows weitergekommen. Ich habs bis jetzt nicht geschafft, Excel zu starten, geschweige denn OpenOffice. Mit VBA und OpenOffice kenn ich mich ganz gut aus und wollte das gleiche mit Lazarus versuchen, hab aber leider keinen Erfolg damit.
Und unter Linux ist der Zugriff auf OO anscheinend möglich, aber ohne funtionierendes Beispiel für mich jenseits von gut und böse,
Viele Grüße
Moritz