جدا کردن شیت های فایل به صورت فایل های مجزای اکسل

[~M*E*H*D*I~]

از کد زیر برای جدا کردن شیت های یک فایل به صورت فایل های مجزا میتونید بهره ببرید

Sub CreateWorkbooks()
Dim wb As Workbook
Dim wbs As Workbook
Dim sht As Object
Dim strSavePath As String
On Error GoTo ErrorHandler
Application.ScreenUpdating = False
strSavePath = "C:\Documents and Settings\vatan\Desktop\"
Set wbs = ActiveWorkbook
For Each sht In wbs.Sheets
sht.Copy
Set wb = ActiveWorkbook
wb.SaveAs strSavePath & sht.Name
wb.Close
Next
Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
MsgBox "Failed. Error number=" & Err.Number & ". Error description=" & Err.Description & "."
End Sub 

توجه داشته باشید در قسمت زیر مسیر مد نظر خودتون رو وارد کنید

strSavePath = "C:\Documents and Settings\vatan\Desktop\" 

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.