Kapalı dosyadan sayfa adını listboxa almak

[ikikan]

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

 

[halit3]

Alternatif kod:

Sub VERİAL1()

klasör = ThisWorkbook.Path
Dosya_Yolu = klasör & "\" & "VRDATA.xlsb"

Dim Katalog As Object, Data As Object, Tablo As Object
Dim son1
Set Data = CreateObject("ADODB.Connection")
Set Katalog = CreateObject("ADOX.Catalog")

Data.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};Dbq=" & Dosya_Yolu & ";"
Katalog.ActiveConnection = Data
For Each Tablo In Katalog.Tables
'MsgBox Tablo.Name
If InStr(1, Tablo.Type, "TABLE") > 0 Then
If Right(Tablo.Name, 19) <> "kaynağından_sorgula" Then
If Right(Tablo.Name, 14) <> "Yazdırma_Alanı" Then
son1 = Replace(Tablo.Name, "'", "")
If Right(son1, 1) <> "_" Then
If Right(son1, 1) = "$" Then
sat1 = Val(ListBox1.ListCount)
ListBox1.AddItem
ListBox1.List(sat1, 0) = Left$(son1, Len(son1) - 1)
End If
End If
End If
End If
End If
Next
Set Data = Nothing
Set Katalog = Nothing
Call KONUMLAR1
End Sub

 

[ikikan]

Halit bey neden kapalı dosyadaki sıraya göre almıyor ?

 

[Zeki Gürsoy]

Halit bey neden kapalı dosyadaki sıraya göre almıyor ?

Halit bey ç.dışı görünüyor. Sorunuzun cavabı ise;

ADO ile dosyayı fiziksel olarak açmadan alınacak sayfa listesi alfabetiktir.

 

[ikikan]

Halit bey ç.dışı görünüyor. Sorunuzun cavabı ise;

ADO ile dosyayı fiziksel olarak açmadan alınacak sayfa listesi alfabetiktir.

Zeki Bey ilginize teşekürler fakat alfabetikte almıyor? sebebi nedir acaba?

 

[halit3]

Zeki Bey ilginize teşekürler fakat alfabetikte almıyor? sebebi nedir acaba?

Sayfa isimleri alfabedik gelir eğer türkçe karekter veya sayısal değerlerle sayfa ismi varsa farklılık olabilir.

Alfabetik sayfaları gelmeyen dosyayı veri olmayacak şekilde sadece sayfa isimleri olacak şekilde ekleyin bir bakalım.