Kapalı dosyadaki sayfa ismini değiştirme

[pylor]

Değerli form uzmanları konu başlığındanda anlaşılacağı gibi yapmaya çalıştığım iş kapalı excel dosyasındaki çalışma sayfasının ismini değiştirmek. bir klasör içinde yaklaşık 400 adet değişik isimde excel dosyası var bu dosyaların hepsinde çalışma sayfasının ismi Sheet olarak kaydedilmiş ben bu ismi "1" olarak değiştirmek istiyorum bu konu hakkında formda biraz araştırma yaptım sayfa ismi değiştirme ile ilgili bir çok konu var ama kapalı dosyadaki sayfa ismini değiştirme ile ilgili bir konu açılmamış bu konuda bana yardımcı olursanız minnettar kalırım yardımlarınız için şimdiden teşekkürler iyi akşamlar

 

[Huseyinkis]

Bir excel dosyası kod bölümüne ekteki kodları yapıştırıp dosyaların bulunduğu klasörü Yol= kısmına yazın ve çalıştırın.

Sub DenemeAdo()
    Dim Yol As String, Dosya As String
    Dim K2 As Workbook
    
    On Error Resume Next
    Yol = "C:\Stok\Dosyalar\"
    
    Dosya = Dir(Yol & "*.xls")
    Do While Len(Dosya) > 0
    Set K2 = Workbooks.Open(Yol & Dosya, False, False)
    Windows(Dosya).Activate
    Sheets("Sheet").Name = "1"
    K2.Close True
    Dosya = Dir()
    Loop
End Sub

 

[pylor]

Sayın huseyinkis yardımınızdan dolayı teşekkür ederim kodlar işime yaradı iyi akşamlar iyi çalışmalar