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 ; except try XLApp := CreateOleObject ; except ShowMessage ; Exit; end; end; Var olan br excel'i açma XLApp. Workbooks. Open ; Yeni çalışma sayfası ekler. XLApp. WorkBooks. Add; Yeniden adlandır XLApp. ActiveSheet. Name := 'geri zekali'; //Aktif Sayfanın ismini değiştirir XLApp. Workbooks . WorkSheets . Name := 'GeriZekali'; //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 . Mergecells := True; //A1 den C1 e kadar olan hücreleri birleştirir Hücre Hizalama XLApp. Cells . HorizontalAlignment := AlignCenter; //Yatay Hizalama XLApp. Cells . VerticalAlignment := valignCenter; //Dikey Hizalama Satır Yüksekliği XLApp. Rows . RowHeight := 30; Border XLApp. Range . Borders. Weight := 1; Border Rengi XLApp. Cells .. Borders . Colorindex := -4142; Font Ayarları XLApp. Range . Font. Bold := True; //Bold yapar XLApp. Range . Font. Size := 12; //Size 12 yapar Gridleri gizler XLApp. ActiveWindow. DisplayGridlines := False; Değer atama XLApp. Cells . Value := 'Ben bir Geri Zekalıyım'; //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 . Value := 'deneme'; dememiz gerekli Kolon Aralığı ColonAraligi := XLApp. Workbooks . WorkSheets . Columns; ColonAraligi. Columns . 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 . WorkSheets . Columns . NumberFormat := '#.#