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

Вход

Регистрация

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

 

= Мир MS Excel/Определение - как долго открывается файл эксель. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определение - как долго открывается файл эксель. (Макросы/Sub)
Определение - как долго открывается файл эксель.
cerber412 Дата: Пятница, 17.02.2017, 06:14 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 97
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброго времени суток, уважаемые программисты.
Помогите решить вопрос.

Как макросом посчитать - как долго открывается файл ?
То есть - имеется файл эксель. Я открываю его и в зеленую ячейку C3 - заносится время - как долго этот файл открывался.
Например 56 секунд и 32 милисекунды.
К сообщению приложен файл: 546456.xls(28Kb)
 
Ответить
СообщениеДоброго времени суток, уважаемые программисты.
Помогите решить вопрос.

Как макросом посчитать - как долго открывается файл ?
То есть - имеется файл эксель. Я открываю его и в зеленую ячейку C3 - заносится время - как долго этот файл открывался.
Например 56 секунд и 32 милисекунды.

Автор - cerber412
Дата добавления - 17.02.2017 в 06:14
Саня Дата: Пятница, 17.02.2017, 14:36 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 1054
Репутация: 546 ±
Замечаний: 0% ±

XL 2010
в любую другую книгу эту процедуру :

[vba]
Код
Sub OpeningTime()   ' в секундах
    Dim t As Single: t = Timer
    Dim wb As Workbook
    Set wb = Workbooks.Open("d:\546456.xls")   ' здесь ваша книга
    wb.Worksheets("Лист3").Range("C3").Value = Timer - t
End Sub
[/vba]

она открывает вашу книгу.
 
Ответить
Сообщениев любую другую книгу эту процедуру :

[vba]
Код
Sub OpeningTime()   ' в секундах
    Dim t As Single: t = Timer
    Dim wb As Workbook
    Set wb = Workbooks.Open("d:\546456.xls")   ' здесь ваша книга
    wb.Worksheets("Лист3").Range("C3").Value = Timer - t
End Sub
[/vba]

она открывает вашу книгу.

Автор - Саня
Дата добавления - 17.02.2017 в 14:36
Timber_Wolf Дата: Пятница, 17.02.2017, 14:44 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
Саня, Немного опередил +) Кстати формат ячейки куда он хочет записать HH:MM:SS Ты забыл поделить на 1000 таймер. =)) Иначе выйдет не верный результат +)

Почти такой же вариант только с выбором файла через диалог =))
К сообщению приложен файл: Time.xlsb(16Kb)


Сообщение отредактировал Timber_Wolf - Пятница, 17.02.2017, 14:46
 
Ответить
СообщениеСаня, Немного опередил +) Кстати формат ячейки куда он хочет записать HH:MM:SS Ты забыл поделить на 1000 таймер. =)) Иначе выйдет не верный результат +)

Почти такой же вариант только с выбором файла через диалог =))

Автор - Timber_Wolf
Дата добавления - 17.02.2017 в 14:44
cerber412 Дата: Пятница, 17.02.2017, 18:19 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 97
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Большое спасибо - все варианты работают.
 
Ответить
СообщениеБольшое спасибо - все варианты работают.

Автор - cerber412
Дата добавления - 17.02.2017 в 18:19
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определение - как долго открывается файл эксель. (Макросы/Sub)
Страница 1 из 11
Поиск:

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