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?

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

Not:
DoCmd.TransferSpreadsheet acImport,  10,
Yukardaki kodda kullanilan 10 Excel sürümünüze göre değişebilir

(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ü?

Bir buton oluşturup butonun tıklanma olayına ekleyebilirsiniz

(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...