• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Yardım Sharepointten ADO ile veri alma

vivident

Yeni Üye
Katılım
31 Mar 2021
Mesajlar
1
En iyi yanıt
0
Puanları
1
Yaş
43
Konum
Bursa
Ad Soyad
Mesut Gençtoprak
Office Vers.
Office365
Merhaba

Şirketimiz dosyaları sharepointte taşıdı. Eskiden ortak alanda bulunan excel dosyasından ADO ile veri alabiliyorken, sharepointten alamıyorum
Kullandığım kod aşağıdaki gibidir. Dosya ve Conn.Open satırlarında değişiklik yaptım, ama hata alıyorum

dosya = "https://abcd.sharepoint.com/teams/kitaplik/List.xlsm"
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=2;RetrieveIds=Yes;DATABASE=" & dosya & ";"


Kod:
Sub list()
dosya = "E:\TR_BUR\Departement\Pres\Excel\List.xlsm"
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.RECORDSET")
conn.Open "Provider=microsoft.ace.oledb.12.0;data source=" & dosya & ";extended properties=""excel 12.0;hdr=no;imex=1"";"

rs.Open "select * from [AyarlarRV$B2:E101];", conn, 1, 1
Sheets("L10").Range("A4").CopyFromRecordset rs
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
Application.ScreenUpdating = True
End Sub
 
Üst Alt