אתה משתמש במאקרו זה כדי להקליט היסטוריית גירסאות
ישנם חוברות עבודה רבות שיש לשמור במרווחים קבועים. אם אתה תמיד משתמש בשם אחר, תוכל לעקוב אחר בדיוק הנתונים שנמצאו בחוברת העבודה באיזו נקודת זמן.
במיוחד שימושי להשתמש בחותמת שעה-תאריך בעת שמירת הקובץ. אתה משתמש בשילוב של תאריך ושעה כשם הקובץ. לדוגמה, אם הקובץ נשמר ב- 27/08/2008 בשעה 10:32 ו -26 שניות, שם הקובץ הוא:
20080827-103226
היתרון בחותמת תאריך-שעה כזו הוא שתצוגת הקבצים בסדר אלפביתי (למשל עם סייר Windows) תואמת גם את הסדר הכרונולוגי.
הגדרת שמות הקבצים הנוכחיים באופן ידני גוזלת זמן ומועדת טעויות. במקום זאת, השתמש במקרו הבא:
Sub WithTimestampSave ()
חותמת זמן עמומה כמחרוזת
עמום עכשיו כתאריך
עכשיו = עכשיו ()
חותמת זמן תאריך = שנה (תאריך) ותבנית (חודש (תאריך), "00") ותבנית (יום (תאריך), "00")
חותמת זמן תאריך = חותמת זמן תאריך & "-" ופורמט (שעה (עכשיו), "00") ופורמט (דקה (עכשיו), "00") ופורמט (שני (עכשיו), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & חותמת תאריך & ".xls")
סיום תת
כאשר אתה קורא למאקרו, חוברת העבודה הפעילה נשמרת שוב בנתיב האחסון הקודם. חותמת התאריך-שעה משמשת כשם הקובץ, כפי שמוצג באיור הבא:
אם אתה גם רוצה לכלול חלון זה במאקרו שלך, שלב את שורת התוכנית הבאה כשורה חדשה ונפרדת מול השורה סיום תת:
MsgBox (ActiveWorkbook.Path)
