textbox arama yap getir kapalı excel dosyasından

[netvolxxx]

merhaba forumda araştırdım ama şu şekilde yapılmış bir örnek bulamadım
üstadların yapmış olduğu çalışma dosyasında teklif.xlsm ürün arama buton ile açılan userform da textbox ile arama yapıp listbox a getiriyor
ben bu işlemi kapalı olan excel dosyası ile nasıl yapabilirim
userform da textbox arama yapınca veriyi DOSYA YOLU D:\xlsm\kapalıexcel\KAPALI.xlsm den arama yapıcak bu işlem nasıl yapabilirim.

bu işlemi ben farklı yolla yapıyorum çok zamanımı alıyor fiyat listesi güncellediği zaman tek tek şablonlar var aktarmak zorunda kalıyorum.

yardımcı olcak arkadaş beni büyük bir yükten kurtarmış olcak...

excel dosyaları nı örnekleri yükledim

konu ile ilgili üstadlardan yardım bekliyorum..

 

[N.Ziya Hiçdurmaz]

Merhaba; Bu şekil deneyiniz.

Private Sub TextBox2_Change()
Set con = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
Yol = "C:\Dosya adresi\KAPALI.xlsm"
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & Yol & ";extended properties=""excel 12.0;hdr=yes"""
rs.Open "select * from [Sayfa1$];", con, 1, 3
ListBox1.Clear
If Not rs.EOF Then
Do While Not rs.EOF
If rs.Fields("Ürün Kodu") Like "*" & TextBox2.Text & "*" Then
ListBox1.AddItem
ListBox1.List(satir, 0) = rs.Fields("Ürün Kodu")
ListBox1.List(satir, 1) = rs.Fields("Ürün Açıklaması")
ListBox1.List(satir, 2) = rs.Fields("Birim")
ListBox1.List(satir, 3) = rs.Fields("B-Fiyat")
satir = satir + 1
End If
rs.MoveNext
Loop
End If
Set rs = Nothing: Set con = Nothing
Label3.Caption = "Listelenen Kayıt Sayısı : " & ListBox1.ListCount
End Sub

 

[netvolxxx]

ziya üstad test ettim çalıştı süpersiniz beni büyük bir yükten kurtarmış oldunuz çok teşeküürr ederim......