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

[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]

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