kemal turan
Altın Üye
- Katılım
- 10 Haziran 2011
- Mesajlar
- 1,663
- Excel Vers. ve Dili
- Excel 2010 32 bit
- Altın Üyelik Bitiş Tarihi
- 06-10-2032
Merhaba,
Bulunduğu bilgisayarda çalışan aşağıdaki kod ile Ağdan veri almak istedeğimde "Set con = New ADODB.Connection" satırı hata veriyor.
Nasıl düzeltebiliriz.
Teşekkür ederim.
Bulunduğu bilgisayarda çalışan aşağıdaki kod ile Ağdan veri almak istedeğimde "Set con = New ADODB.Connection" satırı hata veriyor.
Nasıl düzeltebiliriz.
Teşekkür ederim.
Kod:
Sub bağlan()
Sayfa5.Cells.Clear
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
yol = "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_ANAYEDEKLERI\2_SELLER3_KEMAL.xlsm"
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties =""excel 12.0;hdr=yes"""
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sorgu = "select * from[verıler$]"
rs.Open sorgu, con, 3, 1
Sayfa5.Range("a2").CopyFromRecordset rs
End Sub