inceleyiniz prg nın bulundugu yere Excel olarak kaydeder
kod bu  680 kayıt satırı ekliyor 
Private Sub sip_exceleaktar_Click()

On Error GoTo Err_aktar

Dim Klasor As String
Klasor = CurrentProject.Path & "\ornek.xls"
If MsgBox("Verileri Excele aktarmak istiyor musunuz? ", 36, "ornek.xls 'ye aktarılacak") = 6 Then

DoCmd.TransferSpreadsheet acExport, 8, "Sorgu1", Klasor, True, ""
MsgBox "Aktarma işlemi tamamlandı", 0, "VERİ AKTARIMI"

Exit_aktar:
Exit Sub

Err_aktar:
MsgBox Error$
Resume Exit_aktar

End If
End Sub