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ş
41
Konum
Bursa
Ad Soyad
Mesut Gençtoprak
Office Versiyon
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