Çoklu Köprü Nasıl Oluşturabilirim ?

[gökmen01]

Bir çalışma sayfasında çoklu köprü oluşturmak istiyorum. Çalışmamda listelerim bir klasör içerisinde her biri ayrı ayrı .xls olarak kayıtlı, o xls dosyalarına tek tuşla ulaşmak için köprü yapmak istiyorum fakat tek tek çok zor, toplu olarak kopyalama gibi bi şansım var mıdır? Toplu köprü atama gibi...

 

[Murat OSMA]

Merhabalar,

Excel dosyanızın içinde bulunduğu, uzantıları belirttiğiniz gibi xls olan dosyaları A sütununda listeler ve köprü oluşturur.

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    Dim Evn As Object, a%
    Set Evn = CreateObject("[COLOR="Red"]Scripting.FileSystemObject[/COLOR]")
    yol = ThisWorkbook.Path & "\"
    For Each dosya In Evn.[COLOR="red"]getfolder[/COLOR](yol).[COLOR="red"]Files[/COLOR]
        If [COLOR="red"]InStr[/COLOR](1, dosya.Name, "[COLOR="red"]xls[/COLOR]") [COLOR="Blue"]> 0[/COLOR] Then
            a = a + 1
            Cells(a, "A").Value = [COLOR="red"]Replace[/COLOR](dosya.Name, ".xls", "")
            If Evn.[COLOR="red"]FileExists[/COLOR](yol & Cells(a, "A") & ".xls") = True Then
                ActiveSheet.[COLOR="red"]Hyperlinks[/COLOR].Add [COLOR="red"]Anchor[/COLOR]:=Cells(a, "A"), _
                [COLOR="red"]Address[/COLOR]:=yol & Cells(a, "A") & ".xls" _
                , [COLOR="Red"]TextToDisplay[/COLOR]:="" & Cells(a, "A") & ""
            End If
        End If
    Next dosya
    a = Empty: Set Evn = Nothing
End Sub[/SIZE][/FONT]

 

[gökmen01]

Teşekkür

Teşekkürler Murat bey. Yollamış olduğunuz bilgiler için sağolun. Bu ara da yardımlarını esirgemeyen muygun beye de teşekkürler.