A.S.C Filtre, Grafik ve Raporlama Eklentisi

Birden Fazla Excel Verisini Access Te Birleştirmek
#1
Merhaba hocalarım

Elimde 150 adet "XLS" uzantılı Excel Excel im var bu Excel verilerini tek veri haline ve tek Excel de toplamam gerekiyor ve
Excel in adını da ilk sütuna yazdırmalıyım 
yani her Excel içindeki verinin önüne Excel dosya isini yazmalıyım

Bu işlemi Access de yapabilir miyim

bu konu hakkında yardımcı olabilir misiniz?



  Alıntı
Bu mesajı beğenenler:
#2
ben dosya isimlerini for x döngüsü ile aldım siz dosya isimlerini aldığınız fonksiyonu kullanabilirsiniz
Visual Basic
  1. Private Sub BtnExcelAlAktar_Click()
  2. Dim qdfNew As QueryDef
  3. Dim AktarilanDosya() As String 'aktarılan dosya isimlerini kaydetmek için kullanılacak dizi
  4. Dim AktarilenIndx As Integer
  5.  
  6. AktarilenIndx = 0
  7. Adreshy = CurrentProject.Path & "\Kaynak - " 'dosya adresi
  8. For x = 1 To 6 ' seçilen dosyaları aktarma döngüsü
  9. ReDim Preserve AktarilanDosya(AktarilenIndx)
  10. AktarilanDosya(AktarilenIndx) = "Kaynak - " & x
  11. DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel12Xml, AktarilanDosya(AktarilenIndx), Adreshy & x & ".xls", 1, "sheet1!"
  12. SqlSOrgu = "SELECT " & "'Kaynak - " & x & "' AS DosyaAdi, adı, soyadı " & _
  13.   "FROM [" & AktarilanDosya(AktarilenIndx) & "]"
  14. SqlSOrgu2 = SqlSOrgu2 & " Union all " & SqlSOrgu
  15.  
  16. AktarilenIndx = AktarilenIndx + 1
  17. Next x
  18.  
  19. SqlSOrgu2 = Mid(SqlSOrgu2, 11)
  20. Set qdfNew = CurrentDb.CreateQueryDef("TmpSorgu", SqlSOrgu2) 'geçici sorgu oluşturma
  21. DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "TmpSorgu", CurrentProject.Path & "\Ana.xls", 1 'Aktarılacak ana excel
  22. DoCmd.DeleteObject acQuery, "TmpSorgu" 'Oluşturulan geçici sorguyu siler
  23.  
  24. For x = LBound(AktarilanDosya) To UBound(AktarilanDosya)
  25. DoCmd.DeleteObject acTable, AktarilanDosya(x) 'Aktarılan bağlı tabloları siler
  26.  
  27. Next x
  28.  
  29. MsgBox ""
  30. End Sub





  Alıntı
Bu mesajı beğenenler:
#3
hocam kusura bakmayın uzun zamandır giremedim bilgisayarımla alakası sıkıntı vardı yeni elime geçti 

Bu sorguyu access e ne şekil işlemem gerekiyor yardımcı olabilir misiniz?



  Alıntı
Bu mesajı beğenenler:
#4
Bu kodu bir butona yazacaksınız



  Alıntı
Bu mesajı beğenenler:
#5
teşekkürler hocam emeğinize sağlık



  Alıntı
Bu mesajı beğenenler:
#6
Rica ederim
İyi çalışmalar.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Sorgu1 Deki Belirli Satırları Tek Sütunda Birleştirmek footprinting 11 234 22-11-2020, 11:43
Son Mesaj: footprinting
  [VBA] Seçilene Göre Tabloya Birden Fazla Satırda Veri Aktarma ekremer1969 3 66 10-11-2020, 20:13
Son Mesaj: halily
  [MAKRO] Excel Sayfasından Access Pencerelerine Kopyalama. eakkoc 5 93 16-10-2020, 11:47
Son Mesaj: onur_can
  Birden Fazla Koşul Ile Eşleşmeyenleri Bulma Emind 6 175 07-10-2020, 10:42
Son Mesaj: Emind
  [VBA] Aynı Formu Birden Fazla Açma hedefkaya 8 298 20-09-2020, 23:44
Son Mesaj: halily
  Excel Export gunalp26 4 190 03-09-2020, 19:26
Son Mesaj: halily
  [FORM] Birbiriyle Ilişkili Birden Fazla Tablo Kullanarak Tek Bir Formda Veri Girişi Yapmak. ctnerdal 3 260 28-07-2020, 11:22
Son Mesaj: dsezgin
  [FORM] Access Db Den Getirilen Iki Bilgiyi Excel Sayfasında Aynı Hücre Içine Birleştirmek Selçuk Coşkun 2 173 10-07-2020, 12:09
Son Mesaj: Selçuk Coşkun

Foruma Git:


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