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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Просмотр содержимого каталога несколько раз (Макросы/Sub)
Просмотр содержимого каталога несколько раз
A_3485 Дата: Среда, 06.07.2016, 16:52 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 146
Репутация: 0 ±
Замечаний: 40% ±

2007
Уважаемые форумчане доброго времени суток!
Я пытаюсь решить такую задачу. У меня каждый день в разное время (с 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]
 
Ответить
СообщениеУважаемые форумчане доброго времени суток!
Я пытаюсь решить такую задачу. У меня каждый день в разное время (с 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]

Автор - A_3485
Дата добавления - 06.07.2016 в 16:52
Саня Дата: Среда, 06.07.2016, 17:13 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
[vba]
Код
Sub Программа()

x = "С:\Новая_папка\*.*"
file = Dir(x)
If file <> "" Then MsgBox "Есть новая информация": Exit Sub       

         If Time >= #5:00:00 PM# Then Exit Sub
        
        Application.OnTime DateAdd("s", 5, Now), "Программа"    ' запускает проц. "Программа" ч/з 5 секунд
        
end sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub Программа()

x = "С:\Новая_папка\*.*"
file = Dir(x)
If file <> "" Then MsgBox "Есть новая информация": Exit Sub       

         If Time >= #5:00:00 PM# Then Exit Sub
        
        Application.OnTime DateAdd("s", 5, Now), "Программа"    ' запускает проц. "Программа" ч/з 5 секунд
        
end sub
[/vba]

Автор - Саня
Дата добавления - 06.07.2016 в 17:13
A_3485 Дата: Четверг, 07.07.2016, 12:04 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 146
Репутация: 0 ±
Замечаний: 40% ±

2007
Спасибо, все работает
 
Ответить
СообщениеСпасибо, все работает

Автор - A_3485
Дата добавления - 07.07.2016 в 12:04
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Просмотр содержимого каталога несколько раз (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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