VBA в XL

LadyWind

Всем доброго времени суток

Вопрос - как определить при отработке макроса в рабочей книжке (когда исчезли диалоговые окна "форматирование отчета" и "вызов результата с bw-сервера"), ексель уже завис или можно подождать еще?

Vitaly V.V.

LadyWind написала:

Всем доброго времени суток

Вопрос - как определить при отработке макроса в рабочей книжке (когда исчезли диалоговые окна "форматирование отчета" и "вызов результата с bw-сервера"), ексель уже завис или можно подождать еще?

скорее всего и макрос тоже завис...

LadyWind

дык вот КАК определить это?

Vitaly V.V.

LadyWind написала:

дык вот КАК определить это?

ОТКУДА это определить? Из внешней программы? Или пользователю визуально?

LadyWind

Мне это определить, визуально. Потому что при выполнении отчета Винда всегда говорит, что ёксель не отвечает, а потом может и сработает.

Bkmz

LadyWind написала:

Всем доброго времени суток

Вопрос - как определить при отработке макроса в рабочей книжке (когда исчезли диалоговые окна "форматирование отчета" и "вызов результата с bw-сервера"), ексель уже завис или можно подождать еще?

Выводить пользователю в макросе что-нибудь типа процента его завершения

LadyWind

Вы не поняли. Отчет в стадии отладки. Я хочу понять, макрос завис или еще пашет

G

Старым и циничным способом:

Code:

Sub WriteLog(s As String, Filename As String)
    
   with CreateObject("Scripting.FileSystemObject").OpenTextFile(FileName, 8, True)
   
      .WriteLine(s)
      .Close

   end with

End Sub

LadyWind

Где сие вызывать в Сапбексонрефреш? в конце, в начале, в подозрительном куске?

G

LadyWind написала:

Где сие вызывать в Сапбексонрефреш? в конце, в начале, в подозрительном куске?

Вызывать примерно так:

Code:

' Начало 
WriteLog(Now & vbTab & "Начало", "C:\mybex.log") 

' Подозрительный кусок
For i = 1 To 10000 
 
  If i mod 1000 = 0 Then  WriteLog(Now & vbTab & "Подозрительный кусок, i = " & i, "C:\mybex.log") 

Next i 

' Окончание
WriteLog(Now & vbTab & "Окончание", "C:\mybex.log") 

LadyWind

Code:

' Начало 
WriteLog(Now & vbTab & "Начало", "C:\mybex.log") 

Ошибку выдает в этом выражении - пишет Expected: =
И в остальных тоже

Bkmz

RTFM по VBA

LadyWind

Лучше жевать, чем отвлекаться от работы на форум.

G

Ой, не настолько освоил VB, чтоб из головы без ошибок писать

, там везде так:

Code:

WriteLog Now & vbTab & "Окончание", "C:\mybex.log"

(скобки убрал)

LadyWind

Ага, спасибо... Ща помучаем его, но для интересу
В общем, уже понятно, что отчет в 20000 строчек области результата, из которых 19980 надо удалить - макрос попросту не тянет

VBA в XL

Кто сейчас на конференции