Excel Aktarma İstek

[turkerdundar]

Slm programda excel aktarmada toplam borçve ödeme hanesindeki açıklamarıda çıkmasını istiyorum.Bide aktarırken tamamını diilde dönemi seçtiğimde odöneme ait bilgileri aktarmasını istiyorum teşekkürler

 

[gulsum1]

cevap

tablo değil sorgu aktar

On Error GoTo Err_aktar

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

DoCmd.TransferSpreadsheet acExport, 8, "Tablo/SorguAdı", Klasor, True, ""
MsgBox "Aktarma işlemi tamamlandı", 0, "VERİ AKTARIMI"

Exit_aktar:
Exit Sub

Err_aktar:
MsgBox Error$
Resume Exit_aktar

End If

 

[assenucler]

Rica

Sn. Turkerdundar ve Gulsum

Sn. Gülsum'un kodları eklendikten sonraki halini içeren dosyayı siteye eklerseniz, kendimi geliştirmek yönünden incelemek istiyorum.

Teşekkürler. Kolay gelsin.

 

[BKCAN]

forumda en çok sorulan sorular arasından detaylı örnek bir uygulama eklerseniz bizim gibi yararlanmak isteyen arkadaşlar çok olacaktır. mümkünse içinde word a belge aktarmasıda içeren

saygılar

 

[modalı]

Sayın bkcan,

Bu konuyla ilgili forumda çok örnek var. Access soruları içinde excelle aktar diye aratın.

 

[BKCAN]

Sayın bkcan,

Bu konuyla ilgili forumda çok örnek var. Access soruları içinde excelle aktar diye aratın.

sayın modalı,

ben bütün sayfaları teker teker gezdim, 63 sayfa (belli sayfadan sonra uygulama dosyaları gözükmüyor) aratınca 4 sayfa hepsini teker teker inceledim. hepsinde aktarma kodları bulunmakta (nasıl kullanacağımı bilmeden bir işime yaramıyor) uygulama dosyası bulamadıgım için yazdıydım. bütün gönderilen uygulama dosyaları inceledim (gözden kaçırdıklarım olabilir) ne ögrendiysem onlar sayesinde birşeyler yapmaya başladım bunun için minnattarım

birşey sormadan ve istekde bulunmadan önce mutlaka bütün forumu gözden geçiriyorum uygulama dosyalarından yararlanarak kendimce birşeyler yapmaya çalışıyorum, başaramayınca son çare olarak sizin gibi değerli arkadaşlardan yardım istiyorum.

inanın bulsaydım buraya boşa yazmadım.

saygılar

 

[kadirdursun]

tablo değil sorgu aktar

On Error GoTo Err_aktar

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

DoCmd.TransferSpreadsheet acExport, 8, "Tablo/SorguAdı", Klasor, True, ""
MsgBox "Aktarma işlemi tamamlandı", 0, "VERİ AKTARIMI"

Exit_aktar:
Exit Sub

Err_aktar:
MsgBox Error$
Resume Exit_aktar

End If

sayın Gulsum1;
bu 2003 formatına atıyor. ben 2007 ye atmasını istiyorum nasıl yaparım?

 

[kadirdursun]

2007 olarak nasıl aktarırım?

 

[kadirdursun]

arkadaşlar bunu nasıl yapacağımı bilenimiz yok mu?

 

[UZUN53]

2007 olarak nasıl aktarırım?

8 yerine 9 yaz tamamdır.
DoCmd.TransferSpreadsheet acExport, 9, "Tablo/SorguAdı", Klasor, True, ""