Merhaba dostlar ve hocalarım,
Düzenli şekilde toplanmış, başlıklı Excel içeriğiniz mi var? Bunu Access'e taşımak mı istiyorsunuz?
VBA ile bu çok basit bir şekilde gerçekleşiyor.
Aşağıda ki VBA prosedürünü kendinize göre kişileştirerek komut butonunuza ekleyerek bu isteğinizi gerçekleştirmiş olursunuz!
Bu VBA hem belirttiğiniz isimde tablo oluşturuyor hem de içeriğinizi kayıpsız aktarıyor.
Umarım faydası olur. Bunun gibi bir sürü güzel pratik şeyler öğrendim. Teşekkür ederim herkese.
Düzenli şekilde toplanmış, başlıklı Excel içeriğiniz mi var? Bunu Access'e taşımak mı istiyorsunuz?
VBA ile bu çok basit bir şekilde gerçekleşiyor.
Aşağıda ki VBA prosedürünü kendinize göre kişileştirerek komut butonunuza ekleyerek bu isteğinizi gerçekleştirmiş olursunuz!
Bu VBA hem belirttiğiniz isimde tablo oluşturuyor hem de içeriğinizi kayıpsız aktarıyor.
Visual Basic
- Private Sub cmdAktar_Click()
-
-
- 'Excel dosyasının konumu ve adı
- Dim exlDosya As String
- exlDosya = "C:\Users\**kullanıcıadı**\Desktop\dosya adı.xlsx" 'Excel dosyanızın masaüstünde durması yereli. Dosyanın adını ve formatını yazınız.
-
- 'Transfer yapılacak tablo adı
- Dim tblAdi As String
- tblAdi = "deneme" 'Bu kısım access içinde yeni bir tablo oluştururken otomatik isim ataması yapacaktır.
-
- 'Transfer işlemi yapılıyor
- DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, tblAdi, exlDosya, True
-
- 'Tabloyu tamamladıktan sonra açacak.
- DoCmd.OpenTable tblAdi, acViewNormal
- End Sub
Umarım faydası olur. Bunun gibi bir sürü güzel pratik şeyler öğrendim. Teşekkür ederim herkese.
