(word)Userform üzerinden Kapalı excel dosyasından veri alma

[doukan84]

Arkadaşlar worde oluşturduğum userform üzerindeki combobox ile Kapalı excel yada access dosyasından Düşeyara tarzı arama yaptırıp Textboxda görüntülenmesini istiyorum.. böyle birşeyi nasıl yapabilirim bilgisi olan varmı..?

Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim

 

[Orion1]

Referenceden microsoft dataobject activex 2.8 seçmelisiniz.

Private Sub CommandButton1_Click()
Dim conn As ADODB.Connection, rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
TextBox1.Value = ""
TextBox2.Value = ""
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ActiveDocument.Path & _
        "\veri.xls;extended properties=""excel 8.0;hdr=no"""
rs.Open "select * from [Sayfa1$A:B] where F1='" & ComboBox1.Value & "';", conn, 1, 3
If rs.RecordCount > 0 Then
    TextBox1.Value = rs(0).Value
    TextBox2.Value = rs(1).Value
End If
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub

 

[doukan84]

Evren Ustam Çok sağolasın.. Cidden Çok işime yaradı yaptığın bu çalışma

 

[Orion1]

Evren Ustam Çok sağolasın.. Cidden Çok işime yaradı yaptığın bu çalışma

Rica ederim.
Kolay gelsin.