aymanalsayed74 قام بنشر يوليو 4, 2024 قام بنشر يوليو 4, 2024 نريد كود لحفظ شيت معين في ملف اكسل متعدد الشيتات لملف اكسل جديد
محمد هشام. قام بنشر يوليو 4, 2024 قام بنشر يوليو 4, 2024 وعليكم السلام ورحمة الله تعالى وبركاته جرب هل هدا ما تقصده 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
ياسر سيد أبوستيت قام بنشر يوليو 15, 2024 قام بنشر يوليو 15, 2024 ممكن نفس الكود ينسخ البيانات بدون المعادلات بداخل الشيت؟
محمد هشام. قام بنشر يوليو 15, 2024 قام بنشر يوليو 15, 2024 WS.Copy Set NewWb = ActiveWorkbook ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value NewWb.SaveAs fname, FileFormat:=51 NewWb.Close False Set NewWb = Nothing 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.