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);
Excel sütun başlıklarını tablede alan adı yapma (çözüldü)
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 261
- Kayıt: 21 Tem 2006 04:59
- İletişim: