form üzerinden excele aktardığım kodlar:
*****************************************************************
Private Sub Komut129_Click()
Dim Klasor
Dim ilktarihal As String
Dim sontarihal As String

ilktarihal = Me.ilktarih2.Value
sontarihal = Me.sontarih2.Value

Klasor = CurrentProject.Path & "\" & ilktarihal & "-" & sontarihal & "-gelenler" & ".xls"
DoCmd.OutputTo acQuery, "gelenler", "MicrosoftExcel(*.xls)", Klasor, True, ""

MsgBox "Dosyanızın bulunduğu dizine " & ilktarihal & "-" & sontarihal & "-gelenler.xls adıyla aktarıldı", 0, " V E R İ  A K T A R I M I "

End Sub
*****************************************************************
altı çizili satırı bu şekilde değiştirince düzeliyor fakat excel97 formatında kaydediyor ve True yazmama rağmen aktarılan dosyayı açmıyor

DoCmd.TransferSpreadsheet acExport, 8, "gelenler", Klasor, True, ""