حذف اوراق عن طريق ماكرو

[جمال حسين رشدان]

السلام عليكم ورحمة الله وبركاته

اعضاء المنتدى الكرام

هل يمكن حذف اوراق متعددة من ملف اكسل عن طريق ماكرو ؟

وهل يمكن وضع زر يعمل بالماكرو لحفظ الملف بعد التعديل في مسار محدد دون السؤال عن مكان الحفظ او فتح موقع الحفظ الافتراضي في الاكسل 

وجزاكم الله خيرا

[Ali Mohamed Ali]

وعليكم السلام -يمكنك استخدام هذا الكود لحذف جميع صفحات الملف الفارغة

Sub RemoveBlankSheets_AllWorkbooks()
Dim wb As Workbook
Dim sht As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
  For Each wb In Application.Workbooks
    For Each sht In wb.Worksheets
      If WorksheetFunction.CountA(sht.Cells) = 0 And _
        wb.Sheets.Count > 1 Then sht.Delete
    Next sht
Next wb
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

تفضل-فمثلا لو عندك بارتشن D عليك بعمل فولدر داخله وسميه Data 

او غير كما تشاء في الكود-تفضل وفى الخلية D3 يكون موجود اسم الملف

Sub Test()
Dim FP As String, FN As String
FP = "D:\Data\"
FN = Range("D3").Value
ActiveWorkbook.SaveAs Filename:=FP & FN & ".xls"
End Sub