Excel дата сохранения файла в ячейке
Как сохранить файл с датой и временем в Excel?
Когда мы работаем с книгой, иногда нам нужно добавить текущую дату и время при сохранении файла. Возможно, вы можете ввести дату и время после имени файла в диалоговом окне «Сохранить как», но здесь я могу познакомить вас с простым трюком для автоматического выполнения этого задания.
Вкладка Office позволяет редактировать и просматривать в Office с вкладками и значительно упрощает работу .
- Повторное использование чего угодно: Добавляйте наиболее часто используемые или сложные формулы, диаграммы и все остальное в избранное и быстро используйте их в будущем.
- Более 20 текстовых функций: Извлечь число из текстовой строки; Извлечь или удалить часть текстов; Преобразование чисел и валют в английские слова.
- Инструменты слияния : Несколько книг и листов в одну; Объединить несколько ячеек / строк / столбцов без потери данных; Объедините повторяющиеся строки и сумму.
- Разделить инструменты : Разделение данных на несколько листов в зависимости от ценности; Из одной книги в несколько файлов Excel, PDF или CSV; От одного столбца к нескольким столбцам.
- Вставить пропуск Скрытые / отфильтрованные строки; Подсчет и сумма по цвету фона ; Отправляйте персонализированные электронные письма нескольким получателям массово.
- Суперфильтр: Создавайте расширенные схемы фильтров и применяйте их к любым листам; Сортировать по неделям, дням, периодичности и др .; Фильтр жирным шрифтом, формулы, комментарий .
- Более 300 мощных функций; Работает с Office 2007-2019 и 365; Поддерживает все языки; Простое развертывание на вашем предприятии или в организации.
Сохраните файл Excel с датой и временем, используя код VBA
Удивительный! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!
Экономьте 50% своего времени и сокращайте тысячи щелчков мышью каждый день!
За исключением ввода даты и времени вручную, следующий код VBA может помочь вам автоматически добавить текущую дату и время к имени файла. Пожалуйста, сделайте следующие шаги:
1. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.
2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.
Код VBA: автоматическое добавление даты и времени к имени файла
3, Затем нажмите F5 ключ для запуска этого кода, текущая дата и время были добавлены после имени вашей активной книги, см. снимок экрана:
Внимание: В приведенном выше коде вам нужно изменить путь к файлу и имя по своему усмотрению.
Люди добрые подкорректируйте, пожалуйста, код, а если точней помогите прописать путь к папке, в которую требуется сохранить файл. Папка находится в папке заказы под названием архив
Dim strDate As String
' Получение текущей даты и представление ее в формате "ддммгг"
strDate = Format(Now(), "ddmmyy")
' Сохранение книги в текущую папку под новым именем
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & strDate
Люди добрые подкорректируйте, пожалуйста, код, а если точней помогите прописать путь к папке, в которую требуется сохранить файл. Папка находится в папке заказы под названием архив
Dim strDate As String
' Получение текущей даты и представление ее в формате "ддммгг"
strDate = Format(Now(), "ddmmyy")
' Сохранение книги в текущую папку под новым именем
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & strDate
Dim strDate As String
' Получение текущей даты и представление ее в формате "ддммгг"
strDate = Format(Now(), "ddmmyy")
' Сохранение книги в текущую папку под новым именем
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & strDate
Не ленись, сначала поищи на форуме!
Я тут всех достал, но результат хороший!
Не ленись, сначала поищи на форуме!
Я тут всех достал, но результат хороший! DAKRAY
Я тут всех достал, но результат хороший! Автор - DAKRAY
Дата добавления - 18.12.2013 в 17:19
Вписывай в модуль книги (ThisWorkbook)
Private Sub Workbook_Open()
If Me.Name <> "Имя документа.xls" Then Exit Sub
Sheet1.[A1] = Format(Date, "ddmmyy")
End Sub
A1 - ячейка, в которую будет вписываться дата.
Вписывай в модуль книги (ThisWorkbook)
Private Sub Workbook_Open()
If Me.Name <> "Имя документа.xls" Then Exit Sub
Sheet1.[A1] = Format(Date, "ddmmyy")
End Sub
A1 - ячейка, в которую будет вписываться дата. DAKRAY
Private Sub Workbook_Open()
If Me.Name <> "Имя документа.xls" Then Exit Sub
Sheet1.[A1] = Format(Date, "ddmmyy")
End Sub
A1 - ячейка, в которую будет вписываться дата. Автор - DAKRAY
Дата добавления - 18.12.2013 в 17:23
DAKRAY, Что то не получается к сожалению я новичок в этой теме а вы не могли бы расписать конкретно по моему примеру.
DAKRAY, Что то не получается к сожалению я новичок в этой теме а вы не могли бы расписать конкретно по моему примеру. dx
Да я сам новичек.) Наверное не так понял.
Вы хотите, чтобы в названии файла вставлялась дата? А руками не проще? Все ровно же жмете кнопку сэйв ас.)
Я почему-то подумал что Вам в файле нужно в какой-то ячейке поставить сегодняшнюю дату и после сохранения, она там бы и осталась.) Просто вопрос наболевший на столько был, что сразу подумал что именно тоже самое нужно и Вам.)
Да я сам новичек.) Наверное не так понял.
Вы хотите, чтобы в названии файла вставлялась дата? А руками не проще? Все ровно же жмете кнопку сэйв ас.)
Я почему-то подумал что Вам в файле нужно в какой-то ячейке поставить сегодняшнюю дату и после сохранения, она там бы и осталась.) Просто вопрос наболевший на столько был, что сразу подумал что именно тоже самое нужно и Вам.) DAKRAY
Я почему-то подумал что Вам в файле нужно в какой-то ячейке поставить сегодняшнюю дату и после сохранения, она там бы и осталась.) Просто вопрос наболевший на столько был, что сразу подумал что именно тоже самое нужно и Вам.) Автор - DAKRAY
Дата добавления - 18.12.2013 в 18:08
DAKRAY, Мне нужно, что бы файл сохранялся с текущей датой. Не одним листом как в вашем примере, а целой книгой
DAKRAY, Мне нужно, что бы файл сохранялся с текущей датой. Не одним листом как в вашем примере, а целой книгой dx
О. Получилось. Тогда так. Сделайте кнопку, в нее код:
Sub CommandButton1_Click()
Dim strDate As String
strDate = Format(Date, "ddmmyy")
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & strDate
После ее нажатия, файл сохраняется с именем сегодняшней даты в формате ddmmyy.
О. Получилось. Тогда так. Сделайте кнопку, в нее код:
Sub CommandButton1_Click()
Dim strDate As String
strDate = Format(Date, "ddmmyy")
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & strDate
После ее нажатия, файл сохраняется с именем сегодняшней даты в формате ddmmyy. DAKRAY
Sub CommandButton1_Click()
Dim strDate As String
strDate = Format(Date, "ddmmyy")
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & strDate
После ее нажатия, файл сохраняется с именем сегодняшней даты в формате ddmmyy. Автор - DAKRAY
Дата добавления - 18.12.2013 в 18:18
День добрый, нашел макрос в интернете.
Все работает, но нужно немного подредактировать его
1) можно ли задать какую-нить комбинацию клавиш, чтоб этот макрос совершался ( любую, к примеру alt+v)
2) нужно чтобы название файла бралось из ячейки ( к примеру А1 листа 1) и вставлялось при сохранении файла
3) Чтобы в названии файла всегда присутствовала аббревиатура "СБ"
Т.е. при сохранении файла должно получиться следующее: "название из ячейки" + "СБ" + "сегодняшняя дата".
название исходного файла или "Копия" быть не должно.
Заранее спасибо.
Sub Макрос1()
Dim Wb As Workbook
Dim WbName As String
Dim iPath As String
Dim iFileName As String
Set Wb = ActiveWorkbook
WbName = Wb.Name
iPath = ThisWorkbook.Path & "\"
iFileName = Left(WbName, Len(WbName) - 4) + "_" + Format(Date, "yyyy/mm/dd") + ".xls"
'для проверки существования такого же файла
If Dir(iPath + iFileName) <> "" Then
MsgBox "Копия файла c датой " & Format(Date, "yyyy/mm/dd") & " в директории " & Chr(13) & iPath$ & " уже существует!", vbExclamation
Exit Sub
End If
Wb.SaveCopyAs (iPath + iFileName)
End Sub
День добрый, нашел макрос в интернете.
Все работает, но нужно немного подредактировать его
1) можно ли задать какую-нить комбинацию клавиш, чтоб этот макрос совершался ( любую, к примеру alt+v)
2) нужно чтобы название файла бралось из ячейки ( к примеру А1 листа 1) и вставлялось при сохранении файла
3) Чтобы в названии файла всегда присутствовала аббревиатура "СБ"
Т.е. при сохранении файла должно получиться следующее: "название из ячейки" + "СБ" + "сегодняшняя дата".
название исходного файла или "Копия" быть не должно.
Заранее спасибо.
Sub Макрос1()
Dim Wb As Workbook
Dim WbName As String
Dim iPath As String
Dim iFileName As String
Set Wb = ActiveWorkbook
WbName = Wb.Name
iPath = ThisWorkbook.Path & "\"
iFileName = Left(WbName, Len(WbName) - 4) + "_" + Format(Date, "yyyy/mm/dd") + ".xls"
'для проверки существования такого же файла
If Dir(iPath + iFileName) <> "" Then
MsgBox "Копия файла c датой " & Format(Date, "yyyy/mm/dd") & " в директории " & Chr(13) & iPath$ & " уже существует!", vbExclamation
Exit Sub
End If
Wb.SaveCopyAs (iPath + iFileName)
End Sub
1) можно ли задать какую-нить комбинацию клавиш, чтоб этот макрос совершался ( любую, к примеру alt+v)
2) нужно чтобы название файла бралось из ячейки ( к примеру А1 листа 1) и вставлялось при сохранении файла
3) Чтобы в названии файла всегда присутствовала аббревиатура "СБ"
Т.е. при сохранении файла должно получиться следующее: "название из ячейки" + "СБ" + "сегодняшняя дата".
название исходного файла или "Копия" быть не должно.
Заранее спасибо.
Sub Макрос1()
Dim Wb As Workbook
Dim WbName As String
Dim iPath As String
Dim iFileName As String
Set Wb = ActiveWorkbook
WbName = Wb.Name
iPath = ThisWorkbook.Path & "\"
iFileName = Left(WbName, Len(WbName) - 4) + "_" + Format(Date, "yyyy/mm/dd") + ".xls"
'для проверки существования такого же файла
If Dir(iPath + iFileName) <> "" Then
MsgBox "Копия файла c датой " & Format(Date, "yyyy/mm/dd") & " в директории " & Chr(13) & iPath$ & " уже существует!", vbExclamation
Exit Sub
End If
Wb.SaveCopyAs (iPath + iFileName)
End Sub
Как вставить последнюю сохраненную метку времени в ячейку листа в Excel?
Во многих случаях вам может потребоваться показать дату и время последнего сохранения файла Excel, чтобы узнать, когда файл был недавно обновлен. Вы можете решить эту проблему с помощью методов, представленных в этой статье.
Click Kutools > Workbook > Insert Workbook Information. The Insert Workbook Information utility helps you easily insert the last saved timestamp of current workbook on worksheet cell in Excel. See below screenshot:
Kutools for Excel includes more than 300 handy Excel tools. Free to try with no limitation in 60 days. Read More Download the free trial now
Вставьте последнюю сохраненную метку времени на лист с пользовательской функцией
Вы можете использовать следующую определяемую пользователем функцию, чтобы вставить последнюю сохраненную метку времени книги на определенный рабочий лист.
1. Нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте следующий код VBA в окно кода.
Код VBA: вставьте последнюю сохраненную метку времени на лист
3. Нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно и вернитесь к рабочему листу.
4. Выберите пустую ячейку, в которой будет отображаться последняя сохраненная метка времени книги, введите формулу. = LastSavedTimeStamp () и нажмите Enter нажмите клавишу, и отобразится номер.
5. Затем вам нужно отформатировать числовую ячейку как формат даты и времени, как показано на скриншоте ниже.
Теперь в выбранной ячейке отображается последняя сохраненная метка времени.
Примечание. Если вы хотите повторно использовать VBA в будущем, сохраните книгу как книгу Excel с поддержкой макросов.
Легко вставьте последнюю сохраненную метку времени на лист с помощью Kutools for Excel
Вставить информацию о книге полезности Kutools for Excel поможет вам быстро вставить последнюю сохраненную или измененную метку времени не только в указанную ячейку, но и в верхний или нижний колонтитул по мере необходимости.
Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.
1. Выберите пустую ячейку для отображения последней сохраненной метки времени, затем щелкните Кутулс Плюс > Workbook > Вставить информацию о книге. Смотрите скриншот:
2. в Вставить информацию о книге в диалоговом окне выберите Дата изменена вариант в Информация раздел, затем выберите нужный вариант в Вставить в (в данном случае я выбираю вариант диапазона) и, наконец, щелкаю OK кнопку.
Затем на листе отображается последняя сохраненная метка времени.
Внимание: Если вам нужно вставить последнюю сохраненную метку времени в верхний или нижний колонтитул текущего рабочего листа, выберите заголовок or нижний колонтитул опцию.
Если вы хотите получить бесплатную (30-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.
Получить и вставить время создания и время последнего изменения в ячейки
В этой статье будут рассказываться о способах получения времени создания и времени последнего изменения текущей информации книги, а также вставки времени создания и времени последнего изменения текущей информации книги в ячейки Excel.
Вставьте созданное время и время последнего изменения в ячейки / верхний / нижний колонтитул с помощью Kutools for Excel
Получите время создания и время последнего изменения в Excel с помощью команды Info
Мы можем узнать точное время создания и время последнего изменения текущей книги в представлении за кулисами Microsoft Excel 2010/2013.
Нажмите Файл > Инфо, а в правой части представления за кулисами отображается Связанные даты Информация. Под Связанные даты title, в нем указано время последнего изменения, время создания и время последней печати. См. Следующий снимок экрана:
Примечание: Этот способ доступен только в Microsoft Excel 2010/2013. Это недопустимо в Excel 2007.
Получите время создания и время последнего изменения в Excel с помощью функции дополнительных свойств
Фактически, мы можем получить как время создания, так и время последнего изменения текущей книги в диалоговом окне «Свойства документа».
Шаг 1: Открой Дополнительные свойства диалоговое окно:
В Excel 2007 щелкните значок Офисы кнопка> Подготовить > СвойстваИ Свойства документа панель будет отображаться под панелью инструментов, щелкните Свойства документа > Дополнительные свойства, смотрите скриншоты:
В Excel 2010/2013 щелкните значок Файл > Инфо > Свойства > Дополнительные свойства.
Шаг 2: В Дополнительные свойства В диалоговом окне вы увидите время создания и время последнего изменения на вкладке Статистика. См. Следующий снимок экрана:
Вставьте созданное время и время последнего изменения в ячейки Excel с кодом VBA
Следующие макросы VBA помогут вам напрямую вставить в ячейки время создания и время последнего изменения текущей информации книги.
Вставьте время создания и время последнего изменения в Excel
Шаг 1: Удерживайте ALT + F11 ключи, и он открывает окно Microsoft Visual Basic для приложений.
Шаг 2: Нажмите Вставить >> Модулии вставьте следующий макрос в окно модуля.
Код VBA: вставьте время создания и время последнего изменения в Excel
Шаг 3:Нажмите F5 ключ для запуска этого макроса. И тогда дата создания и дата последнего изменения будут вставлены в ячейку A1 и ячейку A2 отдельно.
Внимание: вы можете изменить ячейку назначения в VB в соответствии с вашими потребностями.
Вставить время последнего изменения книги в Excel
Шаг 1: Удерживайте ALT + F11 ключи, и он открывает окно Microsoft Visual Basic для приложений.
Шаг 2: Нажмите Вставить >> Модулии вставьте следующий макрос в окно модуля.
Шаг 3: Затем сохраните и закройте этот код и вернитесь на рабочий лист, в пустой ячейке введите формулу = ModDate () , и нажмите Enter ключ. Затем он вставляет в ячейку время последнего изменения.
Вставить созданное время книги в Excel
Шаг 1: Удерживайте ALT + F11 ключи, и он открывает окно Microsoft Visual Basic для приложений.
Шаг 2: Нажмите Вставить >> Модулии вставьте следующий макрос в окно модуля.
Шаг 3: Сохраните и закройте этот код, вернитесь на лист, в пустой ячейке введите формулу = CreateDate () , и нажмите Enter key. и созданная дата будет вставлена в ячейку, как показано на следующих снимках экрана:
Примечание: Если ваша ячейка не является форматом даты, она может отображать странное число. Просто отформатируйте эту ячейку как Время формат, он будет отображаться как обычная дата.
Вставьте созданное время и время последнего изменения в ячейки / верхний / нижний колонтитул с помощью Kutools for Excel
Могу я представить вам удобный инструмент -Kutools for Excel какие из более чем 300 полезных функций могут повысить эффективность вашей работы? С этими Вставить информацию о книге Вы можете быстро вставить путь к книге, имя книги / рабочего листа, имя пользователя или время создания и время последнего изменения в ячейки, верхний или нижний колонтитул.
После бесплатная установка Kutools for Excel, сделайте следующее:
1. Нажмите Кутулс Плюс > Workbook > Вставить информацию о книге. Смотрите скриншот:
2. Затем в Вставить информацию о книге диалоговом окне, проверьте информацию, которую вы хотите вставить из раздела информации, затем перейдите, чтобы указать место, в которое вы хотите вставить, вы можете выбрать ячейки, нижний колонтитул (левый нижний колонтитул, центральный нижний колонтитул, правый нижний колонтитул) или заголовок (левый верхний колонтитул, центральный верхний колонтитул, правый заголовок). Смотрите скриншот:
3. Нажмите Ok, и проверяемая вами информация была вставлена в указанное вами место.
Наконечник. Если вы хотите получить бесплатную пробную версию функции «Вставить информацию о книге», пожалуйста, перейдите к бесплатной загрузке Kutools for Excel сначала, а затем перейдите к применению операции в соответствии с вышеуказанными шагами.
Читайте также: