excele aktar

arkadaşlar elimde aşağıdaki şekilde kod var
Private Sub Komut79_Click()
On Error GoTo Err_aktar

Dim Klasor As String
Klasor = CurrentProject.Path & "\SONUÇLAR.xlsx"
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

koda göre excele verileri aktara biliyorum. ancak benim isteğim tek sayfaya verileri göndermek. Excel de sayfa 1 de a1 den başlayarak boş bulduğu satır ve sütuna verileri aktarmak yardımlarınızı bekliyorum.
veya sayfa 1 de belirtiğim aralıklara ilgili sorguları aktarabilirmiyiz.

yokmu anlayan arkadaşlar

Access isteğinizi otomatik olarak yapmaz,
ancak access'te kod yazarak yapabilirsiniz.

Ekte buna benzer bir Bilanço örneği var inceleyebilirsiniz.

Veya Excel'deki Dış veri al ile bir sayfada Access teki verileri istediğiniz yerden başlatarak alabilirsiniz.

Arkadaşlar yukarıdaki kodları örneğime yapıştırdım. İstediğim gibi tüm sorguları tek kodla dışarı aktardı fakat xlsx uzantılı aktardı buda benim istediğim format. Ama ortada gariplik var xlsx dosyasını açmadı. Uzantıyı xls olarak değiştirince açıyor. Acaba xlsx uzantılı olarak açması için ne gibi bir değişiklik yapmalıyım?

[uyari] mesaj düzenlenmiştir. lütfen tümü büyük harflerle mesaj yazmayınız[/uyari]

Merhaba ,
Kod tarafında yapman gerekeni bilemiyorum.Ama Giderek yaygınlaşan Office 2007 programı dosyaları default olarak xlsx,docx v.b. şeklinde kaydeder Eğer gelen dosyaları açmak istiyorsan Bunu aşağıda verdiğim linkteki convert çalıştırıp çok rahat bir şekilde açabilirsin.Her seferinde uzantıyı xls'e çevirmen gerekmez.
http://www.microsoft.com/downloads/detai...bb74cd1466

Ayrıca Office 2007 de sağ üsteki windows logo 'una tıklayıp.Excel seçeneklerine gelirsen buradaki save yada kaydet kısmında Excel dosyalarını nasıl kaydedeceğini sorar default'u xlsx dir bunu Excel 97-2003 seçersen bunan sonraki kaydettiğin her dosyayı offiice 2003 ve alt sürümlerin açabileceği bir şekilde kaydedebilirsin.
İsterseniz bunu bir deneyin.

Satır ve sutun sayısı fazla olduğundan benim işimi gören office 2007. Ben 2007 de açmak istiyorum. Bunun için ne yapmalıyım.