Results 1 to 4 of 4

Thread: Delphi -> Excel importeren en printen

  1. #1

    Question Delphi -> Excel importeren en printen

    Dag collega's,

    Na wat speurwerk heb ik het volgende gerealiseerd:

    procedure TfrmServiceVisit.tlbtnPrintWerkbriefjeClick(Sender : TObject);
    begin
    CoInitialize(nil);
    V := CreateOLEObject('Excel.Application');
    // V.Visible := True;
    V.Workbooks.Open('c:\Mijn documenten\Map1.xls');
    // Export data naar excel
    // Print sheet
    // sluit applicatie excel
    end;

    Deze procedure opent een bestaand excel bestand.

    Het is mij nog niet gelukt om vanuit Delphi gegevens: bv klantnummer en klantnaam
    naar dit bestaand excel bestand te importeren en hierna vanuit Delphi te laten uitprinten.

    Kan iemand van jullie mij helpen met wat voorbeeld source om deze procedure
    compleet te maken?

    Alvast bedankt.

    Maiko

  2. #2
    Member
    Join Date
    May 2002
    Location
    Groningen
    Posts
    93
    Misschien dat je iets aan deze site hebt :

    http://www.djpate.freeserve.co.uk/Automation.htm


    Rat

  3. #3
    Maiko, zoals ik in je vorige post al zei, kan een beetje zoekwerk op dit forum wonderen doen. Tik gewoon EXCEL in en je krijgt talloze vragen en oplossingen te zien.

    Hieronder een uitgewerkt voorbeeldje om excel te starten, een bestand te openen en in de eerste 10 cellen 'test' weg te schrijven en natuurlijk te printen.

    Ik heb het niet getest maar het zou wel moeten werken.

    Code:
    procedure TForm1.Button2Click(Sender: TObject);
    //Objecten naar Excel exporteren
    var
      vExcelApp : TExcelApplication;
      vWorkSheet : TExcelWorksheet;
      vWorkBook : _WorkBook;
      vSaveChanges: OLEVariant;
      vFileName : string;
      ii, LCID : integer;
    begin
      vExcelApp:= TExcelApplication.Create(nil);
      vExcelApp.ConnectKind:= ckNewInstance;
      try
        vExcelApp.Disconnect;
        vExcelApp.Connect;
        vExcelApp.Visible[0]:= True; // Maak excel zichtbaar of niet
        vFileName:= 'filenaam.xls'; //geef hier het te openen excelbestand in
        vWorkBook :=vExcelApp.Workbooks.Open(vfileName, EmptyParam,
        EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
        EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, LCID);
        vWorkSheet:= TExcelWorksheet.Create(nil);
        vWorksheet.ConnectTo(vWorkBook.ActiveSheet as _Worksheet);
        for ii:= 1 to 10 do
        begin
          vWorkSheet.Cells.Item[1, ii]:= 'test';
        end;
        vWorkSheet.PrintOut; // laat deze regel weg als je de sheet niet wilt uitprinten
        vSaveChanges := True;
        vExcelApp.DisplayAlerts[LCID] := False;
        vWorkBook.Close(vSaveChanges, vFileName, EmptyParam, LCID);
        vWorkSheet.Disconnect;
        FreeAndNil(vWorkSheet);
        vExcelApp.Quit;
        vExcelApp.Disconnect;
        FreeAndNil(vExcelApp);
        MessageDlg('Export naar Excel beeindigd!', mtInformation, [mbOK], 0);
      except
        MessageDlg('Fout bij connectie met excel!', mtInformation, [mbOK], 0);
      end;
    end;

  4. #4
    Registered User
    Join Date
    Oct 2001
    Location
    Den Haag
    Posts
    7
    Hallo Maiko,

    Op de site van SDGN kwam ik deze tip tegen: http://www.sdgn.nl/sdgn.asp?A1PID=36...D=271411720014
    Ik heb het zelf niet uitgeprobeerd, maar misschien dat het je verder op weg helpt.

    Groeten,
    Erwin

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Excel celtypes definieren vanuit delphi
    By Jelmer in forum Algemeen
    Replies: 4
    Last Post: 04-Jan-05, 01:33
  2. Delphi --> COM --> VB problemen
    By sdk in forum Algemeen
    Replies: 1
    Last Post: 29-Jan-03, 18:39
  3. Data importeren naar Excel
    By Maiko in forum Algemeen
    Replies: 2
    Last Post: 30-Jul-02, 12:08
  4. Excel -> Delphi 6
    By maespeter in forum Algemeen
    Replies: 2
    Last Post: 11-Sep-01, 12:58

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •