[حل شده] ذخیره یک شیط بصورت جداگانه

[2009tv]

سلام
مقدمه:
یک فایل اکسل با ماکرو حاوی چندین شیت دارم.
سوال:
دستوری می خواهم که مثلاً شیط 2 را فقط بصورت یک فایل اکسل جداگانه در یک مسیر خاص ذخیره کند!
مهمترین قسمت دستور برای من این است که بقیه شیت ها در فایل ذخیره شده جدید نباشند در واقع می خواهم با این کار یک فایل کم حجم تر داشته باشم که فقط یک شیت (مثلاً همان شیت 2) داشته باشد!
ممنون

[iranweld]

با سلام

در ماکروی ذیل یک فایل جدید به نام test1 ایجاد شده و شیت اکتیو فایل مرجع در فایل test1 کپی شده و در درایو D ذخیره میگردد

Sub sb_Copy_Save_Worksheet_As_Workbook()

Dim wb As Workbook

Set wb = Workbooks.Add

ThisWorkbook.ActiveSheet.Copy Before:=wb.Sheets(1)

wb.SaveAs "D:\test1.xlsx"


End Sub 

چنانچه فایلی با این نام قبلا در مسیر درایو D وجود داشته باشد با پیغام خطا مواجه میگردید.

[2009tv]

خیلی کاربردی و کامل بود و با توجه به برخی تغییراتی که مد نظرم بود (که البته همه راهکارها را توسط راهنمایی های شما در این سایت یاد گرفته ام) مشکلم حل شد!
ممنون