Използвате този макрос, за да записвате историята на версиите
Има много работни книги, които трябва да се записват на определени интервали. Ако винаги използвате различно име, тогава можете да следвате точно кои данни са били намерени в работната книга в кой момент от времето.
Особено полезно е да използвате печат за дата и час, когато запазвате файла. Използвате комбинация от дата и час като име на файла. Например, ако файлът е записан на 27.08.2008 г. в 10:32 и 26 секунди, името на файла е:
20080827-103226
Предимството на такъв печат за дата и час е, че показването на файловете по азбучен ред (например с Windows Explorer) също съответства на хронологичния ред.
Определянето на текущите имена на файлове ръчно отнема време и е склонно към грешки. Вместо това използвайте следния макрос:
Sub WithTimestampSave ()
Затъмнете времевата марка на датата като низ
Затъмнете сега като дата
Сега = Сега ()
Печат за дата и час = година (дата) & формат (месец (дата), "00") & формат (ден (дата), "00")
Печат за дата и час = Печат за дата и час & "-" & Формат (час (сега), "00") & Формат (минута (сега), "00") & Формат (втори (сега), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & печат за дата & ".xls")
End Sub
Когато извикате макроса, активната работна книга се записва отново в предишния път за съхранение. Печатът за дата и час се използва като име на файла, както е показано на следната фигура:
Ако искате също да включите този прозорец във вашия макрос, интегрирайте следния програмен ред като отделен, нов ред пред реда End Sub:
MsgBox (ActiveWorkbook.Path)
