A.S.C Filtre, Grafik ve Raporlama Eklentisi

[FORM] Form Da Bulunan Birden Fazla Veriyi EXcel E Aktarmak
#1
HOCALARIM MERHABA ALTTA VERDİĞİM VBA KODUNDA GÖRDÜĞÜNÜZ GİBİ BİRDEN FAZLA FORM BULUNAN VERİLERİ TEK BİR EXCEL İÇİNE AKTARMAK İSTİYORUM AMA YAPAMIYORUM YARDIMCI OLABİLİRMİSİNİZ


Private Sub btngunlukexcel_Click()
On Error GoTo btngunlukexcel_Click_Err

    DoCmd.OutputTo acForm, "bolge_genel_gorunum2rpr",  
    DoCmd.OutputTo acForm, "bolge_genel_gorunum3rpr",
    DoCmd.OutputTo acForm, "bolge_genel_gorunum4rpr" 

    "MicrosoftExcel(*.xls)", "", False, "", 0

btngunlukexcel_Click_Exit:
    Exit Sub

btngunlukexcel_Click_Err:
    MsgBox Error$
    Resume btngunlukexcel_Click_Exit
End Sub



  Alıntı
Bu mesajı beğenenler:
#2
merhaba
aktaracagın tabloyu,sorguya vererek ,aşagıdaki kodda sorgu adlarını yazarak kendine uyarlayarak aktarabilirsin



Dim  A As String, klasor, C As String
 
klasor = CurrentProject.Path & "\" & "TümListe Otopark(EXCEL)-" & " " & Format(Date, "mm/dd/yy") & " " & Format(Time, "hh-mm-ss-AM/PM") & ".xls"
If MsgBox("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, "sorgu1", klasor, True, "sorgu1adı"
DoCmd.TransferSpreadsheet acExport, 8, "sorgu2", klasor, True, "sorgu2adı"
DoCmd.TransferSpreadsheet acExport, 8, "sorgu2", Klasor, True, "sorgu3adıayıtlar"
MsgBox "Dikkat Proğramın bulunduğu yere Aktarma işlemi Tamamlandı", 0, "EXCELE VERI AKTARIMI"
End If



  Alıntı
Bu mesajı beğenenler:
#3
çok teşekkürler



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Ms Excel'deki 1'den Fazla Worksheet'ten 1 Tanesini Import Etmek İlhanYaylıcı 2 54 06-02-2020, 14:22
Son Mesaj: İlhanYaylıcı
  [SORGU] Sorgu Içinde Birden Fazla Sorgu Oluşturmak footprinting 2 104 04-02-2020, 11:45
Son Mesaj: footprinting
  [MAKRO] Makroya Birden Fazla Kriter Yazılması M_Kemal_Askeri 1 70 02-02-2020, 23:26
Son Mesaj: alperalper
access-sql-9 [SORGU] Excel Vba Access Arama Sorgusu Yavuzmumcu 1 66 01-02-2020, 14:10
Son Mesaj: userx53
  [SORGU] Dlookup Ile Birden Fazla Koşulla Veri çekmek footprinting 3 112 09-01-2020, 14:22
Son Mesaj: halily
  Birden Fazla Il Satir 2 85 05-01-2020, 17:39
Son Mesaj: Satir
  [SORGU] Birden Fazla Alanada Sorgu Yapma untouchable 4 128 03-01-2020, 13:37
Son Mesaj: onur_can
  [RAPOR] Aynı Anda Birden çok Rapor Güncelleme kayaae 6 130 31-12-2019, 16:30
Son Mesaj: onur_can

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi