AccessTr.neT
Veri Tabanına Değişik Excel Tablolarından Veri Almak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Veri Tabanına Değişik Excel Tablolarından Veri Almak (/konu-veri-tabanina-degisik-excel-tablolarindan-veri-almak.html)

Veri Tabanına Değişik Excel Tablolarından Veri Almak - maras321 - 05/01/2020

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?

Cvp: Veri Tabanına Değişik Excel Tablolarından Veri Almak - berduş - 05/01/2020

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


Cvp: Veri Tabanına Değişik Excel Tablolarından Veri Almak - berduş - 05/01/2020

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

Cvp: Veri Tabanına Değişik Excel Tablolarından Veri Almak - maras321 - 05/01/2020

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

Cvp: Veri Tabanına Değişik Excel Tablolarından Veri Almak - berduş - 05/01/2020

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

Cvp: Veri Tabanına Değişik Excel Tablolarından Veri Almak - maras321 - 05/01/2020

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