Altform ile birlikte excele çıktı vermek

[karaayhan]

Arkadaşlar excel'e çıktı vermek istiyorum normal dosyalarda sorun yok ama bir formu alt formu ile birlikte excel'e çıktı olarak vermek istersem olmuyor ne yapabilirim bu konuda ..
şimdiden teşekkürler

 

[celoy]

Private Sub Komut9_Click()
On Error GoTo Err_Komut9
Dim Klasor
Klasor = CurrentProject.Path & "\" & "AYHAN PROĞRAMI-" & " " & Format(Date, "mm/dd/yy") & " " & Format(Time, "hh-mm-ss-AM/PM") & "Yedek EXCEL'İ .xls"
If MsgBox("**DİKKAT**Aktarma işlemi,Proğramın bulunduğu yere kayıt olacak,oradan bulun,Verileri Excele aktarmak istiyor musunuz? ", 36, "EXCELE VERI AKTARIMI") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "Tablo1", Klasor, True, "KİŞİ BİLGİLERİ"
DoCmd.TransferSpreadsheet acExport, 8, "Tablo2", Klasor, True, "ALDIĞI ÖDÜLLER"
MsgBox "Aktarma işlemi Tamamlandı", 0, "EXCELE VERI AKTARIMI"
Exit_Komut9:
Exit Sub
Err_Komut9:
MsgBox Error$
Resume Exit_Komut9
End If
End Sub


bunu bir deneyin

 

[karaayhan]

sayın celoy çok güzel bir örnek ama ben aynı sayfada olsun istiyorum mümkün mü acaba yani aynı sayfanın filan satırından başlasın tablo1 filan satırda bitsin
tablo2 başka bir satırdan başlasın ve alt form olduğu için bitişi açık olsun mümkün mü bu acaba teşekkürler..

 

[karaayhan]

sayın celoy ve uzman arkadaşlar sizlerin cevabını bekliyorum

mümkünatı yok mu ?

 

[karaayhan]

ekte gönderdiğim excel dosyası gibi olmasını istiyorum.
kimin kaydındaysa onu yazmalı ayrıca

teşekkürler..