Aynı klasör içindeki çalışma sayfalarını silme

[vuranoğlu]

İyi akşamlar

Aynı klasör içindeki yaklaşık 35 adet çalışma sayfasındaki verileri makro ile silebilir miyiz?

 

[leumruk]

Selamlar,
Linki inceleyiniz...
http://www.excel.web.tr/f48/dosya-silme-t124280.html

İşinize yaramazsa deletefile ya da Kill file kelimeleri ile arama yapınız.

 

[ASLAN7410]

Merhaba, sayın Asri Bey'in aşağıdaki linkte sizin istediğinizi karşılayacak bir program var.
Bir inceleyin isterseniz.

http://asriakdeniz.com/excel-coklu-dosya-silme-programi/

 

[halit3]

İyi akşamlar

Aynı klasör içindeki yaklaşık 35 adet çalışma sayfasındaki verileri makro ile silebilir miyiz?

bu kod seçilen klasörün içindeki dosyaların sayfalarındaki verileri siler

Sub dosyalardaki_verileri_sil()
Set Klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0)
If Not Klasor Is Nothing Then
Kaynak = Klasor.SELF.Path
If InStr(1, Kaynak, "{") > 0 Then GoTo Atla
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Liste (Kaynak)
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Set Klasor = Nothing
MsgBox "işlem tamam"
Else
Atla:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If
End Sub

Private Sub Liste(yol As String)
Dim fs As Object, f As Object, i As Long
Set fs = CreateObject("Scripting.FileSystemObject")
Dim wb As Workbook
For Each dosya In fs.GetFolder(yol).Files
If ThisWorkbook.Name = dosya.Name Then GoTo atla1
If Mid(dosya.Name, 1, 2) = "~$" Then GoTo atla1

Set wb = Workbooks.Open(dosya)

For i = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Worksheets(Sheets(i).Name).Cells.ClearContents
Next i

ActiveWorkbook.Save
ActiveWindow.Close
atla1:
'Dir dosya
Next
On Error GoTo sonraki
For Each f In fs.GetFolder(yol).subfolders
Liste (f.Path)
sonraki:
Next
Set fL = Nothing
End Sub