Memanggil Aplikasi Excel dengan Delphi


anyak komponen delphi yang menawarkan fasilitas untuk export data ke excel, komponen ini banyak dijual di internet dengan harga yang lumayan menguras kocek. sebenarnya kita bisa memanggil program excel dengan mudah menggunakan bantuan unit ComOBJ , Konsep kerjanya kita memanggil Object Ole Excel. untuk lebih memahami alangkah baiknya kalo sekarang kita mulai membuat contohnya.

  • Buka aplikasi delphi
  • Buat New Application
  • tambahkan satu button
  • tekan F12 untuk menuju ke form listing
  • tambahkan pada bagian Uses sebuah unit ComOBJ , sehingga tampak seperti berikut

 

unit Unit1;
interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,ComOBJ, StdCtrls;

kemudian pada button double klik dan ketik listing berikut ini untuk memanggil aplikasi excel sekaligus bagaimana mengakses cell cell yang ada di excel

procedure TForm1.Button1Click(Sender: TObject);
var
xlapp,xlbook,xlsheet:variant;

begin
XlApp  := CreateOleObject(‘Excel.Application’);
XlBook := XlApp.WorkBooks.Add;
XlApp.visible:=true;
XlSheet  := XlBook.worksheets.add;
XlSheet.Cells[1,2].value:= ‘ tulis data ke excel’;
end;

 

  • kemudian tekan F9 untuk mencompile program
  • Klik button1 maka excel akan terbuka

Catatan :

  1. untuk menulis pada cell mengunakan XlSheet.cell[baris,kolom].value:=nilai;
  2.  nilai bisa berupa string atau integer

Listing lengkapnya di bawah ini :

 

unit Unit1;  
interface    
uses     
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs,comobj, StdCtrls;   
type   TForm1 = class(TForm)           
          Button1: TButton;           
          procedure Button1Click(Sender: TObject);  
          private          
         { Private declarations }  
          public         
         { Public declarations }          
       end;    
var    
Form1: TForm1;   

 implementation   
{$R *.dfm}  
procedure TForm1.Button1Click(Sender: TObject);
  var  xlapp,xlbook,xlsheet:variant; 
begin
XlApp := CreateOleObject(‘Excel.Application’);
XlBook := XlApp.WorkBooks.Add;
XlApp.visible:=true;
XlSheet := XlBook.worksheets.add;
XlSheet.Cells[1,2].value:= ‘ tulis data ke excel’;
end;

Leave a Reply

Please log in using one of these methods to post your comment:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: