ikikan
Altın Üye
- Katılım
- 3 Mart 2009
- Mesajlar
- 517
- Excel Vers. ve Dili
- excel 2003 tr
- Altın Üyelik Bitiş Tarihi
- 12.02.2026
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
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