Merhaba blacksir
Bir form açıp aşağıdaki kodları bir butonun olay yordamına atayın. Açıklamayı okuyarak istediğinizi yapacaksınız


Dim Klasor As String
Klasor = CurrentProject.Path & "\excel dosyasının adı.xls"
DoCmd.TransferSpreadsheet acImport, 8, "access'te oluşacak tablonun adi", Klasor, True, "a2:c33"

Excel dosyasının Access dosyasıyla aynı klasörde olduğu varsayılmıştı. Farklı yerdeyse

Klasor = CurrentProject.Path & "\excel dosyasının adı.xls"

satırını düzenleyin. Mesela
Klasör = "c:\belgeler.excel dosyasının adı.xls" olabilir

Exceldeki veri aralığınız neresiyse onu da

DoCmd.TransferSpreadsheet acImport, 8, "access'te oluşacak tablonun adi", Klasor, True, "a2:c33"

satırındaki "a2:c33" ifadeleri yerine yazın. Buradaki mantık şu:

a2= Veri almaya başlanacak Excel adresi
c33= Veri almanın yapılacağı son hücre (c33 dahil)

Not: Access'deki tablo bu kodlarla kendi oluşur. Siz ayrıca açmayın. Excel'deki veri yapıları aynen access'te oluşacaktır.


Kolay gelsin.