Kapalı kitaptaki B sutunu veri sayma

[DeliBalta58]

Açık olan kitaptaki verileri saymak için kullandığımız formül;

say = WorksheetFunction.CountA(Sheets("Sayfa7").Range("B2:B65500"))
ListBox1.RowSource = "sayfa7!B2:H65500"

saydığımız verileri ListBox1.RowSource aldığımız formül ise;

ListBox1.RowSource = "sayfa7!B2:H65500"

Yapmak istediğim ise;
aynı klasör içinde bulunan data isimli kitabın 7.sayfasında B sütunundaki verileri saydırıp bu verileri listboxa almak.


Kapalı kitaptan veri aldığım formül:

Textbox1=ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[data.xls]Sayfa7'!R2C2")

formülünde olduğu gibi Texbox1'eB2 deki veri alınıyor.

 

[Orion1]

Aşağıdaki formülü kendi dosyanıza göre uyarlayabilirsiniz.C1 demek Column1 Yani a sütunu demek.
Ama siz ado-sql ile uygunsa verilerinizi ado sql ile çok hızlı bir şekilde Listboxa alabilirsiniz.Ben ado-sql tercih ederdim.

msgbox ExecuteExcel4Macro("COUNTA('C:\[kitap1.xls]Sayfa1'!C1)")

 

[DeliBalta58]

Evren hocam. Kullanıcı bu dosyanın içinde bulunduğu klasörü bazen C nin içinde bazen D nin içinde yada D nin içinde başka ikinci klasör içinde kullanabilmeli.

ado - sql ile ilgili yeterli bilgim yok.
Programı 2000 versiyonuna göre yapmam gerekli.