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
  [VBA] Açılan Kutuda Olmayan Veriyi Otomatik Kaydetmek karaayhan 1 69 04-03-2020, 17:37
Son Mesaj: jon206
  Veri Takibi Ve Veriyi Süzme mgunes 12 295 04-03-2020, 16:59
Son Mesaj: mgunes
  [VBA] Birden Fazla Koşullu Sorgu Metodlu Combobox Kullanımı Lenadro 2 117 27-02-2020, 15:16
Son Mesaj: Lenadro
  [FORM] Bir Formdan Başka Bir Formdaki Veriyi Yenileme M_Kemal_Askeri 3 99 27-02-2020, 01:23
Son Mesaj: M_Kemal_Askeri
  Ms Excel'deki 1'den Fazla Worksheet'ten 1 Tanesini Import Etmek İlhanYaylıcı 2 70 06-02-2020, 14:22
Son Mesaj: İlhanYaylıcı
  [SORGU] Sorgu Içinde Birden Fazla Sorgu Oluşturmak footprinting 2 149 04-02-2020, 11:45
Son Mesaj: footprinting
  [MAKRO] Makroya Birden Fazla Kriter Yazılması M_Kemal_Askeri 1 84 02-02-2020, 23:26
Son Mesaj: alperalper
access-sql-9 [SORGU] Excel Vba Access Arama Sorgusu Yavuzmumcu 1 112 01-02-2020, 14:10
Son Mesaj: userx53

Foruma Git:


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