macro ile sekme silmek

[fealdown]

İyi günler kolay gelsin,şimdi ben bi macro yapmak istiyorum yaptığım macroda; kapalı excel dosyaları var mesela onların içinde sayfa4 sekmesi varsa o sekmeyi silmesini istiyorum nasıl yapabilirim acaba ?

 

[Asri]

VBA tools references da Microsoft Script Runtime işaretli olmalı.
aradizin="C:\deneme" yi sizin dosyalarınızın bulunduğu yer olarak değiştirin.
Alt klasörleri destekler.

Dim dosya As String
Sub dosyalari_bul()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
    Dim Folder As Scripting.Folder, Subfolder As Scripting.Folder, File As Scripting.File
    Dim wb As Workbook
    Set Fso = CreateObject("Scripting.FileSystemObject")

  [COLOR=Red]  aradizin = "C:\deneme"

[/COLOR]    Set Folder = Fso.GetFolder(aradizin)
    i = 0
    If Folder.SubFolders.Count > 0 Then
      For Each Subfolder In Folder.SubFolders
        For Each File In Subfolder.Files
            i = i + 1
            Cells(i, 1).Value = File.Name
            If InStr(File.Name, ".xls") > 0 Then
               dosya = File
               Call sayfa_sil
            End If
        Next
      Next
    End If
     
    For Each File In Folder.Files
      If InStr(File.Name, ".xls") > 0 Then
         dosya = File
         Call sayfa_sil
      End If
    Next
    Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Sub sayfa_sil()
 On Error Resume Next
 Workbooks.Open (dosya)
 
 On Error Resume Next
 Sheets("Sayfa4").Delete
 
 ActiveWorkbook.Save
 ActiveWorkbook.Close
End Sub

 

[fealdown]

teşekkür ederim sağolun