üzerinde uf_isl isminde 4 pageli userform barındıran xls dosyları.

[hsayar]

arkadaşlar biraz eğlence birazda bir arkadaşa iyilik olsun diye bir poroje üzerinde çalışıyordum farklı kaydetmekten 100 lerce taslağı geçtim işyerinde kaopyalayıp evde yapıştırıncada dosya sayısı arttı tabi

özetle
kingston klasörü altında 100 lerce taslak var

bunların arasında uf_isl userformunu içerenlerin mümkünse üzerindeki multipage nesnesinde 4 page olanların listesini elde edebilirmiyim.

dosyalar

...\kingston\ ana klasörü altında
....\kingston\011207
....\kingston\021207
........

alt klasörleri altında aranacaktır.

 

[Skorpiyon]

Sayın hsayar,

Bugüne kadar bir excel kitabı içinde form olup olmadığını kontrol eden bir kodu hiç duymadım ve karşılaşmadım. Eğer var ise Süper olacaktır.

 

[hsayar]

inşallah vardır sn sertkaya

 

[hsayar]

bir kere daha hatıratayım dedim.

 

[Haluk]

Bugüne kadar bir excel kitabı içinde form olup olmadığını kontrol eden bir kodu hiç duymadım ve karşılaşmadım.

Şöyle birşey olabilir ....

Sub Test()
    Dim MyFile As Variant
    MyFile = Application.GetOpenFilename("Excel dosyaları, *.xls,", , "Dosya seçin...")
    Application.ScreenUpdating = False
    If Not MyFile = False Then
        Workbooks.Open MyFile
    Else
        Exit Sub
    End If
    For Each CodeMod In Workbooks(Dir(MyFile)).VBProject.VBComponents
        If CodeMod.Type = 3 Then
            MsgBox CodeMod.Name
        End If
    Next
    Workbooks(Dir(MyFile)).Close
    Application.ScreenUpdating = True
End Sub

 

[Skorpiyon]

Sayın Haluk,

Ne diyebilirim ki ... Tek kelime ile harikasınız.

 

[hsayar]

teşekkürler hocam yalnız beni istediğimi elde etmem için bira daha yardıma ihtiyacım var

Sub Test2()
    Dim MyFile As Variant
    MyFile = Application.GetOpenFilename("Excel dosyaları, *.xls,", , "Dosya seçin...")
    Application.ScreenUpdating = False
    If Not MyFile = False Then
        Workbooks.Open MyFile
    Else
        Exit Sub
    End If
    
    
    strUserform = "uf_isl"
    For Each CodeMod In Workbooks(Dir(MyFile)).VBProject.VBComponents
        If CodeMod.Type = 3 Then
            'MsgBox CodeMod.Name
            If CodeMod.Name = strUserform Then
            'MsgBox MyFile
            ThisWorkbook.Sheets(1).Cells(1, 1) = MyFile
            Else
            MsgBox MyFile & " kitabında " & strUserform & " formu yoktur"
            End If
        End If
    Next
    Workbooks(Dir(MyFile)).Close
    Application.ScreenUpdating = True
End Sub

şöyleki myfile değişkeni için

c:\denemeler\ klasörü va alt klasörü içindeki tüm excel belgelerini kapsamalı
aranacak userform adını inputbox ile sormalı
sorfunun çalıştığı çalışam kitabının 1 sayfasının a1 hücresinden aşağı doğru köprü linkli olarak listelenmeli.

yardımlarınız için teşekkürler

 

[hsayar]

hocam konunun devamı şeklinde olan soruma cevap verebilirmisiniz?

 

[hsayar]

http://www.excel.web.tr/showpost.php?p=238111&postcount=7

7. mesajımdaki sorum güncelliğini korumaktadır. ilginiz için teşekkürler