Mega Code Archive

[] Delphi - excel

//Kenan Çakmak esquire01@hotmail.com Uses satırına eklenecek -------------------------------------------------------------------------------- ComObj Değişkenlerimi tanımlayalım -------------------------------------------------------------------------------- var XLApp : OleVariant; ColonAraligi : OleVariant; const alignCenter = -4108; valignCenter = -4108; alignRight =- 4152; Excel Kontrolu -------------------------------------------------------------------------------- try XLApp := GetActiveOleObject('Excel.Application'); except try XLApp := CreateOleObject('Excel.Application'); except ShowMessage('Excel kurulu değil'); Exit; end; end; Var olan br excel'i açma -------------------------------------------------------------------------------- XLApp.Workbooks.Open('c:\g.xls'); Yeni çalışma sayfası ekler. -------------------------------------------------------------------------------- XLApp.WorkBooks.Add; Yeniden adlandır -------------------------------------------------------------------------------- XLApp.ActiveSheet.Name := 'Deneme'; //Aktif Sayfanın ismini değiştirir XLApp.Workbooks[1].WorkSheets[1].Name := 'Sayfa'; //Belirttiğiniz sayfanın ismini değişirir. Excel görünsün, görünmesin -------------------------------------------------------------------------------- XLApp.Visible := True; //Gösterir XLApp.Visible := False; //Gizler Hücre Seçme -------------------------------------------------------------------------------- XLApp.Range('A1:J25').Select; Hücreleri Birleştirme -------------------------------------------------------------------------------- XLApp.Range['A1:C1'].Mergecells := True; //A1 den C1 e kadar olan hücreleri birleştirir Hücre Hizalama -------------------------------------------------------------------------------- XLApp.Cells[1, 1].HorizontalAlignment := AlignCenter; //Yatay Hizalama XLApp.Cells[1, 1].VerticalAlignment := valignCenter; //Dikey Hizalama Satır Yüksekliği -------------------------------------------------------------------------------- XLApp.Rows[1].RowHeight := 30; Border -------------------------------------------------------------------------------- XLApp.Range[A1,C1].Borders.Weight := 1; Border Rengi -------------------------------------------------------------------------------- XLApp.Cells[1, 1]..Borders[1].Colorindex := -4142; Font Ayarları -------------------------------------------------------------------------------- XLApp.Range['A1:A1'].Font.Bold := True; //Bold yapar XLApp.Range['A1:A1'].Font.Size := 12; //Size 12 yapar Gridleri gizler -------------------------------------------------------------------------------- XLApp.ActiveWindow.DisplayGridlines := False; Değer atama -------------------------------------------------------------------------------- XLApp.Cells[1, 1].Value := 'Esquire01den Selamlar'; //yukarida A,C hücrelerini birleştirdiğimiz için bundan sonra aynı satırda bir sonraki hücreye bir değer atamak istersek XLApp.Cells[1, 4].Value := 'deneme'; dememiz gerekli Kolon Aralığı -------------------------------------------------------------------------------- ColonAraligi := XLApp.Workbooks[1].WorkSheets[1].Columns; ColonAraligi.Columns[4].ColumnWidth := 25; //burada ColonAraligi : OleVariant; değişkenimizden yararlandık, 4. kolonun genişliğini 25 yaptık. //Kolon Otomatik Genişlesin XLApp.selection.Columns.AutoFit; Rakamları Formatlama -------------------------------------------------------------------------------- XLApp.WorkBooks[1].WorkSheets[1].Columns[2].NumberFormat := '#.##0'; //2 kolona girilecek sayıları formatladık 1.250.000 şeklinde XLApp.WorkBooks[1].WorkSheets[1].Columns[2].NumberFormat := "; //Formatlı bir hücreyi formatsız yapar. Tarih Formatlama -------------------------------------------------------------------------------- XLApp.Cells[1,1].Value := FormatDateTime('dd-mmm-yyyy', Now); Formuller -------------------------------------------------------------------------------- XLApp.Range['A5', 'A5'].Formula := '=Sum(A1:A4)'; //A1 hücresinden A4 hücresine kadar Toplar Değerlerini A5 hücresine yazar. Kaydet -------------------------------------------------------------------------------- XLApp.SaveAs('c:\G.xls'); //Çalışma sayfasını kaydeder XLApp.ActiveWorkBook.SaveAs('c:\G.xls'); //Aktif sayfayı kaydeder. Yazıcı Ayarları -------------------------------------------------------------------------------- //Kenarlıklar XLApp.ActiveSheet.PageSetup.LeftMargin := 0; XLApp.ActiveSheet.PageSetup.RightMargin := 0; XLApp.ActiveSheet.PageSetup.TopMargin := 0; XLApp.ActiveSheet.PageSetup.BottomMargin := 0; //Hizalama XLApp.ActiveSheet.PageSetup.CenterHorizontally := 1; //Yatay Olarak Ortaya alır XLApp.ActiveSheet.PageSetup.CenterVertically := 1; //Dikey Olarak Ortaya Alır //Sayfa Ayarları XLApp.ActiveSheet.PageSetup.Orientation := 2; //2 yatay 1 dikey olarak ayarlar. Alt Bilgi -------------------------------------------------------------------------------- XLApp.ActiveSheet.PageSetup.LeftFooter := 'Rapor Tarihi : ' + '&D'; //O günü tarihini sayfanın alt bilgi kısmına basalım Kaçıncı Sayfa -------------------------------------------------------------------------------- XLApp.ActiveSheet.PageSetup.RightFooter := 'Sayfa : ' + '&P'+'/'+'&N'; //Yazıcıdan aldığımız sayfaların kaç sayfada hangi sayfa bilgisini gösterir Alt Bilgi için diğer parametreler -------------------------------------------------------------------------------- &L &C &R &E &X &Y &B &I &U &S &D &T &F &A &P &P+number &P-number && & "Font Adı" &nn &N //bunarın karşılıklarınıda artık zahmet edip tektek deneyerek anlamlarını bulunuz. :)) (Yaşasın Kötülük) Tekrar Eden Saatırlar -------------------------------------------------------------------------------- XLApp.ActiveSheet.PageSetup.PrintTitleRows := '$2:$2'; //Yazılan Sayfada başlık olarak tekrar etmesini sağlarız. İstediğiniz hücreleri $2:$2 dediğimizde ikinci satırı olduğu gibi her print edilen sayfanın başında gösterir Yazıcı Renkli, Renksiz -------------------------------------------------------------------------------- XLApp.ActiveSheet.PageSetup.BlackAndWhite := False; Yazıcı Görüntüsü -------------------------------------------------------------------------------- XLApp.ActiveSheet.PrintPreview; Kopya Sayısı -------------------------------------------------------------------------------- XLApp.ActiveWindow.SelectedSheets.PrintOut (Copies := 1); //Kaç Kopyası Olsun //Sığdır XLApp.ActiveSheet.PageSetup.Zoom := 65; //Çalışma Sayfanızı 1 Sayfaya Sığdırır. Kapat -------------------------------------------------------------------------------- if not VarIsEmpty(XLApp) then begin XLApp.DisplayAlerts := False; XLApp.Quit; XLApp:=unassigned; //Formunuzun OnDestroy olayına bu satırları yazınki form kapandığında Excel havada asılı kalmasın.