Ekte bulunan Excel tablosunda satır ve sütunlarda boşluklar bulunmakta. Bu  verileri Access veri tabanımda bulunan LİSTE tabloma düzenleyerek aktarmak istiyorum. Daha önce kullanmış olduğum bir dosya ile bu verileri list box ta görebiliyorum. dosya al ve aktar butonu ile bu verileri düzenlenmiş şekilde tabloma aktarmama yardımcı olursanız sevinirim. Şimdiden teşekkür ederim.

bu Excel şablonu sabit mi?
sadece I sütununda(Yıl sütunu) sayısal veri varsa mı alınacak?

Evet sabit.
Sadece veriler biraz daha artacak.
dikkat etmemiz gereken bir noktada ad soyadı kısımları üsteki veriye göre dolacak. yanı her yıl sütununun karşısındaki adı soyadı boşluğuda dolacak.

ama bazı satırlarda ad soy ad alanı boş ama 6 tekvando yazıyor

---

aşağıdaki gibi bir sonuç yeterli mi?

aşağıdaki kodu dener misiniz?
excel dosyanızdaki şablonun sabit olduğu varsayılıştır

Private Sub BtnExceliAl_Click()



xDosyaAdi = txtDosyaAdres

xSayfaAd = LstExcelSyf

'___________________________________________________



xSQL = "INSERT INTO LİSTE ([SIRA NO],[NO],[ADI SOYADI],[YIL],[SPOR DALI]) " & vbNewLine & _

       "SELECT [F1],[F2],[F3],[F9],[F10] FROM [" & xSayfaAd & "] IN """ & xDosyaAdi & """ ""Excel 12.0 Xml;HDR=No""" & vbNewLine & _

       "where isnumeric([F9])"



'____________________________________________________________________________________

CurrentDb.Execute xSQL

Set rs = CurrentDb.OpenRecordset("SELECT * FROM LİSTE")



If Not (rs.EOF And rs.BOF) Then

    rs.MoveFirst 'Unnecessary in this case, but still a good habit

    Dim dz(2) As String

    Do Until rs.EOF = True

        If rs(0) & "" <> "" Then

            For x = 0 To 2

                dz(x) = rs(x)

            Next x

        Else

            rs.Edit

            For x = 0 To 2

                rs(x) = dz(x)

            Next x

            rs.Update

        End If

        rs.MoveNext

    Loop

End If

rs.Close

End Sub

Yukardaki kod Access tablosunda hiç veri olmadığı varsayımına dayanıyor
Eğer Access tablosunda daha önceden veri varsa doğrudan yeni eklenen satırlara gidip işlemin sadece yeniler üzerinde yapılması da sağlanabilir