Skip to main content

AccessTr.neT


Veri Tabanına Değişik Excel Tablolarından Veri Almak

Veri Tabanına Değişik Excel Tablolarından Veri Almak

Çözüldü #1
Arkadaşlar kolay gelsin Ekte 3 adet Excel sayfasınla hazırlanmış aynı grafiklerle oluşturulmuş farklı içeririkleri olan sayfalar mevcut Bu grafiklerin başlık kısımları aynı fakat içerisindeki veriler farklı.Ben bunları Access veri tabanına hepsini ekleyerek  almak istiyorum form veya başka bir yöntem ile bunu nasıl yapabilirim?
.rar örnek dosya.rar (Dosya Boyutu: 49,38 KB | İndirme Sayısı: 3)
Cevapla
#2
eğer tek bir dosya içinse aşağıdaki kod işinize yarayabilir,
dosyaların adını tek tek yazarak ekleyebilirsiniz
DoCmd.TransferSpreadsheet acImport, 10, "veri", CurrentProject.Path & "\örnek3.xlsx", True, "sayfa1!"
eğer belli bir klasördeki tüm dosyalar içinse
Dim fileName As Variant
fileName = Dir(CurrentProject.Path & "\*.xlsx")

While fileName <> ""
DoCmd.TransferSpreadsheet acImport, 10, "veri", CurrentProject.Path & "\" & fileName, True, "sayfa1!"
fileName = Dir
Wend
Cevapla
#3
Not:
DoCmd.TransferSpreadsheet acImport,  10,
Yukardaki kodda kullanilan 10 Excel sürümünüze göre değişebilir
Cevapla
#4
(05/01/2020, 15:23)berduş yazdı: eğer tek bir dosya içinse aşağıdaki kod işinize yarayabilir,
dosyaların adını tek tek yazarak ekleyebilirsiniz
DoCmd.TransferSpreadsheet acImport, 10, "veri", CurrentProject.Path & "\örnek3.xlsx", True, "sayfa1!"
eğer belli bir klasördeki tüm dosyalar içinse
Dim fileName As Variant
fileName = Dir(CurrentProject.Path & "\*.xlsx")

While fileName <> ""
    DoCmd.TransferSpreadsheet acImport, 10, "veri", CurrentProject.Path & "\" & fileName, True, "sayfa1!"
    fileName = Dir
Wend

sayın berduş nereye ekleyecegim örnek üzerinde göndermeniz mümkünmü?
Cevapla
#5
Bir buton oluşturup butonun tıklanma olayına ekleyebilirsiniz
Cevapla
#6
(05/01/2020, 15:44)berduş yazdı: Bir buton oluşturup butonun tıklanma olayına ekleyebilirsiniz

elinize sağlık oldu teşekkürler...
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task