קוד vba ליצוא גיליון ספציפי מתוך אקסל

[אוריי]

אני צריך קוד vba ליצוא גיליון אקסל מתוך קובץ אקסל.
(לדוגמא יש לי 10 גיליונות אני רוצה ליצא את גיליון data) לקובץ אקסל נפרד.
תודה מראש..

[אוריי]

התקדמתי שלב
יש לי קוד vba שפותח קובץ אקסל חדש

    'Adding New Workbook
    Workbooks.Add
    'Saving the Workbook
    ActiveWorkbook.SaveAs "C:\Users\Downloads\WorkbookName.xlsx"

עכשיו אני רוצה שהוא ישכפל אותו איפה שקובץ המקור נמצא כדוגמת זה ששם @OdedDvir השתמש בקוד CurrentProject
@OdedDvir אמר בהפעלת קוד vba באקסל דרך אקסס:

Dim xlFilePath As String
xlFilePath = CurrentProject.Path & "\" & "שם הקובץ שלך.xlsm"
xl.Workbooks.Open xlFilePath, True, False

אבל איך שניסיתי לשלב את זה לא הצלחתי ..

[OdedDvir]

@אוריי אני רואה שהתקדמת יפה, תמשיך כך!
האובייקט CurrentProject הוא ספציפי לאקסס, אבל תוכל פשוט לשלוף את המיקום של החוברת הפעילה על ידי

ActiveWorkbook.Path

הנה פונקציה שמעתיקה גליון לפי שם לחוברת חדשה בתיקייה הנוכחית:

Public Sub CopySheetToNewWorkBook(SheetName As String, NewWorkBookName As String)
    Dim savePath As String
    
    savePath = ActiveWorkbook.Path 'שמירת המיקום של החוברת הפעילה
    
    Sheets(SheetName).Copy
    
    ActiveWorkbook.SaveAs savePath & "\" & NewWorkBookName
    ActiveWorkbook.Close
End Sub

לדוגמה

CopySheetToNewWorkBook "רשימת תלמידים", "NewFile.xlsx"