קריאת תאריך יצירת קובץ אקסל

[נע ונד]

שלום רב
ברצוני להשבית קבצי אקסל “זקנים” מיד עם פתיחתם
לצורך כך עלי לדעת את תאריך יצירת הקובץ
לאחר מכן אני משווה אותו לתאריך היום, בודק כמה ימים עברו, וסוגר את הקובץ (הכל ב auto_open)
האם, וכיצד אוכל לשלוף את תאריך היצירה של הקובץ ?

תודה לעונים

ארגמן

Win10

 

[מיכאל אבידן]

שלום רב
ברצוני להשבית קבצי אקסל “זקנים” מיד עם פתיחתם
לצורך כך עלי לדעת את תאריך יצירת הקובץ
לאחר מכן אני משווה אותו לתאריך היום, בודק כמה ימים עברו, וסוגר את הקובץ (הכל ב auto_open)
האם, וכיצד אוכל לשלוף את תאריך היצירה של הקובץ ?
תודה לעונים
ארגמן
Win10
צפה בקובץ המצורף 34128

ActiveWorkbook.BuiltinDocumentProperties("Creation Date")

 

[נע ונד]

ActiveWorkbook.BuiltinDocumentProperties("Creation Date")

היי
האם יש פתרון לזה ?
תודה

 

[נע ונד]

תודה רבה מיקי
כתמיד...
אתה כאן לסייע
שנה טובה לך

 

[מיכאל אבידן]

תודה רבה מיקי
כתמיד...
אתה כאן לסייע
שנה טובה לך

נסה (במקרו שיורץ על ידך - לא אוטומטי) מה קורה לשורת הפקודה הזאת:

D = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")

במקרה, הפרטי, שלך לא יזיק לציין את הארכיטקטורה של מע' ההפעלה ושל האופיס (32 בעיט או 64 ביט).

 

[נע ונד]

שלום מיקי
זה רץ בעזרת F8 צעד צעד ללא בעיה

()Sub Moty
D = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
End Sub​

וזה המחשב שלי


תודה