Excel Dosyasını Access Dosyasına Dönüştürme

Bu dosya, Access tablolarıyla uyumlu biçimde hazırlanmış bir Excel (.xls) dosyasını Access veritabanı dosyasına dönüştürür. Dosya açıldığında UserForm otomatik olarak görüntülenir; dönüştürme işlemi bu form üzerinden yapılır. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• UserForm1: Kaynak dosya yolunun gösterildiği kutu, oluşturulacak dosya adının girildiği kutu ve dönüştürmeyi başlatan düğmeden oluşan form.
• ThisWorkbook: Dosya açılışında formu gösteren kod.

Makrolar​

• Workbook_Open: Dosya açılınca UserForm1 formunu görüntüler.
• TextBox3_Enter: Kaynak dosya kutusuna tıklandığında dosya seçme penceresini açar. Pencere yalnızca .xls dosyalarını listeler. Seçilen dosyanın yolu kutuya yazılır, dosya adı ve klasörü ayrıştırılır, dönüştürme düğmesi etkinleşir. Dosya seçilmezse "Dosya seçilmedi" uyarısı verilir.
• CommandButton1_Click: Seçilen dosyanın bulunduğu klasörde yeni bir Access veritabanı oluşturur (Jet 4.0, ADOX ve ADODB kullanılır). Kaynak dosyadaki her sayfa için aynı alan adları ve veri türleriyle bir tablo açar, ardından satırları kayıt kayıt bu tablolara aktarır. İşlem bitince "Aktarım Tamamlanmıştır" mesajı görüntülenir. Kaynak dosyanın ilk satırı alan adı olarak okunur.
• TextBox2_Enter: Uzantı kutusuna odaklanıldığında imleci dosya adı kutusuna yönlendirir.

Dikkat: Kod, hedef klasörde girilen adla aynı adda bir dosya varsa onu önce siler ve yerine yenisini oluşturur. Bu nedenle mevcut bir Access dosyasının adını kullanmayın. Kod dışarıya bağlantı kurmaz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Açılan formda kaynak dosya kutusuna tıklayın ve dönüştürülecek .xls dosyasını seçin.
3. Oluşturulacak Access dosyasının adını ilgili kutuya yazın.
4. Dönüştürme düğmesine basın.
5. "Aktarım Tamamlanmıştır" mesajından sonra Access dosyasını kaynak dosyanın bulunduğu klasörde açın.

Kaynak dosyadaki sayfaların ilk satırı başlık satırı olmalı ve sütunlar Access tablosuna uygun düzenlenmiş olmalıdır. Kod Jet 4.0 sağlayıcısı kullandığı için 32 bit Office sürümlerinde çalışır.