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