حفظ شيت معين في ملف اكسل

[aymanalsayed74]

نريد كود لحفظ شيت معين في ملف اكسل متعدد الشيتات لملف اكسل جديد

[محمد هشام.]

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

جرب هل هدا ما تقصده

Sub SaveActiveSheetVBA()

Dim WS As Worksheet, NewWb As Workbook
Dim SPath As Variant, FileName As String, fname As String

Set WS = ThisWorkbook.Sheets("Sheet1")  ' تحديد ورقة العمل 

SPath = ThisWorkbook.Path & "\" ' مسار الملف

FileName = "TEST"   ' اسم الملف

fname = SPath & FileName

With Application
.DisplayAlerts = False
.ScreenUpdating = False
.CopyObjectsWithCells = False

        WS.Copy
        Set NewWb = ActiveWorkbook

    NewWb.SaveAs fname, FileFormat:=51
    NewWb.Close False
    Set NewWb = Nothing
    
    
    .DisplayAlerts = True
    .CopyObjectsWithCells = True
    .ScreenUpdating = True
  End With
End Sub

 

Copy another Workbook.xlsm

[ياسر سيد أبوستيت]

ممكن نفس الكود ينسخ البيانات بدون المعادلات بداخل الشيت؟

[محمد هشام.]

    WS.Copy
    Set NewWb = ActiveWorkbook
        ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
         NewWb.SaveAs fname, FileFormat:=51
          NewWb.Close False
    Set NewWb = Nothing