- Katılım
- 11 Aralık 2005
- Mesajlar
- 3
Arkadaşlar öncelikle bu sayfası hangi kardeşimiz açmışsa Allah razı olsun dilekleriyle soruma geçiyorum. Dephi de bir proje yapıyorum.Projemde veritabanından aldığım bilgileri excele aktarıyorum.Bunda sorun yok. Sorunum şu:Ben aynı sayfaya veritabanından aldığım 5 kişinin bilgilerini kaydettirecem. Yani for döngüsü gibi bir döngü kullanmam lazım. Aşağıdaki örnektede görüldüğü gibi mesala şu şekilde olsun:
Birinci kişinin kaydını B20 hücresine . İkinci kişinin kaydını B40 hücresine , üçüncü kişiyi B60 hücresine kaydetme şeklinde olacak.Tabi bu B20 içindi. Aşağıda kullandığım(B16,B17,D17....) hücreleride bu şekilde kaydetmek istiyorum. Ãimdiden teşekkürler. Çalışmalarınızda başarılar.Allah yar ve yardımcınız olsun.SAYGILAR.
Birinci kişinin kaydını B20 hücresine . İkinci kişinin kaydını B40 hücresine , üçüncü kişiyi B60 hücresine kaydetme şeklinde olacak.Tabi bu B20 içindi. Aşağıda kullandığım(B16,B17,D17....) hücreleride bu şekilde kaydetmek istiyorum. Ãimdiden teşekkürler. Çalışmalarınızda başarılar.Allah yar ve yardımcınız olsun.SAYGILAR.
EXCEL := CREATEOLEOBJECT('EXCEL.APPLICATION');{EXCEL 'İ AÇMA}
EXCEL.VISIBLE :=TRUE;{EXCEL 'İ AKTİF YAPMA}
WORKBOOK :=EXCEL.WORKBOOKS.open('D:\PROJE TASLAK\veli.xls');
SHEET:=WORKBOOK.WORKSHEETS[1];{SAYFA NUMARASI}
SHEET.RANGE['b16']:=edit4.Text;
SHEET.RANGE['d16']:=edit5.Text;
SHEET.RANGE['b17']:=edit6.Text;
SHEET.RANGE['d17']:=edit2.Text;
SHEET.RANGE['b18']:=edit2.Text;
SHEET.RANGE['b19']:=edit8.Text;
SHEET.RANGE['b20']:=edit9.Text;
SHEET.RANGE['j9']:=edit2.Text;
SHEET.RANGE['j12']:=edit10.Text;
if RadioButton1.Checked then
begin
Table1.filtered:= true;
SHEET.RANGE['d20'].Interior.Color := 00E88017;
end;
if RadioButton2.Checked then
begin
Table1.filtered:= true;
SHEET.RANGE['a20'].Interior.Color := 00E88017;