maytro
Altın Üye
- Katılım
- 19 Ağustos 2010
- Mesajlar
- 15
- Excel Vers. ve Dili
- ecxel2007
- Altın Üyelik Bitiş Tarihi
- 19-12-2027
Merhaba, Aşağıda kodlarda normalde bilgisayar üzerinden dosyaya bağlanıyorum. Lakin Ağ da ortak kullandığımız klasörde olan bir dosya için bağlantı yapamadım acaba sorun nedir? Yardımcı olursanız Sevinirim.
Sub VERİ()
Dim Con As Object, Rs As Object, Sorgu As String
Set Con = CreateObject("AdoDB.Connection")
Set Rs = CreateObject("AdoDB.RecordSet")
Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\ISGB.xlsm" & _";Extended Properties=""Excel 12.0;Hdr=yes"""
Sorgu = "Select [HEYET RANDEVU TARİHİ],[İŞYERİ HEKİMİNE YÖNLENDİRME TARİHİ],[NOTLAR],[CEVAPLAR],[İK MÜDÜRLÜĞÜNÜN YAZDIĞI NOTLAR],[İSGB YAZI TARİHİ],[İSGB YAZI NO],[İŞYERİ HEKİM KARARI],[ÇALIŞAMAZ İSE NEDENİ],[İGU KARARI],[ÇALIŞAMAZ İSE NEDENİ],[BARKODLU E-NABIZ BELGE DURUMU] From [Sayfa1$K2:V10000]"
Rs.Open Sorgu, Con, 1, 1
Range("K3").CopyFromRecordset Rs
Rs.Close: Con.Close
End Sub
Sub VERİ()
Dim Con As Object, Rs As Object, Sorgu As String
Set Con = CreateObject("AdoDB.Connection")
Set Rs = CreateObject("AdoDB.RecordSet")
Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\ISGB.xlsm" & _";Extended Properties=""Excel 12.0;Hdr=yes"""
Sorgu = "Select [HEYET RANDEVU TARİHİ],[İŞYERİ HEKİMİNE YÖNLENDİRME TARİHİ],[NOTLAR],[CEVAPLAR],[İK MÜDÜRLÜĞÜNÜN YAZDIĞI NOTLAR],[İSGB YAZI TARİHİ],[İSGB YAZI NO],[İŞYERİ HEKİM KARARI],[ÇALIŞAMAZ İSE NEDENİ],[İGU KARARI],[ÇALIŞAMAZ İSE NEDENİ],[BARKODLU E-NABIZ BELGE DURUMU] From [Sayfa1$K2:V10000]"
Rs.Open Sorgu, Con, 1, 1
Range("K3").CopyFromRecordset Rs
Rs.Close: Con.Close
End Sub