благодарю за комменты,но вариант с DoEvents мне кажется будет тормозить комп-попытаюсь
его проверить, самое простое-опрос через секунду,пробовал это:
'__________________________________________________
Sub Update()
Range("B3").Value = Range("B3").Value + 1 '------анализатор строк---------
NextTick = Now + TimeValue("00:00:01")
Application.OnTime NextTick, "Update"
End Sub
'__________________________________________________
здесь вместо Range("B3")... нужно вставить процедуру обработки текст-файла с его
открытием Open dir + ".txt" For Input As #1 (в начале),
и закрытием Close #1(в конце),
наверное,в процедурку придется добавить сиковую функцию Seek,чтобы при каждом повторе
анализатора строк-начинать обработку не с самого начала,а с предыдущего значения Seek.
его проверить, самое простое-опрос через секунду,пробовал это:
'__________________________________________________
Sub Update()
Range("B3").Value = Range("B3").Value + 1 '------анализатор строк---------
NextTick = Now + TimeValue("00:00:01")
Application.OnTime NextTick, "Update"
End Sub
'__________________________________________________
здесь вместо Range("B3")... нужно вставить процедуру обработки текст-файла с его
открытием Open dir + ".txt" For Input As #1 (в начале),
и закрытием Close #1(в конце),
наверное,в процедурку придется добавить сиковую функцию Seek,чтобы при каждом повторе
анализатора строк-начинать обработку не с самого начала,а с предыдущего значения Seek.