אופיס 365 קוד להוספת גליון באקסל ולייבוא גליון מקושר

[לוי א]

דחוף מאוד!! אשמח אם מישהו יוכל לעזור בדחיפות!!
אני צריך 2 קודים;
1. קוד להוספת גליון באקסל (אני צריך להוסיף באזור ה-200 גליונות ואני רוצה לולאה שתריץ את זה זה)
2. קוד ליצירת טבלה מקושרת באקסס לגליון ספציפי באקסל (אני צריך לעבוד על ה-200 גליונות הנ"ל להזין אליהם נתונים מתוך טבלאות באקסס, לכן אני רוצה לייבא טבלה מקושרת של הגליונות שאני אצור, ואז להריץ לולאה עם שאילתת הוספה לגליונות האלו)

זה דחוף מאוד אשמח מאוד מאוד לכל עזרה בענין
בתודה מראש

 

[xl3391]

קוד להוספת גליון באקסל

Sheets.Add

 

[לוי א]

Sheets.Add

תודה!
איך אני יכול לקבוע איך יקראו לגליון?

אולי יש פתרון אחר גם לעצם הבעיה שלי (שבשבילה חיפשתי קוד לייבוא אקסל לאקסס)

יש לי טבלה ענקית עם מלא נתונים ואני צריך לחלק אותם ל150 גליונות אקסל לפי סינון מסוים (לדוגמא כל הרשומות שמופיע להם בשם פריט 'חולצה' להכניס לגילון 'חולצה'
איך אני יכול לעשות את זה דרך קוד ?

 

[xl3391]

אגב, אפשר בשתי שניות לפתוח קובץ אקסל חדש עם 200 גליונות ללא קוד.
פשוט להגדיר שבעת פתיחת קובץ חדש יפתחו 200 גיליונות.
כאן:

 

[xl3391]

איך אני יכול לקבוע איך יקראו לגליון?

 

[לוי א]

תודה רבה!!
מה עם הבעיה השניה - והעיקרית שלי?

 

[xl3391]

יש לי טבלה ענקית עם מלא נתונים ואני צריך לחלק אותם ל150 גליונות אקסל לפי סינון מסוים (לדוגמא כל הרשומות שמופיע להם בשם פריט 'חולצה' להכניס לגילון 'חולצה'
איך אני יכול לעשות את זה דרך קוד ?

​

יש לי קובץ תוסף אקסל שעושה את זה בדיוק.

כאן.
לבחור בזה:

 

[לוי א]

הקישור חסום לי
תוכל לשלוח לי את הקובץ?

 

[xl3391]

מצ"ב

 

[לוי א]

איך אני משתמש בזה?

 

[xl3391]

שים לב שזה תוסף.
צריך ליצור אייקון מקשר לתוכנית הרצויה.

 

[לוי א]

אני לא כל כך מבין בזה
איך אני מוסיף אייקון?

 

[xl3391]

תפתח את הקובץ. (לא תראה כלום וזה בסדר. זה רק קוד VBA)
גש לאפשרויות אקסל>התאמת סרגל כלים לגישה מהירה.
תבחר פקודות מאקרו.
תבחר בתוכנית ShowSplitToFilesForm
תלחץ הוסף. (אפשר גם לשנות את הסמל)
אישור.

כעת מופיע לך לחצן בסרגל גישה מהירה. אחרי שתפתח את הקובץ אותו אתה רוצה לחלק לפי עמודה, תלחץ עליו והוא יחלק אותו ע"פ מה שתגדיר.

 

[xl3391]

אם צריך צילומי מסך תרשום ואוסיף יותר מאוחר.

 

[xl3391]

 

[לוי א]

הוא מחזיר לי שגיאה כזו

 

[xl3391]

מיד כשאתה לוחץ עליו או לאחר שהגדרת לפי איזו עמודה לפצל?

 

[לוי א]

לאחר שהגדרתי איזה עמודה לפצל

 

[לוי א]

פה

 

[לוי א]

יכול להיות בגלל שהיו ערכים ריקים?