dosyadan dosyaya veri çekme

incsoft

Altın Üye
Katılım
18 Ağustos 2009
Mesajlar
728
Excel Vers. ve Dili
Office Ev ve İş 2021 - Türkçe
Kod:
Private Sub CommandButton1_Click()
Set Con = CreateObject("Adodb.connection")
    Set rs = CreateObject("Adodb.recordset")
    'yol = "\\denemeserver\denemedosya\"
     yol = "C:\Desktop\"
    Con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & yol & "export.xlsx" & _
     ";extended properties=""Excel 8.0;hdr=yes"""
    Sorgu = "SELECT * FROM [Sheet1$]"
    rs.Open Sorgu, Con, 1, 1
    Range("a2").CopyFromRecordset rs
    rs.Close: Con.Close
    Set Con = Nothing: Set rs = Nothing
End Sub
Kodda bulunan yolu değiştirerek deneyiniz. Tek tırnak yolu kendi server adresine göre düzenleyebilirisiniz.

Çok sağolun hocam hakkınızı helal edin oldu. Birde şu saatleri filan birebir aktarsa bozmadan sevinirim..
 

incsoft

Altın Üye
Katılım
18 Ağustos 2009
Mesajlar
728
Excel Vers. ve Dili
Office Ev ve İş 2021 - Türkçe
Kod:
Private Sub CommandButton1_Click()
Set Con = CreateObject("Adodb.connection")
    Set rs = CreateObject("Adodb.recordset")
    'yol = "\\denemeserver\denemedosya\"
     yol = "C:\Desktop\"
    Con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & yol & "export.xlsx" & _
     ";extended properties=""Excel 8.0;hdr=yes"""
    Sorgu = "SELECT * FROM [Sheet1$]"
    rs.Open Sorgu, Con, 1, 1
    Range("a2").CopyFromRecordset rs
    rs.Close: Con.Close
    Set Con = Nothing: Set rs = Nothing
End Sub
Kodda bulunan yolu değiştirerek deneyiniz. Tek tırnak yolu kendi server adresine göre düzenleyebilirisiniz.

çok teşekkürler hocam hakkınızı helal edin. Birde birebir içerikleri bozmadan aktarsa benim için çok muhteşem olacak.
 

incsoft

Altın Üye
Katılım
18 Ağustos 2009
Mesajlar
728
Excel Vers. ve Dili
Office Ev ve İş 2021 - Türkçe
1547206608788.png Dosyayı ilk açtığımda bazende bu hatayı veriyor hocam. export.xlsx içerisine girip birkaç kez oynama yapınca aktarıyor. Ben exports.xlsx dosyasını hazır kullandığım paket programdan alarak masaüstüne atıyorum ancak excel'de nedense solda da belirtiğim şekilde atıyor ondan olabilirmi acaba?1547206668570.png
 
Üst