access teki formu excele atmak istiyorum

mrb arkadaşlar

accessde yapmuş olduğum ıpk formunu excele aktarmak ve orada grafik oluşturmak istiyorum yardımcı olurmusunuz örneklerinizi inceledim ama anlayamdım

sayın derer
parça kontrol kriteri isimli formunuzdaki komut48'in kodlarını
aşağıdaki gibi değiştirin,bu arada istediğiniz tablo veya sorğu adını yazarak excel'e atabilirsiniz,diğer grafik işi ise beni aşar onada bir hocamız yardımcı olacaktır,dediğim gibi siz benim gönderdiğim kodları kendinize göre dönüştürebilirsiniz.kolay gelsin

kod............

Private Sub Komut48_Click()

On Error GoTo Err_Komut48_Click

Dim Klasor

Klasor = CurrentProject.Path & "\" & "Amaç(EXCEL OLARAK YEDEK)-" & " " & Format(Date, "mm/dd/yy") & " " & Format(Time, "hh-mm-ss-AM/PM") & ".xls"

If MsgBox("Aktarma işlemi,programın bulunduğu yere kayıt olacak,oradan bulun,Verileri Excele aktarmak istiyor musunuz? ", 36, "EXCELE VERI AKTARIMI") = 6 Then

DoCmd.TransferSpreadsheet acExport, 8, "amaçç", Klasor, True, "Amaçlar"

DoCmd.TransferSpreadsheet acExport, 8, "içerik", Klasor, True, "İçerikler"



MsgBox "Dikkat programın bulunduğu yere Aktarma işlemi Tamamlandı", 0, "EXCELE VERI AKTARIMI"



Exit_Komut48_Click:

    Exit Sub



Err_Komut48_Click:

    MsgBox Err.Description

    Resume Exit_Komut48_Click

    End If

End Sub

EXCELİ GÖSTERMİYOR NEREYE ATIYOR BİLGİLERİ Excel ACILMIYOR

Mdb nizin bulunduğu yere Amaç(EXCEL OLARAK YEDEK)- 08.07.10 01-39-30-PM şeklinde bir Excel dosyası olarak kaydediyor olması gerekli.

bulamıyorum sizce nereye atmış olabilir birde dosyayı rar dan dizine cıkartmamıştım ondan yapabilirmi. sonuc için tşkler faka ben ıpk formu için istemiştim ezcele aktarmayı yinede sağolun

sayın derer
benim gönderdiğim PK isimli program örneğinizi masa üstüne çıkarın ve içindeki parça kontrol isimli formu açarak Excel işareti olan butona basın ve gelen komutları takip ederseniz excele atacaktır,ve masa üstüne Amaçç isimli bir Excel dosyası göreceksiniz ve bunu açıp inceleyin
yani sizin programın olduğu yere Excel dosyası olarak atıyorrr.