@אוריי אני רואה שהתקדמת יפה, תמשיך כך!
האובייקט CurrentProject הוא ספציפי לאקסס, אבל תוכל פשוט לשלוף את המיקום של החוברת הפעילה על ידי
הנה פונקציה שמעתיקה גליון לפי שם לחוברת חדשה בתיקייה הנוכחית:
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"