incsoft
Altın Üye
- Katılım
- 18 Ağustos 2009
- Mesajlar
- 728
- Excel Vers. ve Dili
- Office Ev ve İş 2021 - Türkçe
Kodda bulunan yolu değiştirerek deneyiniz. Tek tırnak yolu kendi server adresine göre düzenleyebilirisiniz.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
Çok sağolun hocam hakkınızı helal edin oldu. Birde şu saatleri filan birebir aktarsa bozmadan sevinirim..