procedure TForm.ExceleGnder1Click(Sender: TObject);
var
IIndex: OleVariant;
NomFich : WideString;
begin
NomFich := 'C:\deneme.xls';
IIndex := 1;
ExcelApplication1.Connect;
ExcelApplication1.WorkBooks.Open(NomFich,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
// excele yazdırma işlemi burda
ExcelApplication1.Visible [0] := True;
ExcelApplication1.Disconnect;
end;
Kod: Tümünü seç
uses comobj;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
EXCEL, WORKBOOK, SHEET:VARIANT;
begin
EXCEL := CREATEOLEOBJECT('EXCEL.APPLICATION');{EXCEL 'İ AÇMA}
EXCEL.VISIBLE :=TRUE;{EXCEL 'İ AKTİF YAPMA}
WORKBOOK :=EXCEL.WORKBOOKS.ADD;{KİTAP EKLEME}
SHEET:=WORKBOOK.WORKSHEETS[1];{SAYFA NUMARASI}
SHEET.CELLS[1,1]:= 'DENEME METİN'; {SATIR,SÜTUN} //Buradan Satır ve Sütunlara erişebilirsin.
SHEET.CELLS[1,1].Font.Color := $00E88017;
SHEET.CELLS[1,1].Font.Bold := True;
SHEET.CELLS[1,1].Font.italic := True;
SHEET.CELLS[1,1].Font.Underline := true;
SHEET.CELLS[1,1].Font.Size := 20;
SHEET.CELLS[1,1].Characters(3, 1).Font.Bold := True; {HÜCRE İÇİNDE BİR ARALIKDAKİ METNE HİTAP ETME}
SHEET.RANGE['A1:A10'].Borders.Color := $00E88017; {aralıktaki bütün hücrelerin dört kenarını renklendirir}
SHEET.CELLS[1,10].Borders.LineStyle := xlContinuous; {BİR HÜCREYE HİTAP ETME}
SHEET.RANGE['A1:A10'].Borders.LineStyle := xlContinuous;{BELİRLİ BİR ARALIĞA HİTAP ETME}
{XlLineStyle -> xlContinuous, xlDash, xlDashDot, xlDashDotDot, xlDot, xlDouble, xlSlantDashDot, or xlLineStyleNone.}
{BİR HÜCRENİN HERHANGİ BİR KENARLIĞININ RENGİNİ BELİRLEME}
{Tipler: xlInsideHorizontal, xlInsideVertical, xlDiagonalDown, xlDiagonalUp, xlEdgeBottom, xlEdgeLeft, xlEdgeRight, or xlEdgeTop.}
SHEET.RANGE['B1:F2'].Borders(xlEdgeTop).Color := 00E88017;
{istenilen yern sütun rengini belirleme}
SHEET.RANGE['B1:F2'].Interior.Color := 00E88017;
SHEET.RANGE['B1:F2'].Interior.ColorIndex := 1; {ColorIndex index kulalnınca her rengin bir kodu var kökde bunları yazmım}
SHEET.Range['A1:H8'].Formula := '=rand()';
SHEET.Range('A1').ClearContents; {İSTENİLEN HÜCRELERİ TEMİZLEME}
{SATIR SÜTUN LARA HİTAP ETME}
SHEET.Range['A1'].Columns.ColumnWidth := 20;{sadece belirtilen hücreyi}
SHEET.Range['A1'].Rows.RowHeight := 20;
SHEET.Columns.ColumnWidth := 25; {tüm sayfada etkili}
SHEET.Rows.RowHeight := 25;
SHEET.Columns(1).Font.Bold := True;
SHEET.Rows(1).Font.Bold := True;
SHEET.Columns(1).Delete;
SHEET.Rows(3).Delete;
end;
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
excelPrg,sayfa:variant;
i,d:integer;
r:variant;
begin
excelPrg:=createoleobject('excel.application');//exceli yarat
excelPrg.workbooks.add;
sayfa:=excelPrg.workbooks[1].worksheets[1];{Birinci calisma sayfasini sayfa degiskenine ata}
r:=excelPrg.activeworkbook.worksheets[1].cells[1]; // Burası Çok önemli
i:=0;
d:=0;
while Not Table1.eof do
begin
i:=i+1;
d:=d+1;
r.cells[1+d,i]:=Table1.FieldByName('NAME').AsString;
r.cells[1+d,i+1]:=Table1.FieldByName('SIZE').AsString;
Table1.Next;
i:=0;
end;
excelPrg.visible:=true;//Exceli acip verileri
end;
Kod: Tümünü seç
uses
... ,ComObj;
var
v,sayfa : variant;{v excel prg, sayfa calisma sayfasi}
ii, adet, sayi, satir : integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
v:=createoleobject('excel.application'); //exceli yarat
v.workbooks.open('c:\iptal_iade_tablosu.xls'); //yeni calisma kitabini ekle
sayfa:=v.workbooks[1].worksheets[1]; // 2. worksheets için de aynı
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * from table_name');
Query1.Open;
Query1.First;
for i := 1 to query1.RecordCount do
begin
sayfa.cells[(i+8),3] := query1.Fields[1].AsInteger;
sayfa.cells[(i+8),4] := query1.Fields[2].Asfloat;
// sayfa.cells[(i+8),4] := table1.fieldsbyname(toplam).asfloat; şeklindede olabilir.
query1.Next;
end; // for i := 1 to query1.RecordCount do
v.quit;
end;
Teşekkürler arkadaşlar, Hatice hanımın kodunu denediğimde de aynı şeyi yapıyor, yani sorunu hala çözemedim, bende aktarma işlemi bittiğinde programı kapatıyorum,sonra yeniden çalıştırıyorum böyle geçmek zorunda kaldım.. sorunu çözebilirsem sizlere iletirim...