Access den pek anlamam ama yinede bu kod belki işini görür kendine göre uyarlama yaparsın artık .[/code]



[code]Sub TransferEt()

Dim excel_Dosya As Object, FormAdı As String, Yol As String
Set excel_Dosya = CreateObject("excel.Application")
Yol = ThisWorkbook.Path & "\Veriler.mdb"

Set Syf = Sheets("Sayfa1")
Strlr = Syf.Range("A1:T65536").End(xlUp).Row
FormAdı = "TransferVerileri"

With excel_Dosya
.OpenCurrentDatabase Yol
With .DOCMD
On Error Resume Next
.DeleteObject acTable, FormAdı
On Error GoTo 0

.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, FormAdı, ThisWorkbook.FullName, Strlr
.Opentable FormAdı, acViewNormal, acAdd
.Close
End With
.Quit
End With
Set excel_Dosya = Nothing

End Sub