![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 24.01.2009
Сообщений: 113
|
![]()
Вот код (ниже) который мониторит конкретный файл, можно ли как то сделать что бы параллельно осуществлялся мониторинг двух файлов?
(http://www.programmersforum.ru/showt...ghlight=zander) Public Const ИмяФайла = "C:\Documents and Settings\Игорь\Рабочий стол\Текстовый документ.txt" Public РазмерФайла As Long, ПоискИзмененийВременноОтключён As Boolean Public Const ВременнойИнтервалМеждуПроверками = 2 Sub СлежениеЗаФайлом() Do While True ' бесконечный цикл If Not ПоискИзмененийВременноОтключён Then НовыйРазмерФайла = CreateObject("scripting.filesystemo bject").GetFile(ИмяФайла).Size If НовыйРазмерФайла > РазмерФайла Then ОбработкаФайла: РазмерФайла = НовыйРазмерФайла End If t = Timer: While t + ВременнойИнтервалМеждуПроверками > Timer: DoEvents: Wend ' пауза Loop End Sub Sub ОбработкаФайла() Application.ScreenUpdating = False Workbooks.OpenText Filename:=ИмяФайла, DataType:=xlDelimited, Comma:=True ActiveWorkbook.Worksheets(1).Cells. Copy ThisWorkbook.Worksheets(1).[a1] ActiveWorkbook.Close False Application.ScreenUpdating = True ПоискИзмененийВременноОтключён = True ' здесь запускается Ваш макрос ' пока он работает, изменения в текстовом файле не отслеживаются ПоискИзмененийВременноОтключён = False End Sub |
![]() |
![]() |
![]() |
#2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
![]()
Попробуйте так:
Код:
|
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Скомпилируйте 3 малюсеньких файла, люди добрые | DelphiLoser | Общие вопросы Delphi | 4 | 17.01.2008 16:10 |