Skip to main content

AccessTr.neT


Birden Fazla Veri Aktarma

Birden Fazla Veri Aktarma

Çözüldü #1
Merhaba Arkadaşlar,

Excel içe aktar butonuna tıklandığında aynı tabloya birden fazla Excel aktarabilir miyim ?
.rar deneme1.rar (Dosya Boyutu: 18,06 KB | İndirme Sayısı: 3)
Cevapla
#2
(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...
Cevapla
#3
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
Cevapla
#4
içe aktar dediğinizde varolan tabloya ekle seçeneğini seçerseniz tüm Excel dosyalarını aynı tabloya ekleyebilirsiniz
[Resim: do.php?imgf=154572557599161.jpg]
Cevapla
#5
bunu buton ile yapmak istiyorum kodu elinizde bulunuyor mu acaba
Cevapla
#6
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,veri 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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da