Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Отображение даты обновления файла - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Отображение даты обновления файла (Формулы/Formulas)
Отображение даты обновления файла
ArkaIIIa Дата: Пятница, 30.05.2014, 08:42 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
Добрый день, уважаемые господа!

Подскажите, пожалуйста, есть ли возможность при помощи какой-либо функции Excel сделать в одной из ячеек отображение даты и времени обновления файла?
Поясню. Есть файл №1 в который при помощи функции связи подтягиваются данные из файла №2, и чтобы каждый раз не лазить в папку с файлом №2 для того, чтобы посмотреть когда он последний раз обновлялся, было бы удобно, чтобы в одной из ячеек файла №1 отображалась дата и время последнего обновления файла №2. Это можно сделать с помощью функций, или это исключительно VBA?

Заранее благодарю за ответы!

П.С. Всех с пятницей!


Сообщение отредактировал ArkaIIIa - Пятница, 30.05.2014, 08:43
 
Ответить
СообщениеДобрый день, уважаемые господа!

Подскажите, пожалуйста, есть ли возможность при помощи какой-либо функции Excel сделать в одной из ячеек отображение даты и времени обновления файла?
Поясню. Есть файл №1 в который при помощи функции связи подтягиваются данные из файла №2, и чтобы каждый раз не лазить в папку с файлом №2 для того, чтобы посмотреть когда он последний раз обновлялся, было бы удобно, чтобы в одной из ячеек файла №1 отображалась дата и время последнего обновления файла №2. Это можно сделать с помощью функций, или это исключительно VBA?

Заранее благодарю за ответы!

П.С. Всех с пятницей!
Автор - ArkaIIIa
Дата добавления - 30.05.2014 в 08:42
Матраскин Дата: Пятница, 30.05.2014, 10:00 | Сообщение № 2
Группа: Друзья
Ранг: Обитатель
Сообщений: 375
Репутация: 81 ±
Замечаний: 0% ±

20xx
ArkaIIIa, я бы сделал через VBA.
[vba]
Код
iFileDateTime = FileDateTime(ActiveWorkbook.Path + "\" + ActiveWorkbook.Name)
MsgBox "Update : " & iFileDateTime, , ""
[/vba]
и повесил бы на открытие например...можно с выводом в ячейку сделать. как пожелаете вообщем

в интернете опять кто-то не прав
 
Ответить
СообщениеArkaIIIa, я бы сделал через VBA.
[vba]
Код
iFileDateTime = FileDateTime(ActiveWorkbook.Path + "\" + ActiveWorkbook.Name)
MsgBox "Update : " & iFileDateTime, , ""
[/vba]
и повесил бы на открытие например...можно с выводом в ячейку сделать. как пожелаете вообщем
Автор - Матраскин
Дата добавления - 30.05.2014 в 10:00
ArkaIIIa Дата: Пятница, 30.05.2014, 10:06 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
Матраскин
А можно пример с выводом на ячейку, например A1?
И, по-скольку я совсем 0 в VBA, Вы не могли бы выделить каким-нибудь цветом часть кода, где указывается путь к файлу № 2 (дату и время обновления которого нужно выводить) ?


Сообщение отредактировал ArkaIIIa - Пятница, 30.05.2014, 10:06
 
Ответить
СообщениеМатраскин
А можно пример с выводом на ячейку, например A1?
И, по-скольку я совсем 0 в VBA, Вы не могли бы выделить каким-нибудь цветом часть кода, где указывается путь к файлу № 2 (дату и время обновления которого нужно выводить) ?
Автор - ArkaIIIa
Дата добавления - 30.05.2014 в 10:06
Матраскин Дата: Пятница, 30.05.2014, 10:20 | Сообщение № 4
Группа: Друзья
Ранг: Обитатель
Сообщений: 375
Репутация: 81 ±
Замечаний: 0% ±

20xx
ArkaIIIa,
[vba]
Код
Sub Update_()
     Path_1 = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name
     Path_2 = "C:\1.xlsm"
     iFileDateTime_1 = FileDateTime(Path_1)
     iFileDateTime_2 = FileDateTime(Path_2)
     Cells(1, 1) = "Update 1 : " & iFileDateTime_1
     Cells(2, 1) = "Update 2 : " & iFileDateTime_2
End Sub
[/vba]

Path_1 - 1ый файл
Path_2 - 2ой.
Жмём кнопка и узнаём кто когда изменялся)
К сообщению приложен файл: _Microsoft_Exce.xlsm (17.5 Kb)

в интернете опять кто-то не прав
 
Ответить
СообщениеArkaIIIa,
[vba]
Код
Sub Update_()
     Path_1 = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name
     Path_2 = "C:\1.xlsm"
     iFileDateTime_1 = FileDateTime(Path_1)
     iFileDateTime_2 = FileDateTime(Path_2)
     Cells(1, 1) = "Update 1 : " & iFileDateTime_1
     Cells(2, 1) = "Update 2 : " & iFileDateTime_2
End Sub
[/vba]

Path_1 - 1ый файл
Path_2 - 2ой.
Жмём кнопка и узнаём кто когда изменялся)
Автор - Матраскин
Дата добавления - 30.05.2014 в 10:20
ArkaIIIa Дата: Пятница, 30.05.2014, 10:29 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
Матраскин
Очень здорово. Большое Вам спасибо!
 
