نمایش نتایج: از شماره 1 تا 2 , از مجموع 2

موضوع: جداسازی شیت های اکسل در پوشه جداگانه

  1. #1


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    جداسازی شیت های اکسل در پوشه جداگانه

    سلام با این کد میتونید همه شیت های ی فایلتون رو جدا کنین و در پوشه مورد نظر ذخیره کنین
    درضمن این کد مشکلات نوع و پسوند فایل رو نداره و برای همه نوع فایل اکسل جواب میده
    کد:
    Sub SplitWorkbook()'Updateby20140612
    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
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.



  2.  

  3. #2


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    این کد زمانی به درد شما میخوره که میخواین بعد از فرایندی مثلا گزارش گیری فقط شیت هایی که مد نظرتون هست در در شیت های جداگانه ( نه یک فایل جداگانه!) براتون ذخیره بشه

    برای حالت داخل پرانتز از تایپیک زیر استفاده کنین
    جداسازی شیت های موردنظر
    ویرایش توسط ali.b : 2014/08/23 در ساعت 13:22




اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. ذخیره فایل در پوشه موردهای انتخابی
    توسط ali.b در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 2014/07/08, 14:10
  2. ساختن پوشه
    توسط alirezaariana در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 0
    آخرين نوشته: 2014/06/19, 18:05
  3. چگونه همپوشاني تاريخ ها را مشخص كنم؟
    توسط safaei.mehdi@mapnablade.com در انجمن كاربرد اكسل در رشته هاي مختلف
    پاسخ ها: 13
    آخرين نوشته: 2012/11/08, 13:42
  4. پویا سازی شیت ها
    توسط z326m در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 0
    آخرين نوشته: 2011/10/11, 17:58

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

طریقه جدا کردن شیتهای اکسل

چگونه شیت های یک کاربرگ راجدا ذخیره کنیم

ذخیره یک شیت از فایل اکسل

ذخیره کردن یک شیت جداگانه

https:forum.exceliran.comshowthread.php5442-جداسازی-شیت-های-اکسل-در-پوشه-جداگانه

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است