Jūs izmantojat šo makro, lai ierakstītu versiju vēsturi
Ir daudzas darbgrāmatas, kuras jāsaglabā ar noteiktiem intervāliem. Ja vienmēr izmantojat citu nosaukumu, varat precīzi sekot, kuri dati kādā brīdī tika atrasti darbgrāmatā.
Saglabājot failu, ir īpaši noderīgi izmantot datuma un laika zīmogu. Kā faila nosaukumu izmantojat datuma un laika kombināciju. Piemēram, ja fails tiek saglabāts 28.08.2008 10:32 un 26 sekundes, faila nosaukums ir šāds:
20080827-103226
Šāda datuma un laika zīmoga priekšrocība ir tā, ka failu parādīšana alfabētiskā secībā (piemēram, ar Windows Explorer) atbilst arī hronoloģiskajai secībai.
Pašreizējo failu nosaukumu manuāla definēšana ir laikietilpīga un rada kļūdas. Tā vietā izmantojiet šādu makro:
Apakšdaļa arTimestampSave ()
Aptumšot datuma laika zīmogu kā virkni
Aptumšot tagad kā datumu
Tagad = tagad ()
Datuma laika zīmogs = gads (datums) un formāts (mēnesis (datums), "00") un formāts (diena (datums), "00")
Datuma laika zīmogs = datuma laika zīmogs & "-" un formāts (Stunda (tagad), "00") un formāts (minūte (tagad), "00") un formāts (otrais (tagad), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & date stamp & ".xls")
Beigt apakš
Zvanot makro, aktīvā darbgrāmata atkal tiek saglabāta iepriekšējā krātuves ceļā. Datuma un laika zīmogs tiek izmantots kā faila nosaukums, kā parādīts šajā attēlā:
Ja arī šo logu vēlaties iekļaut savā makro, integrējiet šo programmas rindu kā atsevišķu jaunu rindu rindas priekšā Beigt apakš:
MsgBox (ActiveWorkbook.Path)
