יצירת תיקיות אוטומטית

[אלי קרלי]

יצירת תיקיות אוטומטית

שלום לכולם,
אני עובד עם ווינדוס 7 ואופיס 2007.
אני עושה עכשיו סדר בתיקיות שיש לי ולצורך כך אני מעוניין ליצור המון תיקיות חדשות (תיקיה לכל לקוח, ובתוך כל לקוח ליצור תיקיות לפי שנים 2010, 2011, 2012, 2013 וכד').
האם יש דרך לתת למחשב רשימת לקוחות ורשימת תיקיות שאני רוצה שיהיו בתוך כל לקוח והוא יצור את התיקיות אוטומטית (מעין מקרו כזה, רק עם תיקיות ולא עם קבצים)?
תודה רבה..

 

[ziv98]

קובץ

ב - A2 - הכנס את תיקיית הבסיס שלך (סיים ב - \)
בעמודה B - רשימת לקוחות - בכל אורך שתבחר. חייב להיות רציף.
בעמודה C - רשימת שנים (תיקיות פנימיות).

שים לב !
לא הוספתי טיפול בשגויים, כלומר אני מניח ששמות התיקיות שייוצרו - חוקיים - אין כפילות, אין סימנים מיוחדים לא חוקיים וכו'.

 

[אלי קרלי]

מעולה - תודה רבה

 

[cartagena2001]

לא מצליח להוסיף תת תיקיות נוספות (חודשים)

שלום ziv98.
ראיתי את המאקרו שכתבת כאן ובדקתי אותו. הוא עובד יפה.

אני מנסה להוסיף קבוצה נוספת של תת תיקיות כך שבכל שנה יופיעו החודשים (עמודה D בקובץ המצורף).

איני מבין במאקרו וניסיתי להעתיק ולהתאים את הכתוב אך אני מקבל הודעת שגיאה מסוגים שונים (עשיתי כמה ניסיונות).

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

 

[ziv98]

התאמה למאקרו

קודם כל - שאפו !
אהבתי את הראש של הניסיון שצירפת - רק ככה לומדים.

המיקום של ה - LOOP שהוספת לא נכון:
הרעיון במקור הוא - עבור כל לקוח - בצע לופ על השנים - עבור ללקוח הבא, כלומר הלופ של הלקוח הוא פנימי ללופ על השנה (כנראה שייכת לא נכון את סיום הלולאה לפתיחה שלה: הלולאות נפתחות מבחוץ פנימה, ונסגרות מבפנים החוצה).

הקוד המותאם צריך להיות משהו כמו:

Sub folder_cre()

cust = 2

Do While Cells(cust, 2) <> ""
x = [A2] & Cells(cust, 2)
    MkDir [A2] & Cells(cust, 2)

    yyear = 2
     Do While Cells(yyear, 3) <> ""
     MkDir [A2] & Cells(cust, 2) & "\" & Cells(yyear, 3)
    
     
      mmonth = 2
       Do While Cells(mmonth, 4) <> ""
          MkDir [A2] & Cells(cust, 2) & "\" & Cells(yyear, 3) & "\" & Cells(mmonth, 4)
          mmonth = mmonth + 1
       Loop
     
      
      yyear = yyear + 1
     Loop

    cust = cust + 1
Loop

End Sub

 

[cartagena2001]

תודה רבה

אני מודה לך על הח"ח ועל המאקרו שתיקנת.
התמונה שצירפת עוזרת לי להבין ולהכיר עקרון שכלל לא הכרתי הכתיבת מאקרואים.

המאקרו עצמו עובד יפה, אבל התיקיות של החודשים מסודרות לפי ה-א', ב' (ראה צילום) ולא לפי סדר הופעתן בקובץ (ינואר, פברואר וכו').
אני יכול להסתפק בכך (דייני) אבל שואל בכל זאת: כיצד ניתן לסדר את החודשים לפי סדר הופעתם הכרונולוגי.

 

[ziv98]

סדר הופעה

מה שהצגת זה שסייר WIN מציג תיקיית ע"פ א-ב, וסדר החודשים אינו א-ב.
אתה יכול לשנות את שמות התיקיות ל - "01.ינואר" וכו'

 

[cartagena2001]

הבנתי. תודה