Excel sütun başlıklarını tablede alan adı yapma (çözüldü)

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
baloglurecep
Üye
Mesajlar: 261
Kayıt: 21 Tem 2006 04:59
İletişim:

Excel sütun başlıklarını tablede alan adı yapma (çözüldü)

Mesaj gönderen baloglurecep »

Arkadaşlar merhabalar... Acces veri tabanı (mdb) kullandığım lcd okul programım var. Nöbet kısmında bir güncelleme yapacağım. Normalde haftalık elle girilen bir sitemdi. ancak idareciler unutunca eski veriler kalıyor. Bende aylık liste atıp gününde olanları göstermek istedim. Yalnız okullar büyük küçük ve farklı sayıda sabit olmayan nöbet yerleri var. Nöbet yerlerinin kullanıcı tarafından tanımlanması gerekiyor. Nöbet tablosunda kullanıcı ilgili alanları kendisi oluşturuyor. Fakat ben işi kullanıcı açısından en aza indirmek istiyorum. Yapmak istediğim şu. Excelde hazırlanmış aylık nöbet listesini import etmeden önce ilk satırda yer alan isimleri nöbet tablosunda alan isimleri olarak kullanıp sonrasında 2. satırdan itibaren import edeceğim. birkaç işlemle kullanıcı uğraşmasın. elle alan oluşturup sonra import etmesin. Programcılığın da mantığı o değil mi? Kullanıcıya minumum iş...Öncelikle exceldeki dolu sütün saysını bulmak gerekiyor. Nette yaptığım araştırmalarda satır sayısı var sutun sayısı ile ilgili bilgi yok. Bununla ilgili nasıl bir yol izlemeleyim? Teşekkürler

belki arayan arkadaşlar olur... Exceldeki dolu satır ve sütun sayısı ;

uses kısmına ComObj ekleyin;

kullanılacak ünitin var kısmında değişken tanımla;

XLApp, XLSheet : OLEVariant;
satir_say, sutun_say : Integer;
excel_dosya : String;



excel_dosya:=ExtractFilePath(Application.ExeName) + 'nobet.xls';

XLApp := CreateOleObject('Excel.Application');
XLApp.Workbooks.Open(excel_dosya);
XLSheet := XLApp.Workbooks[1].WorkSheets[1];
satir_say := XLSheet.UsedRange.Rows.Count;
sutun_say := XLSheet.UsedRange.Columns.Count;

Edit1.Text:=inttostr(satir_say);
Edit2.Text:=inttostr(sutun_say);
Cevapla