VBA ile Ağdaki Excel dosyasına bağlanmak...

[maytro]

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

 

[Haluk]

Dosya yolunu muhtemelen yanlış yazmışınızdır....

"\\BilgisayarAdı\KlasorAdı\DosyaAdı.xlsx"

gibi olması gerekir....

Ya da;

"\\OrtakKlasorAdı\DosyaAdi.xlsx"

gibi....

.

 

[maytro]

Dosya yolunu muhtemelen yanlış yazmışınızdır....

"\\BilgisayarAdı\KlasorAdı\DosyaAdı.xlsx"

gibi olması gerekir....

Ya da;

"\\OrtakKlasorAdı\DosyaAdi.xlsx"

gibi....

.

Haluk Bey,
Aşağıdaki gibi yaptım lakin hata alıyorum

Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\\IK-ISGB_Ortak\ISGB NAKİL PERSONEL TAKİP.xlsm" & _
";Extended Properties=""Excel 12.0;Hdr=yes"""

 

[Haluk]

Muhterem;

Ortak alandaki klasör adı "IK-ISGB_Ortak " ve bu klasörde verilerin olduğu dosya adı "ISGB NAKİL PERSONEL TAKİP.xlsm" ise;

Data Source="\\IK-ISGB_Ortak\ISGB NAKİL PERSONEL TAKİP.xlsm"

olarak yazın. Verilerin, sizin bilgisayarda kodların çalıştırıldığı Excel dosyasına aktarılması gerekir...

Yine hata veriyorsa; hata mesajında ne yazdığını burada belirtin...

Aslında, dosya adının boşluksuz olması da iyi olur..... (ISGB_NAKİL_PERSONEL_TAKİP.xlsm) gibi!

.

 

[maytro]

Muhterem;

Ortak alandaki klasör adı "IK-ISGB_Ortak " ve bu klasörde verilerin olduğu dosya adı "ISGB NAKİL PERSONEL TAKİP.xlsm" ise;

Data Source="\\IK-ISGB_Ortak\ISGB NAKİL PERSONEL TAKİP.xlsm"

olarak yazın. Verilerin, sizin bilgisayarda kodların çalıştırıldığı Excel dosyasına aktarılması gerekir...

Yine hata veriyorsa; hata mesajında ne yazdığını burada belirtin...

Aslında, dosya adının boşluksuz olması da iyi olur..... (ISGB_NAKİL_PERSONEL_TAKİP.xlsm) gibi!

.

Dediğiniz gibi dosya ismini kısalttım lakin bu hatayı verdi.

 

[Haluk]

Bunu deneyin;

Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=\\IK-ISGB_Ortak\ISGB_NAKİL_PERSONEL_TAKİP.xlsm;Extended Properties=""Excel 12.0;Hdr=yes"""

Ortak alandaki dosyanın adı bu şekilde düzeltildi, değil mi?

.

 

[maytro]

Bunu deneyin;

Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=\\IK-ISGB_Ortak\ISGB_NAKİL_PERSONEL_TAKİP.xlsm;Extended Properties=""Excel 12.0;Hdr=yes"""

Ortak alandaki dosyanın adı bu şekilde düzeltildi, değil mi?

.

Dediğiniz gibi yaptım bu hataları aldım şuanda...

 

[Haluk]

Bu hata mesajının Türkçe meâli;

"Ya dosya yolu, ya dosya adı, ya da sayfa adında bir yanlışlık var" ..... demektir.

Klasördeki dosyanın adını "ISGB_NAKİL_PERSONEL_TAKİP.xlsm" olarak değiştirdiniz mi?

.

 

[maytro]

Bu hata mesajının Türkçe meâli;

"Ya dosya yolu, ya dosya adı, ya da sayfa adında bir yanlışlık var" ..... demektir.

Klasördeki dosyanın adını "ISGB_NAKİL_PERSONEL_TAKİP.xlsm" olarak değiştirdiniz mi?

.

Evet değiştirdim.

 

[Haluk]

Ağdaki dosya üzerinde sağ tıklayıp özelliklerine baktığınızda, dosya yolu nasıl gözüküyor?

.

 

[maytro]

Ağdaki dosya üzerinde sağ tıklayıp özelliklerine baktığınızda, dosya yolu nasıl gözüküyor?

.

Tamamdır. Bağlandı. Haluk bey ilgi ve emeğinize çok teşekkür ederim.

 

[Haluk]

Peki, şimdi ne oldu da bağlandı ?

.

 

[maytro]

Peki, şimdi ne oldu da bağlandı ?

.

Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=\\dc\IK-ISGB Ortak\ISGB_NAKİL_PERSONEL_TAKİP.xlsm;Extended Properties=""Excel 12.0;Hdr=yes"""

dc sunucuymuş başa koyunca oldu, Sizin sayenizde...
Çok teşekkür ederim her şey için....