kapalı dosyadan listbox sıralı bilgi alma

[ikikan]

Arkadaşlar kırmızı ile işaretli kod kapalı dosyadan aktarma yapacagım zaman
liste içinde bir boşluk varsa hataveriyor döngüyü nasıl düzeltebilirim ?

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim baglanti As Object, yer As Object, sayfa As Object
Set baglanti = New ADODB.Connection
Set yer = New ADODB.Recordset

ListBox2.Clear
baglanti.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & _
ThisWorkbook.Path & "\KartP\" & ListBox1.Value & ";Extended Properties='Excel 12.0 Macro;HDR=YES';"
yer.Open "Select * From [Sayfa1$];", baglanti, adOpenStatic, adLockOptimistic

yer.MoveFirst
Do Until yer.EOF
ListBox2.AddItem yer(0)
yer.MoveNext
Loop

End Sub

 

[Levent Menteşoğlu]

Veri alınacak dosyanın bir örneğini eklermisiniz. Ayrıca almak istediğiniz veri sütunlarınıda belirtiniz.

 

[ikikan]

Veri alınan kapalı dosyalarda boşluk olunca hata veriyor
listbox olmasa listview düşünüyorum

dosya ektedir

 

[Levent Menteşoğlu]

Listbox1'deki kodu aşağıdaki ile değiştirerek deneyin.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim baglanti As Object, yer As Object, sayfa As Object
Set baglanti = New ADODB.Connection
Set yer = New ADODB.Recordset
ListBox2.Clear
baglanti.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & _
ThisWorkbook.Path & "\KartP\" & ListBox1.Value & ";Extended Properties=""Excel 12.0;HDR=no;IMEX=1"";"
yer.Open "Select * From [Sayfa1$] where F1 Is Not Null;", baglanti, adOpenStatic, adLockOptimistic
yer.MoveFirst
Do Until yer.EOF
ListBox2.AddItem yer(0)
yer.MoveNext
Loop
Label1.Caption = ""
Label1.Caption = ListBox1.Value
yer.Close
baglanti.Close
End Sub

 

[ikikan]

ilginiz için teşekürler sorun çözülmüş gibi fakat

15 veya 9 sütun ve karşılık gelen satırlar olacak

yer.MoveFirst
Do Until yer.EOF
ListBox2.AddItem yer(0)
yer.MoveNext
Loop

yer.MoveFirst
Do Until yer.EOF
ListBox2.AddItem yer(1)
yer.MoveNext
Loop

yaptıgımızda hata veriyor bir kac versiyon denedim ama olmadı ?