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