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

Вход

Регистрация

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

 

= Мир MS Excel/Просмотр содержимого каталога - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Outlook » Просмотр содержимого каталога (Просмотр содержимого каталога несколько раз)
Просмотр содержимого каталога
A_3485 Дата: Среда, 06.07.2016, 16:00 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 135
Репутация: 0 ±
Замечаний: 60% ±

Уважаемые форумчане доброго времени суток!
Я пытаюсь решить такую задачу. У меня каждый день в разное время (с 9:00 до 17:00) приходит текстовый файл с информацией. Имя каталога, куда поступает информация я знаю. Так как через макросы в течении всего дня у меня много-чего обрабатывается, я подумал, что в определенное время (9:00) можно запустить таймер и установить процедуру, которая бы просматривала нужный мне каталог. Если информация есть, то выдаст сообщение. Когда настанет время 17:00 программа перестанет работать. Пока дельного ничего не придумывается, а получается полный бред и выдает ошибки......

[vba]
Код
Sub Запуск_таймера()
Application.OnTime TimeValue("09:00:00"), "Программа"
End Sub

Sub Программа()

x = "С:\Новая_папка\*.*"
file = Dir(x)

Do While file = ""
    Время = Time
        If Время = "17:00:00" Then: Exit Sub
        
        If file <> "" Then MsgBox "Есть новая информация": Exit Sub        
        
file = Dir   
Loop
[/vba]
[moder]Тема закрыта. Дублирование[/moder]


Сообщение отредактировал Pelena - Среда, 06.07.2016, 17:00
 
Ответить
СообщениеУважаемые форумчане доброго времени суток!
Я пытаюсь решить такую задачу. У меня каждый день в разное время (с 9:00 до 17:00) приходит текстовый файл с информацией. Имя каталога, куда поступает информация я знаю. Так как через макросы в течении всего дня у меня много-чего обрабатывается, я подумал, что в определенное время (9:00) можно запустить таймер и установить процедуру, которая бы просматривала нужный мне каталог. Если информация есть, то выдаст сообщение. Когда настанет время 17:00 программа перестанет работать. Пока дельного ничего не придумывается, а получается полный бред и выдает ошибки......

[vba]
Код
Sub Запуск_таймера()
Application.OnTime TimeValue("09:00:00"), "Программа"
End Sub

Sub Программа()

x = "С:\Новая_папка\*.*"
file = Dir(x)

Do While file = ""
    Время = Time
        If Время = "17:00:00" Then: Exit Sub
        
        If file <> "" Then MsgBox "Есть новая информация": Exit Sub        
        
file = Dir   
Loop
[/vba]
[moder]Тема закрыта. Дублирование[/moder]

Автор - A_3485
Дата добавления - 06.07.2016 в 16:00
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Outlook » Просмотр содержимого каталога (Просмотр содержимого каталога несколько раз)
Страница 1 из 11
Поиск:

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