Excel Kontrolu Kod: try XLApp := GetActiveOleObject ; except try XLApp := CreateOleObject ; except ShowMessage ; Exit; end; end; Var olan br excel'i açma Kod: XLApp. Workbooks. Open ; Yeni çalışma sayfası ekler. Kod: XLApp. WorkBooks. Add; Yeniden adlandır XLApp. ActiveSheet. Name := 'geri zekali'; Excel görünsün, görünmesin XLApp. Visible := True; //Gösterir XLApp. Visible := False; //Gizler Hücre Seçme Kod: XLApp. Range('A1:J25'). Select; Hücreleri Birleştirme Kod: 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 Kod: XLApp. Rows . RowHeight := 30; Border Kod: XLApp. Range . Borders. Weight := 1; Border Rengi Kod: XLApp. Cells .. Borders . Colorindex := -4142; Font Ayarları Kod: XLApp. Range . Font. Bold := True; //Bold yapar XLApp. Range . Font. Size := 12; //Size 12 yapar Gridleri gizler XLApp. ActiveWindow. DisplayGridlines := False;

Devam... 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 := '#.#

kardeş biraz alakasız olacak ama bir kaç sorum var; 1- excelde bir malzemenin kod numarası olan 30.4.2 yazıyorum otomatik olarak tarih oluyor nasıl düzeltirim, 2- TL olan para birimini YTL yapabilir miyim.