Kapalı bir dosyadaki sayfa isimlerini comboboxa. Almak

[udentr2002]

Merhaba
Hocam ağda bulunan deneme adlı bir dosyam var. Ben userformun initialize kısmına form üzerindeki comboboxa deneme adlı dosyadaki sayfa adlarını aldırmak istiyorum masıl yapabilirim

 

[halit3]

Merhaba
Hocam ağda bulunan deneme adlı bir dosyam var. Ben userformun initialize kısmına form üzerindeki comboboxa deneme adlı dosyadaki sayfa adlarını aldırmak istiyorum masıl yapabilirim

Ağdaki dosya isimlerini alırmı bilmem ama bu kod bilgisayardaki excel dosyalarından herhangi birinin sayfa isimlerini listeliyor.

Sub dosyaListele()

On Error Resume Next
Dim Katalog As Object, Data As Object, Tablo As Object
Dim son1, Dosya_Yolu
Dosya_Yolu = "buraya dosyayolu yazılacak"
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
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
[COLOR="Red"]Combobox1.AddItem[/COLOR] Left$(son1, Len(son1) - 1)
End If
End If
End If
End If
End If
Next
Set Data = Nothing
Set Katalog = Nothing

End Sub

 

[udentr2002]

Hocam ben aşağıdaki gibi denedim dediğim dosyayı açıyor fakat comboboxa sayfa isimlerini getirmiyor nasıl bir değişiklik yapmam lazım

Dim i as integer
Workbooks.Open"\\dosyayolu.xlsx"
For i = 1 to Shets.Count
Combobox1.Additem Sheets(i).Name
Next i

Burda yaptığım hata nedir?
Sayfa isimlerini aldıktan sonra kapatacak o dosyayı

 

[halit3]

Ekli dosyayı irdeleyin

 

[udentr2002]

Hocam ilginiz ve cevabınız için teşekkürler.
Ayıp olacak ama cep ten yazıyorum şu su an size office dosyalarını açmıyor.
Bu yüzden yanlış anlamazsanız şayet sadece o bölüme ait kodları yazabilir misiniz buraya?
Selametle

 

[halit3]

Hocam ilginiz ve cevabınız için teşekkürler.
Ayıp olacak ama cep ten yazıyorum şu su an size office dosyalarını açmıyor.
Bu yüzden yanlış anlamazsanız şayet sadece o bölüme ait kodları yazabilir misiniz buraya?
Selametle

Ben 2 nolu mesajdaki kod ile bu işin yapılacağını dosya ile göstermek istedim.

 

[udentr2002]

Hocam peki benim koddaki mantık hatası nedir?

 

[halit3]

Hocam peki benim koddaki mantık hatası nedir?

kodu böyle deneyin

Dim i As Integer
Workbooks.Open "\\dosyayolu.xlsx"
For i = 1 To [COLOR="Red"]ActiveWorkbook.Sheets.Count[/COLOR]
Combobox1.AddItem Sheets(i).Name
Next i

 

[udentr2002]

Hocam teşekkürler saolun

 

[halit3]

Hocam teşekkürler saolun

İyi çalışmalar.