|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.03.2009, 20:18 | #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 |
15.03.2009, 23:12 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Попробуйте так:
Код:
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Скомпилируйте 3 малюсеньких файла, люди добрые | DelphiLoser | Общие вопросы Delphi | 4 | 17.01.2008 16:10 |