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, ""
Cevapla