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

[~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\" 

[mohamad127]

سلام
کجا باید این کد را وارد کنیم؟

[khakzad]

سلام
وارد محیط وی بی بشید(Alt+F11)
یک module ایجاد کنید و کد را اونجا پیست کنید

[ali.b]

این کد ها هم کارتو راه میندازه

Sub Print_PDF()
Dim Awb As Workbook
Dim Snr As Integer
Dim ws As Worksheet
Set Awb = ActiveWorkbook
 
 
For Each ws In Awb.Sheets
    If Not ws.Name = "Sheet1" Then
        'Sheets(ws.Name).Copy
        Awb.Sheets(ws.Name).Copy
        'Sheets(ws.Name).Select
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Awb.Path & "\" & Awb.Sheets(ws.Name).Name & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
       
        ActiveWindow.Close False
    End If
Next ws
 
 
End Sub

[ali.b]

و این یکی کمی فرق داره

Sub Print_PDF()
Dim Awb As Workbook
Dim Snr As Integer
Dim ws As Worksheet
Set Awb = ActiveWorkbook
 
 
For Each ws In Awb.Sheets
If Not ws.Name = "" Then
'Sheets(ws.Name).Copy
Awb.Sheets(ws.Name).Copy
'Sheets(ws.Name).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Awb.Path & "\" &[COLOR=#0000cd] Awb.Sheets(ws.Name).Range("G9"[/COLOR]).Value & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
 
ActiveWindow.Close False
End If
Next ws
 
 
 
 
End Sub

قسمتی که ابی هست رو به ادرس سلولی که میخوای هر شیت به نام اون سلول به صورت pdf ذخیره بشه، تغییر بده

[saj1373]

درخواست آموزش جداسازی شیت های اکسل

سلام
وارد محیط وی بی بشید(Alt+F11)
یک module ایجاد کنید و کد را اونجا پیست کنید

سلام برادر، میشه بیشتر توضیح بدین متوجه نشدم (چطور ذخیره میشه و...)..اجرکم عندالله.

[mohammad8531]

سلام بسیار ممنونم و بسیار کاربردی بود. فقط آیا میشه با فرمت خاص سیو کنه؟ می خوام XLS (فرمت 97-2003) ذخیره کنم

[lynxx]

با سلام و خسته نباشین به دوستان عزیز
من این کد رو وارد کردم خیلی خوب بود ولی من یک جا یی رو متوجه نشدم که چطور می توانیم فقط یک شیت رو بگیم برامون خروجی بگیره
و نکته بعدی این بود که نمی دونم چرا این کد سیو نمیشه ؟وقتی دباره باز می کنم میپپره ؟