excele aktar

Microsoft'un ilgili makalesini okuyun:

http://office.microsoft.com/tr-tr/excel/...41055.aspx

makaledekini bliyordum. bu excelden kayıt ederkenki mevzuyu anlatıyor.
benim istediğim ise aşağıdaki kodla excele aktarırken 2007 olarak aktarması


Private Sub Komut79_Click()
On Error GoTo Err_aktar

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

DoCmd.TransferSpreadsheet acExport, 8, "ARSAYGÖREKAZA TÜRLERİ SON", Klasor, True, "ARSAYGÖREKAZA TÜRLERİ SON"
DoCmd.TransferSpreadsheet acExport, 8, "SÜRÜCÜSAYISI", Klasor, True, "SÜRÜCÜSAYISI"
DoCmd.TransferSpreadsheet acExport, 8, "asli kusurlar son", Klasor, True, "asli kusurlar son"
DoCmd.TransferSpreadsheet acExport, 8, "HAVADURUMUSON", Klasor, True, "HAVADURUMUSON"
DoCmd.TransferSpreadsheet acExport, 8, "GÜNDURUMUSON", Klasor, True, "GÜNDURUMUSON"
DoCmd.TransferSpreadsheet acExport, 8, "YOLUNKAPLAMADURUMUSON", Klasor, True, "YOLUNKAPLAMADURUMUSON"
DoCmd.TransferSpreadsheet acExport, 8, "KAZAYAETKİEDENARAÇ AKSAMLARI SON", Klasor, True, "KAZAYAETKİEDENARAÇ AKSAMLARI SON"
DoCmd.TransferSpreadsheet acExport, 8, "ARAÇ CİNSLERİ SON", Klasor, True, "ARAÇ CİNSLERİ SON"
DoCmd.TransferSpreadsheet acExport, 8, "YOLUN YÜZEYİSON", Klasor, True, "YOLUN YÜZEYİSON"

MsgBox "Aktarma işlemi tamamlandı. Sonuçlar Excel sayfasını açıp sonuçları görebilirsiniz .Saygılar", 0, "VERİ AKTARIMI"

Exit_aktar:
Exit Sub

Err_aktar:
MsgBox Error$
Resume Exit_aktar

End If
End Sub

Klasor = CurrentProject.Path & "\SONUÇLAR.xls"

Klasor = CurrentProject.Path & "\SONUÇLAR.xlsx" olarak değiştirin

olan bölümü


olarak değiştirip dener misiniz?

Yani xls olan uzantıyı xlsx olarak değiştirip deneyin...

olmuyor. xlsx uzantılı olarak kaydediyor fakat açmıyor. xls olarak uzantısını değişince açıyor.

Merhaba ,
Ortamda başka bir ofis 2007 yüklü makina var ise onda açmayı denermisiniz.Belki sizin kullandığınız excel'de sorun vardır.
Benim konu hakkındaki yorumum sorunun kodda olmadığı sizin excel'iniz ile alakalı bir problem olduğu yönündedir.
İyi Çalışmalar.