Announcement

Collapse
No announcement yet.

Excel + Fernsteuern

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Excel + Fernsteuern

    Hallo alle zusammen,

    ich möchte Daten aus einer Datenbank über Delphi in Excel übergeben und dann Ausdrucken. Allerdings weis ich nicht einmal wie man Excel starten kann.
    Hat mir jemand vielleicht ein kleines Codbeispiel?

    Dank euch
    Nausi

  • #2
    unit ComObj in die uses-Klausel einbinden; Variable mse vom Typ variant deklarieren...

    try<br>
    mse := GetActiveOleObject('excel.application');<br>
    except<br>
    try<br>
    mse := CreateOleObject('excel.application');<br>
    except<br>
    ShowMessage('Fehler');<br>
    Exit;<br>
    end;<br>
    end;<br>
    mse.visible := true;<br&gt

    Comment


    • #3
      Danke! Habe es wie oben beschrieben gemacht dann so weiter:

      <PRE>
      h := ExtractFilePath(ParamStr (0));
      if h[length(h)] <> '\'
      then h := h + '\';
      FileName := h + 'Beurteilung Seminare.xls';
      mseDok := mse.Documents.Open(FileName, emptyParam, EmptyParam, EmptyParam, EmptyParam, emptyParam, emptyParam, emptyParam, emptyParam, emptyParam);
      </PRE>
      Nun bekomme ich aber folgenden Fehler:
      Auswertungen.pas(484): Inkompatible Typen: 'Variant' und '_Document'

      Gibt es eine andere Möglichkeit ein Dokument zu öffnen, oder kann ich die Typen umwandeln?

      Eure
      Naus

      Comment


      • #4
        OLEVariant(mse.Documents.Opne(...)); oder<br>
        Variant(mse.Documents.Opne(...)); oder<br>
        <i>nicht getestet</i&gt
        Schöne Grüße, Mario

        Comment

        Working...
        X