Merhaba Arkadaşlar,

Excel içe aktar butonuna tıklandığında aynı tabloya birden fazla Excel aktarabilir miyim ?

(25/12/2018, 08:28)untouchable yazdı: Merhaba Arkadaşlar,

Excel içe aktar butonuna tıklandığında aynı tabloya birden fazla Excel aktarabilir miyim ?

İçe aktarma işleminde bir tane Excel dosyası seçilebiliyor bildiğim kadarıyla ama içe aktarma adımlarını kaydedip, daha sonra bir butona komut vererek kaydettiğiniz içe aktarma adımlarını çalıştırabilirsiniz...

Elimde şuan 5 tane Excel dosyası var bunların sütun sayıları ve başlıkları aynı ben şimdi 1.excel dosyasını içe aktardıktan sonra diğerlerini seçtiğimde onun alt kısmına eklemeyecek mi ? yani her Excel aktarımı için bir tablo mu oluşturmam gerek

içe aktar dediğinizde varolan tabloya ekle seçeneğini seçerseniz tüm Excel dosyalarını aynı tabloya ekleyebilirsiniz

bunu buton ile yapmak istiyorum kodu elinizde bulunuyor mu acaba

aşağıdaki kodu buton tıklandığında olayına ekler misiniz?
yalnız veritabanınız ile exceldeki alanlar uyumlu olmalı
ayrıca tablonuzdaki alan adı veri1,veri2,veri3 ise Exceldeki alan adları da veri1,veri2,veri3  gibi olmalı

Dim StrAdres As String

Dim f As Object 'FileDialog

Set f = Application.FileDialog(3) 'msoFileDialogFilePicker



StrAdres = CurrentProject.Path & "\"



With f

'  .AllowMultiSelect = True 'default

   .InitialFileName = StrAdres

'   Specify filters

'  .Filters.Clear

'  .Filters.Add "All Files", "*.*"

   .Show

   Dim varFile As Variant

   For Each varFile In .SelectedItems

     DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Deneme1", varFile, True 'MsgBox Trim(varFile)

   Next

End With