@אוריי אני רואה שהתקדמת יפה, תמשיך כך!
האובייקט 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"