aşağıdaki kodu dener misiniz? gerekirse önce Excel sayfasını boşaltıp sonra da eeklenebilr

Dim TabloAdi As String

Dim XlAd As String

Dim SyfAd As String



TabloAdi = "isimler"

XlAd = CurrentProject.Path & "\Deneme.xlsx"

SyfAd = "isimler" & "$"

DoCmd.TransferSpreadsheet TransferType:=acExport, _

                          TableName:=TabloAdi, _

                          SpreadsheetType:=10, _

                          FileName:=XlAd, _

                          HasfieldNames:=True, _

                          Range:=SyfAd