Когда вы разрабатываете рабочий лист, вам может потребоваться отслеживать определенную информацию о своей книге. Например, вы можете поместить дату создания книги в ячейку. Хотя Excel предоставляет некоторые функции рабочего листа для дат (например, СЕЙЧАС или СЕГОДНЯ), он не предоставляет функцию рабочего листа для доступа к дате создания книги.
Это означает, что ответ заключается в использовании макроса . Например, вы можете создать макрос, который будет определять текущую дату и вводить ее (как текст) в определенную ячейку. Затем этот макрос можно было запускать всякий раз, когда вы создавали новую книгу, присвоив макросу имя Auto_Open. Ниже приведен пример такого макроса:
Sub Auto_Open () Если Worksheets.Application.Range («A1») = «» Тогда Worksheets.Application.Range («A1») = Format (Дата, «длинная дата») End IfEnd Sub
Макрос проверяет, что находится в ячейке A1. Если там ничего нет, он помещает туда текстовую версию сегодняшней даты. Если там что-то уже есть (что будет происходить каждый раз, когда вы впоследствии откроете книгу), то информация останется нетронутой и невредимой.
Однако, возможно, наиболее удовлетворительный подход – это получить доступ на самом деле. операционной системы и извлеките дату создания файла для текущей книги. Это можно сделать с помощью следующей макрос-функции:
Функция CreateDate () As String Dim Temp As String On Error Resume Next Temp = CreateObject («scripting.filesystemobject»). _ GetFile (ActiveWorkbook.FullName) .dateCreated Если Err.Number 0 Then CreateDate = «Not Saved» Else CreateDate = Left (Temp, InStr (Temp, «») — 1) End If On Error Goto 0End Function
Обратите внимание, что этот подход не привязан к определенной ячейке на вашем листе. Чтобы использовать макрос, просто поместите следующее в любую ячейку вашего рабочего листа:
= CreateDate ()
Функция возвращает либо «Not Saved» (если рабочая книга является новым и ранее не сохранялось) или возвращает текстовое значение, представляющее дату создания книги.
Источник: