@dovid כתב בעזרה | משתנה חודשים עוקבים שחוזר לתחילת שנה:
אם הבנתי את כוונתך (אתה קצת שאלת בפורמט בעיית הXY...)
ממש לא שאלתי בפורמט המדובר... פשוט ראיתי שלא הבינו את כוונתי אז עברתי ל-Y.
כיוון שהחברים כאן דנים בשאלתי אם היא X או Y.
אני אפרוס בפניכם בדיוק מה אני צריך, אבל זה קצת ארוך, אם יש לכם סבלנות. (אתם שאלתם ..
)
אני באמצע לכתוב את הקוד הבא:
יש לי תיקיה במחשב, בתוך התיקיה יש 12 תיקיות משנה שכולם מסתיימים ב-2 תווים המכילים שמות של חודשים " 01", "02" וכן הלאה.
הצורך שלי הוא לפתוח במכה אחת 12 קבצים (קובץ אחד בודד שנמצא בכל תיקיה X12) - יש להם מכנה משותף מסוים שלכולם יש אותה סיומת: "csv." ולשם כך יצרתי את המאקרו הבא, שעובד מצוין רק עד הקטע שהוא פותח את הקובץ הראשון. ועל מנת להמשיך הגעתי לפורום הנכבד שלנו שיאירו את עיני. אז הנה הקוד:
Sub PK12()
Dim B_tikia As FileDialog
Dim M_tikia As String
Dim ntiv_M As String
Dim ntiv_H As String
Dim mon_A As String
'בחר תיקיה ראשונה מתוך 12 בחלון שיפתח
Set B_tikia = Application.FileDialog(msoFileDialogFolderPicker)
B_tikia.Title = "בחר תיקיה המכילה את קבצי חודש 09 "
'פתח חלון שאילתא למשתמש
B_tikia.Show
'הכנס למשתנה את נתיב התיקיה שנבחרה
M_tikia = B_tikia.SelectedItems(1)
'בדיקה לקובץ אפשרי בתוך התיקיה
ntiv_M = M_tikia & "\" & "*.csv"
'נתיב חדש המספק את השם של הקובץ
ntiv_H = M_tikia & "\" & Dir(ntiv_M)
'פתיחת הקובץ
If Dir(ntiv_M) <> "" Then Workbooks.Open ntiv_H
'משתנה 2 תוים אחרונים בסוף נתיב התיקיה
mon_A = Right(M_tikia, 2)
End Sub
המשתנה "mon_A" מכיל את החודש הראשון ואני מחפש משתנה שיקצר לי את הקוד.
