Kapalı dosyadan veri alırken aşağıdaki hatayı veriyor.
Daha sonra bu oluyor
Sub kapali_aktar()
Dim conn As Object, rs As Object
Set conn = CreateObject("AdoDb.Connection")
Set rs = CreateObject("AdoDb.Recordset")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "10a.xlsm;Extended Properties=""Excel 12.0;HDR=yes;"""rs.Open "Select * from [Kapalı$];", conn, 1, 3
sat = Cells(65536, "A").End(xlUp).Row + 1
rs.movefirst
Range("B6").Select
Range("A2:EM55").Select
Selection.ClearContents
Range("FG1").Select
Range("A2").CopyFromRecordset rs
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub
Sorunu çözmede yardım edebilecek biri var mı?Teşekkürler.....
Dosyayı da Gönderdim...
Not:Kod Excel 2003'de düzgün çalışmakta ama Excel 2007'de bu sorunu vermektedir.
Sayfa başı
