Diğer Excel Dosyalarının Sayfalarını Listeleme ve Köprü Oluşturma

[aliseydi44]

Merhaba arkadaşlar benim bir sorum olacaktı farklı farklı 17 adet excel dosyam var ve her dosyanın içinde 50'ye yakın sayfa var bu sayfaların isimlerini tek bir excel sayfasında listelemek ve o sayfalara köprü oluşturmak istiyorum nasıl yapabilirim? Aslında manuel olarak tek tek köprü oluştura oluştura yapılabiliyor tabiki ama baya uzun sürebilir o şekilde çünkü 1000 e yakın sayfa var

 

[murat_fidan]

Merhaba arkadaşlar benim bir sorum olacaktı farklı farklı 17 adet excel dosyam var ve her dosyanın içinde 50'ye yakın sayfa var bu sayfaların isimlerini tek bir excel sayfasında listelemek ve o sayfalara köprü oluşturmak istiyorum nasıl yapabilirim? Aslında manuel olarak tek tek köprü oluştura oluştura yapılabiliyor tabiki ama baya uzun sürebilir o şekilde çünkü 1000 e yakın sayfa var

Sub SayfaIsimleriniListele()
    Dim DosyaYolu As String
    Dim DosyaAdi As String
    Dim wsListe As Worksheet
    Dim wsHedef As Worksheet
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim satir As Long
    
    Set wsListe = ThisWorkbook.Sheets("Sayfaisimleri")
    wsListe.Cells.ClearContents
    satir = 1
    
    DosyaYolu = "C:\Dosyalar\" ' Dosyaların olduğu klasör yolunu belirtin.
    DosyaAdi = Dir(DosyaYolu & "*.xlsx") ' Sadece .xlsx dosyalarını alacağız.
    
    Do While DosyaAdi <> ""
        Set wb = Workbooks.Open(DosyaYolu & DosyaAdi)
        For Each ws In wb.Sheets
            wsListe.Hyperlinks.Add _
                Anchor:=wsListe.Cells(satir, 1), _
                Address:="", _
                SubAddress:= "'" & ws.Name & "'!A1", _
                TextToDisplay:=ws.Name
            satir = satir + 1
        Next ws
        wb.Close SaveChanges:=False
        DosyaAdi = Dir
    Loop
End Sub

 

[aliseydi44]

çok teşekkür ederim sağolun