Out of stack space (Error 28)

[legion-mia]

В поиске не нашел.. потому прошу помощи у зала

у меня во время работы макроса вываливается ошибка
Out of stack space (Error 28)

я так понял заканчивается память (стека?) в определенный момент работы макроса...
он у меня циклически выполняет ряд действий.. затыкается где-то на 150 цикле...

есть какая-нить команда чтобы память очистить


если книгу закрыть с макросом.. а потом открыть.
макрос продолжает нормально работать опять 150 циклов

[pivas]

Хорошо бы взглянуть на сам цикл...

[SAS888]

Если бы Вы приложили файл с проблемным кодом, то скорее всего получили бы нужный ответ. А просто, на вскидку, могу предположить, что в процессе выполнения макроса, запускаются еще какие-то не нужные для данного случая процедуры (например, по какому-либо событию), которые постепенно "забивают" стек.

[legion-mia]

выложить код прабла... типа секьюрные элементы

там несколько макросов которые запускают друг друга в зависимости от условий проверки
основные действия...
там происходит копирование строки.. с листа
ее "обработка" и копирование результатов обработки на три других листа...
когда обработано 50 строк
листы сохраняются в создаваемую папку в отдельные текстовые файлы... и процедура повторяется


оптимизировать код времени уже нет...
пока есть идея ограничить входной файл 150 строками


я так понял команды типа clear stack нету?

[EducatedFool]

я так понял команды типа clear stack нету?

Нету. Она и не нужна. Проблема в алгоритме или реализации макроса, а стек чистить не надо.

выложить код прабла... типа секьюрные элементы

Тогда разбирайтесь с кодом самостоятельно.
Словесное описание кода здесь не поможет.
Да и что в коде может быть такое секретное?

оптимизировать код времени уже нет...

Это почему же?
Вы не готовы потратить несколько минут на то, чтобы код наконец-то начал работать без ошибок, и в несколько раз быстрее.

Короче, будет код - будут советы.

[SAS888]

я так понял команды типа clear stack нету?

В VBA - нет.
1. Если совсем нет времени для отладки, попробуйте первой строкой в каждом макросе поставить

Application.EnableEvents = False

, а перед каждой точкой выхода из текущего макроса поставить

Application.EnableEvents = True

2. Проверьте, не происходит ли лишних вызовов одной процедуры из другой.

[slan]

характерно для рекурсии..

[legion-mia]

первоочередную задачу мы все-таки решили..
однако хотелось бы макрос использовать в будущем..

пошарился по форуму... немного дооптимизировал скрипт после макрорекордера

выиграл буквально пару позиций... виснет теперь на 184 цикле...


почищенный код вот

    Sub GLAVworks()
        
        
work_status = Range("monitor!c10").Value
kolvo = Range("monitor!b13").Value


If kolvo = 50 Or work_status = 0 Then
Application.Run "'Key-MASTER.xls'!save_files"
End If


If work_status = 1 Then

Application.Run "'Key-MASTER.xls'!works"
Application.Run "'Key-MASTER.xls'!GLAVworks"
End If


         

     
End Sub


Sub works()

nomerK = Range("monitor!c13").Value
nomerK2 = Range("monitor!c14").Value
nomer12 = Range("monitor!c15").Value


    Sheets("ENTER").Range("A1:B14").Copy
    Sheets("WORK").Range("A1").PasteSpecial (xlPasteValues)
    Sheets("WORK").Range("A25:B27").Copy
    Sheets("OUT-1k").Range("A" + LTrim((nomerK))).PasteSpecial (xlPasteValues)
    Sheets("WORK").Range("A29:B31").Copy
    Sheets("OUT-2k").Range("A" + LTrim((nomerK2))).PasteSpecial (xlPasteValues)
    Sheets("WORK").Range("A18:B22").Copy
    Sheets("OUT-12").Range("A" + LTrim((nomer12))).PasteSpecial (xlPasteValues)
    Sheets("ENTER").Range("A1:B14").Delete (xlUp)

    
End Sub

     
Sub save_files()

nomerK = Range("monitor!c13").Value
nomer12 = Range("monitor!c15").Value
work_status = Range("monitor!c10").Value
kolvo = Range("monitor!b13").Value
kolvoK = Range("monitor!b10").Value
f_nomer = Range("monitor!b6").Value
l_nomer = Range("monitor!c6").Value - 1


