degerlı arkdasım ben programcıyım ama bu bana tuaf geldı yanı exceL
sana arsıwımde bulunan bıkac not wercem bı bak belkı ısını goruru keske delphıde alsaydın
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
