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 bu koddaki hata nedir listboxa veriyi alıyor ama garip karakterler koyuyor ve sıralı almıyor?
Sub VERİAL1()
'On Error Resume Next
'Dim Katalog As Object, Data As Object, Tablo As Object
'Dim son1, Dosya_Yolu
klasör = ThisWorkbook.Path
Dosya_Yolu = klasör & "\" & "VRDATA.xlsb"
Sheets("HES").ListBox1.Clear
Set Data = CreateObject("ADODB.Connection")
Set Katalog = CreateObject("ADOX.Catalog")
Data.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & Dosya_Yolu & ";Extended Properties=""Excel 12.0;HDR=yes""" 'ofis 2007
Katalog.ActiveConnection = Data
Dim x
For x = 0 To 20
Sheets("HES").ListBox1.AddItem Katalog(x).Name
Next
Set Data = Nothing
Set Katalog = Nothing
Call KONUMLAR1
End Sub