Excel Dosyasını Access Dosyasına Çevirme

Bu dosya, bir Excel çalışma kitabındaki sayfaları Access veritabanı dosyasına (.mdb) aktarmak için hazırlanmış makrolu bir araçtır. Dosya açıldığında bir form görüntülenir; dönüştürme işlemi bu form üzerinden yapılır.

Dosyanın içeriği​

• UserForm1: Kaynak dosya seçimi, yeni Access dosyasının adı ve aktarım düğmeleri bulunan kullanıcı formudur.
• ThisWorkbook: Dosya açılışında formu otomatik gösteren kodu içerir.

Dosyada çalışma sayfası formülü bulunmaz; işlemin tamamı makro ile yapılır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

• Workbook_Open: Dosya açılır açılmaz UserForm1 formunu gösterir.
• TextBox3_Enter: Dosya seçme penceresini açar. Yalnızca *.xls uzantılı dosyalar listelenir. Seçilen dosyanın yolu ve adı kaydedilir, CommandButton1 düğmesi etkinleşir. Seçim yapılmazsa "Dosya seçilmedi" uyarısı verilir.
• CommandButton1_Click: Aktarımı yapar. Seçilen dosyanın bulunduğu klasörde, formda girilen adla Jet OLEDB 4.0 biçiminde yeni bir Access veritabanı oluşturur. Kaynak dosyadaki her sayfa için aynı adlı bir tablo açar, sütun adlarını ve veri türlerini sayfanın başlık satırından alır (hdr=yes), ardından kayıtları satır satır tablolara yazar. İşlem bitince "Aktarım Tamamlanmıştır" mesajı gösterilir.
• CommandButton2_Click: Formu kapatır.

Uyarı: Aynı klasörde, formda belirtilen adla bir dosya zaten varsa kod bu dosyayı önceden silerek yerine yenisini oluşturur. Aynı adlı önemli bir Access dosyanız varsa farklı bir ad girin veya dosyayı yedekleyin.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin; form otomatik olarak görüntülenir.
2. Dosya seçme alanına tıklayarak dönüştürmek istediğiniz .xls dosyasını seçin.
3. Oluşturulacak Access dosyasının adını ilgili alana girin.
4. Aktarım düğmesine tıklayın ve tamamlandı mesajını bekleyin.
5. Oluşan Access dosyasını, seçtiğiniz Excel dosyasının bulunduğu klasörde açın.

Kaynak dosyadaki sayfaların ilk satırı sütun başlığı olarak kabul edilir. Dosya seçici yalnızca .xls biçimini listelediğinden .xlsx dosyalar önce .xls olarak kaydedilmelidir.