תחומים
    • הרשמה
    • התחברות
    • חיפוש
    • קטגוריות
    • פוסטים אחרונים
    • משתמשים
    • חיפוש
    חוקי הפורום

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

    תוכנה
    2
    3
    105
    טוען פוסטים נוספים
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
    תגובה
    • הגיבו כנושא
    התחברו בכדי לפרסם תגובה
    נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
    • אוריי
      אוריי נערך לאחרונה על ידי

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

      ניתן לפנות אלי גם ב al0548446188@gmail.com
      ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

      תגובה 1 תגובה אחרונה תגובה ציטוט 0
      • אוריי
        אוריי נערך לאחרונה על ידי

        התקדמתי שלב
        יש לי קוד 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
        

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

        ניתן לפנות אלי גם ב al0548446188@gmail.com
        ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

        OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 0
        • OdedDvir
          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"
          
          תגובה 1 תגובה אחרונה תגובה ציטוט 4
          • 1 / 1
          • פוסט ראשון
            פוסט אחרון
          בא תתחבר לדף היומי!