[حل شده] راهنمایی در کد

[kazem1359]

سلام در فایل زیر با اجرا ماکرو شیت 1 در فایل جداگانه ای در درایو دی ذخیره میشه حال مشکل اینجاست که به تعداد شیتهای موجود در فایل اصلی یک فایل جداگانه ساخته میشه که بنده می خواهم فقط از شیت 1 فایل ساخته بشه یعنی یک فایل.؟
یک کمک دیگه : چطور میشه فایلی که از شیت ساخته میشه در همان درایوی باشه که فایل اصلی وجود داره؟
لطفا کمک نمایید

فایل

http://s5.picofile.com/file/8374776084/%D8%AC%D8%AF%D8%A7_%DA%A9%D8%B1%D8%AF%D9%86_%D8%B4%DB%8C%D8%AA_%D8%AF%D8%B1_%D9%81%D8%A7%DB%8C%D9%84_%D8%AF%DB%8C%DA%AF%D9%87.xlsm.html

[majid_mx4]

با سلام

فقط کافیست Exit sub را به کد خود اضافه کنید .

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 = "d:\"
Set wbs = ActiveWorkbook
For Each sht In wbs.Sheets
Sheet1.Copy
Set wb = ActiveWorkbook
wb.SaveAs strSavePath & sht.Name
wb.Close

Exit Sub

Next
Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
MsgBox "Failed. Error number=" & Err.Number & ". Error description=" & Err.Description & "."
End Sub

پایدار باشید میر

[kazem1359]

ممنون سپاس فراوان