Application.DisplayAlerts = False


MkDir "C:\" + LTrim(f_nomer) + " - " + LTrim(l_nomer)
     
Sheets("OUT-1k").Range("A1:B" + LTrim((nomerK))).Copy
    
    
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .Orientation = 0
        .IndentLevel = 0
        .ReadingOrder = xlContext
    End With
    With Selection.Font
        .Name = "Courier New"
        .Size = 10
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Columns("A:B").EntireColumn.AutoFit
    
ChDir "C:\" + LTrim(f_nomer) + " - " + LTrim(l_nomer)

ActiveWorkbook.SaveAs Filename:="C:\" + LTrim(f_nomer) + " - " + LTrim(l_nomer) + "\" + "tmk1 - " + LTrim(f_nomer) + " - " + LTrim(l_nomer) + " - Clear.txt", FileFormat:=xlText, _
        CreateBackup:=False
 ActiveWindow.Close
        
Sheets("OUT-1k").Range("A1:B" + LTrim((nomerK))).Clear
    

    
Sheets("OUT-2k").Range("A1:B" + LTrim((nomerK))).Copy
    
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
    Application.CutCopyMode = False
    With Selection.Font
        .Name = "Courier New"
        .Size = 10
    End With
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .Orientation = 0
        .IndentLevel = 0
        .ReadingOrder = xlContext
    End With
    Columns("A:B").EntireColumn.AutoFit

ActiveWorkbook.SaveAs Filename:="C:\" + LTrim(f_nomer) + " - " + LTrim(l_nomer) + "\" + "tmk2 - " + LTrim(f_nomer) + " - " + LTrim(l_nomer) + " - Clear.txt", FileFormat:=xlText, _
        CreateBackup:=False
    ActiveWindow.Close
    Sheets("OUT-2k").Range("A1:B" + LTrim((nomerK))).Clear
    
    

    
Sheets("OUT-12").Range("A1:B" + LTrim((nomer12))).Copy
    
       
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
    Application.CutCopyMode = False
    With Selection.Font
        .Name = "Courier New"
        .Size = 10
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .Orientation = 0
        .IndentLevel = 0
        .ReadingOrder = xlContext
    End With
    Columns("A:B").EntireColumn.AutoFit

ActiveWorkbook.SaveAs Filename:="C:\" + LTrim(f_nomer) + " - " + LTrim(l_nomer) + "\" + "tmk1-2 - " + LTrim(f_nomer) + "-" + LTrim(l_nomer) + " - RLINE.txt", FileFormat:=xlText, _
        CreateBackup:=False
    ActiveWindow.Close
    
 
    
    Sheets("MONITOR").Range("C6").Copy
    Sheets("MONITOR").Range("B6").PasteSpecial (xlPasteValues)
 

   Sheets("OUT-12").Range("A1:B" + LTrim((nomer12))).Clear
   
       
    Application.DisplayAlerts = True

End Sub

сдается мне это все из за того что типа "счетчики" берутся со страниц экселя... и каждый цикл это по сути ctrl+c / ctrl+v
у меня пока знаний не хватает как это сделать так чтобы все типа автоматом делалось

[legion-mia]

хотя есть еще идея просто тупо указать чтобы макрос work 50 раз срабатывал а потом сохранялись страницы...

но это уже завтра буду думать

[EducatedFool]

Поставьте хотя бы первой строкой в макросе
Application.ScreenUpdating = False
Значительно быстрее будет работать...

Ещё могу посоветовать заменить

    Sheets("OUT-1k").Range("A1:B" + LTrim((nomerK))).Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
    End With
    With Selection.Font
        .Name = "Courier New"
        .Size = 10
    End With
    Columns("A:B").EntireColumn.AutoFit

на что-то вроде этого:

Sheets("OUT-1k").Copy
    ActiveWorkbook.SaveAs Filename:="C:\" + LTrim(f_nomer) + " - " + LTrim(l_nomer) + _
                                    "\" + "tmk1 - " + LTrim(f_nomer) + " - " + LTrim(l_nomer) + _
                                    " - Clear.txt", FileFormat:=xlText
    ActiveWorkbook.Close