Ответить
СообщениеМатраскин
Очень здорово. Большое Вам спасибо!
Автор - ArkaIIIa
Дата добавления - 30.05.2014 в 10:29
ArkaIIIa Дата: Пятница, 30.05.2014, 10:34 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
Матраскин
А как можно сделать, чтобы макрос срабатывал автоматически, т.е. без нажатия на созданную кнопку, например при открытии или нажатии на кнопку "Обновить все" во вкладке "Данные" файла № 1?


Сообщение отредактировал ArkaIIIa - Пятница, 30.05.2014, 10:35
 
Ответить
СообщениеМатраскин
А как можно сделать, чтобы макрос срабатывал автоматически, т.е. без нажатия на созданную кнопку, например при открытии или нажатии на кнопку "Обновить все" во вкладке "Данные" файла № 1?
Автор - ArkaIIIa
Дата добавления - 30.05.2014 в 10:34
Матраскин Дата: Пятница, 30.05.2014, 10:42 | Сообщение № 7
Группа: Друзья
Ранг: Обитатель
Сообщений: 375
Репутация: 81 ±
Замечаний: 0% ±

20xx
ArkaIIIa,
[vba]
Код
Private Sub Workbook_Open()
     Path_1 = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name
     Path_2 = "C:\1.xlsm"
     iFileDateTime_1 = FileDateTime(Path_1)
     iFileDateTime_2 = FileDateTime(Path_2)
     Cells(1, 1) = "Update 1 : " & iFileDateTime_1
     Cells(2, 1) = "Update 2 : " & iFileDateTime_2
End Sub
[/vba]
Помещается в - Эта Книга.
К сообщению приложен файл: _Microsoft_Exce.xlsm (15.6 Kb)

в интернете опять кто-то не прав
 
Ответить
СообщениеArkaIIIa,
[vba]
Код
Private Sub Workbook_Open()
     Path_1 = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name
     Path_2 = "C:\1.xlsm"
     iFileDateTime_1 = FileDateTime(Path_1)
     iFileDateTime_2 = FileDateTime(Path_2)
     Cells(1, 1) = "Update 1 : " & iFileDateTime_1
     Cells(2, 1) = "Update 2 : " & iFileDateTime_2
End Sub
[/vba]
Помещается в - Эта Книга.
Автор - Матраскин
Дата добавления - 30.05.2014 в 10:42
ArkaIIIa Дата: Пятница, 30.05.2014, 11:22 | Сообщение № 8
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
Матраскин
Еще раз большое спасибо!

П.С. Модераторов/Администраторов форума прошу перенести данный топик в раздел VBA, т.к. учитывая ответы он больше относится к той ветке, и, возможно, будет кому-то еще полезен.
 
Ответить
СообщениеМатраскин
Еще раз большое спасибо!

П.С. Модераторов/Администраторов форума прошу перенести данный топик в раздел VBA, т.к. учитывая ответы он больше относится к той ветке, и, возможно, будет кому-то еще полезен.
Автор - ArkaIIIa
Дата добавления - 30.05.2014 в 11:22
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Отображение даты обновления файла (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!