Başlangıç > Kodlar > Delphi ile Excel ve delphi

Delphi ile Excel ve delphi

Excel e nasıl delphi üzerinden nasıl ulaşılır? neler yapabilirize birkaç örnek

İş yerleri sanırım exceli word den daha çok kullanıyor. Hatta birçok işleri de excel de yapıyorlar. Buna birçoğunuz şahit olmuştur. Hatta program yazdıracakları zaman bile, çoğu örneği excel de tuttukları tablolardan gösterirler. Exceli zaten sular! seller! gibi bilen bizler de programı yazarken excelde ne kadar basit olan şeyler için günlerce mantık ararız, Programımızda “Nasıl yapsak da olsa” diye...
Bir yerden sonra anlıyoruz ki Amerika’yı defalarca keşfetmek bize bir şey getirmiyor. Hatta zaman kaybettiriyor. O zaman exceli de programın parçası olarak görüp verileri excele neden göndermiyoruz?
Onlar zaten excel de analiz yapıyorlar. Sonuçları değerlendiriyorlar. Alternatif grafikler çıkartıyorlar...
Bu fikrime katılın veya katılmayın, aşağıdaki örnek başlıklar işinize bir şekilde yarar sanırım.

Nasıl, Excele dosya açtırırım ?



Function DosyaCagir (Excel : Variant ; DosyaAdi : String) : Boolean;
Begin
Result := True;
Try
Excel.WorkBooks.Open[DosyaAdi];
Except
ShowMessage(‘Aranan Dosya Bulunamadı’+#13#10+’Lütfen yolu ve dosya adini tam veriniz’);
Result := False;
End;
End;

Nasıl, Excele Boş Çalışma Sayfası eklerim?


Function BosCalismaSayfasiEkle ( Excel : Variant): Boolean;
Begin
Result := True;
Try
Excel.WorkSheets.Add;
Except
Showmessage (‘Yeni Sayfa Ekleyemedim’);
Result := False;
End;
End;

Nasıl, Excelde Aktif çalışma sayfasının adını öğrenirim?


Function AktifCalismaSayfasiAdi ( Excel : Variant ) : ShortString;
Begin
Try
Result := Excel.ActiveSheet.Name;
Except
Result := ‘’;
End;
End;

Sanırım buraya kadar olan örnek yapısında bir sorunumuz yoktur. Genelde hata oluşma olasılığına karşı try-except ve try-finally bloklarını kullanın. Bundan sonrasını tek satır olarak yazacağım.

Nasıl, Exceldeki Çalışma sayfalarının sayısını öğrenirim?


Sayi := Excel.WorkBooks.Count;
Nasıl, Excelde çalışma sayfalarımı kapatırım?


Excel.WorkBooks[sayfaIndisi].Close[SaveAll];
Nasıl, Exceli kapatırım?


Excel.quit;
Nasıl, Excel hücresindeki veriyi okurum?


ShortStringVeri := Excel.Cells[satir,sutun].Value;
Nasıl, Excel hücresindeki Formulü öğrenirim?


ShortStringVeri := Excel.ActiveSheet.Cells[satir,sutun].Formula ;

Nasıl, Excel hücresine Formül atarım?


Excel.ActiveSheet.Cells[satir,sutun].Formula := ShortStringYeniFormul ;

Nasıl, Aktif Çalışma Sayfasında belirtilen yerden itibaren basıl seçerim?


Excel.ActiveSheet.Cells[ilkSatir,ilkSutun].Select; // belirtilen koordinatdaki hücreyi seçtik
Excel.SendKeys(‘+{END}+{RIGHT}’) ; // en son kolona kadar seçtik
Excel.SendKeys(‘+{END}+{DOWN}’) ; // en son satıra kadar seçtik

Bir sonraki yazı zaman fonksiyonları ve Alternatif tipleri üzerine olacak.

S. Ozgur Caymaz


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: