Kod: Tümünü seç
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses ComObj;
{$R *.dfm}
var
OLENesnesiExcel:Variant;
WorkBook:Variant;
procedure TForm1.FormCreate(Sender: TObject);
begin
OLENesnesiExcel:=CreateOleObject('Excel.Application');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
WorkBook:=OLENesnesiExcel.WorkBooks.Add;
OLENesnesiExcel.visible:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Book:Variant;
DosyaAdi:String;
begin
DosyaAdi:=OLENesnesiExcel.GetOpenFileName;
if FileExists(DosyaAdi) then
begin
Book:=OLENesnesiExcel.WorkBooks.Open(DosyaAdi);
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
WorkBook:=OLENesnesiExcel.WorkBooks.Add;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
SaveDialog:TSaveDialog;
DosyaAdi:String;
begin
SaveDialog:=TSaveDialog.Create(nil);
SaveDialog.Title:='Dosyayı kaydedeceğiniz yeri ve dosya adını belirleyin';
Savedialog.Filter:='Excel Dosyaları|*.xls';
SaveDialog.DefaultExt:='xls';
if Savedialog.Execute then
DosyaAdi:=Savedialog.FileName;
try
WorkBook.SaveAs(Dosyaadi);
except
raise exception.Create('kayıt sırasında hata oluştu!');
end;
end;
end.