ahmedhossin قام بنشر يناير 23, 2020 مشاركة قام بنشر يناير 23, 2020 السلام عليكم و رحمة الله و بركاته جزاكم الله خيرا كيف يمكنني ان يتم الحفظ بالايام يعني عندما يتم ملا الخانات باليوم محدد يتم حفظه و ثم يتم العمل في اليوم الثاني مثلا يكون اليوم الاول محفوظ مباشرة بارك الله فيكم بحثت عليه و لكن دون جدوي التقرير اليومي للاستشارة2020.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة أحمد يوسف قام بنشر يناير 23, 2020 أفضل إجابة مشاركة قام بنشر يناير 23, 2020 وعليكم السلام-يمكنك استخدام وتطويع هذا الكود Sub SplitWorkbook() Dim FileExtStr As String Dim FileFormatNum As Long Dim xWs As Worksheet Dim xWb As Workbook Dim FolderName As String Application.ScreenUpdating = False Set xWb = Application.ThisWorkbook DateString = Format(Now, "yyyy-mm-dd hh-mm-ss") FolderName = xWb.Path & "\" & xWb.Name & " " & DateString MkDir FolderName For Each xWs In xWb.Worksheets xWs.Copy If Val(Application.Version) < 12 Then FileExtStr = ".xls": FileFormatNum = -4143 Else Select Case xWb.FileFormat Case 51: FileExtStr = ".xlsx": FileFormatNum = 51 Case 52: If Application.ActiveWorkbook.HasVBProject Then FileExtStr = ".xlsm": FileFormatNum = 52 Else FileExtStr = ".xlsx": FileFormatNum = 51 End If Case 56: FileExtStr = ".xls": FileFormatNum = 56 Case Else: FileExtStr = ".xlsb": FileFormatNum = 50 End Select End If xFile = FolderName & "\" & Application.ActiveWorkbook.Sheets(1).Name & FileExtStr Application.ActiveWorkbook.SaveAs xFile, FileFormat:=FileFormatNum Application.ActiveWorkbook.Close False Next MsgBox "You can find the files in " & FolderName Application.ScreenUpdating = True End Sub 3 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر يناير 24, 2020 مشاركة قام بنشر يناير 24, 2020 طبعاً فى مديول جديد رابط هذا التعليق شارك More sharing options...
ahmedhossin قام بنشر يناير 24, 2020 الكاتب مشاركة قام بنشر يناير 24, 2020 ممكن جزاك الله خيرا تجربها على الملف المرفق لانها لم تنجح لي جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.