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

[~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 & "\" & Awb.Sheets(ws.Name).Range("G9").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) ذخیره کنم:min18:

[lynxx]

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