Excel автозапускается из сторонней программы, открывается Лист1 и в него из массива из этой программы пишутся данные. Затем после того, как все данные загрузились, требуется автозапуск макроса для обработки в Excel.

Сейчас делаю просто с помощью такой функции:



задержку перед запуском макроса секунд 10. А если все данные в Excel уже загружены были за 2 секунды ? Или они будут грузиться 1 минуту ?

Есть способ определить, что если количество строк в Листе1 не меняется в течении 3 секунд, то делать автозапуск макроса ? Или вручную писать функцию ?

Есть... а зачем?
Во-первых, несложно запустить макрос извне.
Во-вторых, вполне можно настроить макрос считать окончанием загрузки, например, появления строка "усё!" в ячейке А1 (чтобы не мешало - белым по белому, скажем). Кстати, макрос сначала может вычистить этот маркер, а потом заниматься своими делами.

Akina, 
Дело в том, что загрузка происходит с помощью OLE, не макросом и совсем из здругого языка  , не из VB, данные могут загружаться и 10 секунд, и 5 минут. И надо, чтобы сразу после загрузки этих данных (окончание надо отследить !) запускался уже макрос VBA Excel.


Это я уже догадался ) но опять, надо все время крутить в цикле проверку по всему листу в Excel, что данные больше не добавляются 

Ясен пень надо! не хочешь? ну тогда предлагаю такой костыль:

Делаем шаблон. В нём - макрос, который запускается при открытии книги. Если макрос обнаруживает на [Лист1] данные - он выполняет обработку, иначе просто завершается.
Далее - программа открывает этот шаблон. Макрос срабатывает, данных нет, он тут же завершается. Программа заполняет лист данными из массива и сохраняет (SaveAs - дабы не поганить шаблон) файл на диск. И тут же открывает снова. Макрос опять срабатывает, обнаруживает данные и выполняет требуемые действия.

В сторонней программе пишу "END" в самый конец листа Excel, затем вызываю функцию:



если она вернула true, то сразу же запускаю макрос уже из Excel.   

Мда...
1) Зачем флаг? DataIsLoaded - такая же переменная, работай прямо с ней.
2) Do While Flag <> True
А почему не 
Do While NOT Flag
3) If Cells(i, 1) = "END" Then Flag = True
А почему не
Flag = (Cells(i, 1) = "END")
4) Зачем организовывать свой цикл, если есть Range.Find?

И почему не поместить твой "END" в самом начале, чтобы проверять ОДНУ ячейку с известным (А1, например) адресом?

Тоже самое, только записано по-другому.



Тоже самое, только записано по-другому.



Откуда будет известен этот  ??   Если загружаемых строк может быть 10, а может быть миллион  и ячейки соответственно сдвигаются вниз 

Добавлено @ 09:53


Это сообщение отредактировал(а) Voldemar2004 - 25.11.2010, 09:57

Сначала загружаются данные. А потом ставится признак. Но почему он ставится ПОСЛЕ загруженных данных? не по времени - по месту расположения...

Сверху шапка таблицы, количество данных каждый раз разное  по времени тут никак нельзя вообще  так что все норм 

Вот и убери в неё признак загрузки - она же статическая, адреса ячеек известны... скажем, после окончания загрузки данных делаешь шрифт в неиспользуемой ячейке жирным (или там зелёным). И проверять надо только этот параметр и только у этой (одной и с известным адресом) ячейки.

Akina, ну улучшать и придумывать можно до бесконечности  главное все правильно работает  а те тысячные доли секунды, которые я сэкономлю роли уже не играют.

Ну не надо так не надо... мне-то что.