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