- Katılım
- 23 Nisan 2005
- Mesajlar
- 34
- Excel Vers. ve Dili
- Office 2010-2016
- Altın Üyelik Bitiş Tarihi
- 07.05.2018
Merhaba,
Aşağıdaki "kapalı dosyadan veri alma" kodu xls uzantılı dosyadan veri almıyor.
Kod nasıl düzenlenmeli ki xls uzantılı dosyaları alsın.
yardımlarınız için teşekkürler.
Aşağıdaki "kapalı dosyadan veri alma" kodu xls uzantılı dosyadan veri almıyor.
Kod nasıl düzenlenmeli ki xls uzantılı dosyaları alsın.
yardımlarınız için teşekkürler.
Kod:
Option Explicit
Global Con As Object, Rec As Object
Function BaglanExcel(VeriTabani As String, Sorgu As String)
Set Con = CreateObject("AdoDB.Connection")
On Error GoTo hata:
Con.Open "Provider=Microsoft.Ace.OLEDB.12.0;" & _
"Data Source= '" & VeriTabani & "'" & ";" & _
"Extended Properties=""Excel 12.0;HDR=yes;IMEX=1"";"
Set Rec = Con.Execute(Sorgu)
hata:
If Err Then Exit Function
End Function
'Fonsiyon adını teknisyen adı yap
Sub av2_1()
Set Rec = CreateObject("AdoDB.Recordset")
Call BaglanExcel("C:\Users\ilker.sandikci\Downloads\" & Range("H1") & ".xlsx", "Select * From [Sayfa1$A2:b100]")
'Teknisyen sayfasını yaz
Sayfa2.Range("A19").CopyFromRecordset Rec
Rec.Close
Con.Close
End Sub