aymanalsayed74 قام بنشر يوليو 4 مشاركة قام بنشر يوليو 4 نريد كود لحفظ شيت معين في ملف اكسل متعدد الشيتات لملف اكسل جديد رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر يوليو 4 مشاركة قام بنشر يوليو 4 وعليكم السلام ورحمة الله تعالى وبركاته جرب هل هدا ما تقصده 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 2 رابط هذا التعليق شارك More sharing options...
ياسر سيد أبوستيت قام بنشر يوليو 15 مشاركة قام بنشر يوليو 15 ممكن نفس الكود ينسخ البيانات بدون المعادلات بداخل الشيت؟ رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر يوليو 15 مشاركة قام بنشر يوليو 15 WS.Copy Set NewWb = ActiveWorkbook ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value NewWb.SaveAs fname, FileFormat:=51 NewWb.Close False Set NewWb = Nothing 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان