דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תוכנה
  3. קוד vba ליצוא גיליון ספציפי מתוך אקסל

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

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

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

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

    תגובה 1 תגובה אחרונה
    0
    • אורייא מנותק
      אורייא מנותק
      אוריי
      כתב ב נערך לאחרונה על ידי
      #2

      התקדמתי שלב
      יש לי קוד 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
      ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

      OdedDvirO תגובה 1 תגובה אחרונה
      0
      • OdedDvirO מנותק
        OdedDvirO מנותק
        OdedDvir
        השיב לאוריי ב נערך לאחרונה על ידי
        #3

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

        בא תתחבר לדף היומי!
        • התחברות

        • אין לך חשבון עדיין? הרשמה

        • התחברו או הירשמו כדי לחפש.
        • פוסט ראשון
          פוסט אחרון
        0
        • דף הבית
        • קטגוריות
        • פוסטים אחרונים
        • משתמשים
        • חיפוש
        • חוקי הפורום