Kapalı dosyadan veri silme

[steppe]

Merhaba Arkadaşlar,
Örnek dosyada detaylı açıkladığım klasörlerin içindeki dosyaların istenilen sayfaların verilerini nasıl silebilirim.
Yardımlarınız için şimdiden teşekkür ederim.

 

[askm]

Aşağıdaki kodları deneyin. Yalnız klasör, dosya ve sayfa isimlerini düzgün yazmanız gerekli.

Sub askm()
Dim SonSat As Long
SonSat = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
For i = 2 To SonSat
    Yol = ThisWorkbook.Path & "\" & Range("A" & i)
    Dosya = Range("B" & i) & ".xls"
    If Cells(i, 1) = "a1" Then
        Set ac = Workbooks.Open(Yol & "\" & Dosya)
            For x = 3 To 5
                Sayfa = Cells(i, x)
                ac.Sheets(Sayfa).Range("A2:D20").ClearContents
            Next x
        ac.Close True
    ElseIf Cells(i, 1) = "b2" Then
        Set ac = Workbooks.Open(Yol & "\" & Dosya)
            For x = 3 To 5
                Sayfa = Cells(i, x)
                ac.Sheets(Sayfa).Range("A2:E47").ClearContents
            Next x
        ac.Close True
    End If
Next
MsgBox "Dosyalardan veriler silindi...", vbInformation, "ASKM"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

[steppe]

askm Kardeş,
Yardımınız için çok teşekkür ederim.Sorunsuz çalışıyor.

 

[askm]

Rica ederim.