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
  [FORM] Ayrı metin kutularındaki ay gün ve yıl tarihlerini birleştirmek ercan acar 5 3.250 2 saat önce
Son Mesaj: ioriret
  Birden Fazla Alandaki Veriyi Sorguda Alt Alta Birleştirme adnnfrm 3 158 18-11-2023, 19:54
Son Mesaj: dsezgin
  12 Saatlik (am-pm) Metin Olarak Girilmiş Saat Verisini 24 Saatlik Olarak Gösterme Hk. adnnfrm 2 138 05-10-2023, 03:16
Son Mesaj: adnnfrm
  Access'e Yeni Tablo Oluşturarak Excel Import Etmek, Table'ı Sütunlara çevirmek... İlhanYaylıcı 25 1.179 02-10-2023, 13:32
Son Mesaj: halily
  Excel Içindeki Tabloyu Access Vba Ile Refresh Etmek Hk. adnnfrm 2 215 05-08-2023, 02:23
Son Mesaj: adnnfrm
  [FORM] Liste Kutusundaki Veriye Göre Stok Ve Ihtiyaç Verisini Otomatik Hesaplama husem 2 218 08-06-2023, 19:03
Son Mesaj: husem
  Excel Birleştir Ve Süz Bora34 6 775 16-02-2023, 18:33
Son Mesaj: Bora34
access-sql-18 Access'e Dosya Bul Butonu Ile EXcel'den Veri çekme snapper 2 266 06-12-2022, 11:51
Son Mesaj: snapper

Foruma Git:


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