sn delvinja daha önceden CELOYCE hocamdan aldığım bu formulu
On Error Resume Next

Dim Klasor
Klasor = CurrentProject.Path & "\" & "İSTATİSTİKLER -" & " " & Format(Date, "mm/dd/yy") & " " & Format(Time, "hh-mm-ss-AM/PM") & ".xls"
If MsgBox("Aktarma işlemi,programın bulunduğu yere kayıt olacak,oradan bulun,Verileri Excele aktarmak istiyor musunuz? ", 36, "EXCELE VERI AKTARIMI") = 1Then
DoCmd.TransferSpreadsheet acExport, 8, "TABLO1", Klasor, True, "TABLO1"

'Burda istediginiz sorgunun, tablonun adını yazabilirsiniz ve çoğaltabilirsiniz
MsgBox "Dikkat programın bulunduğu yere Aktarma işlemi Tamamlandı", 0, "EXCELE VERI AKTARIMI"
Exit_Komut54:
Exit Sub
Err_Komut54:
MsgBox Error$
Resume Exit_Komut54End If

excelegönder komut düğmenizin tıklatıldığında olayına yazın ve kırmızı yazan yerlere dikkat edin tablo ve ya sorgunuzun adını yazın o kadar istediğiniz şekilde çoğaltabilirsiniz kolay gelsin