vivident
Yeni Üye
- Katılım
- 31 Mar 2021
- Mesajlar
- 1
- En iyi yanıt
- 0
- Puanları
- 1
- Yaş
- 45
- 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 & ";"
Ş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