Runtime error 7 out of memory как исправить

Ошибка Out of memory — как исправить

Многие пользователи ПК во время работы с какой-либо программой могут столкнуться с «вылетом» указанной программы, и появившимся сообщением «Out of memory». Возникшая проблема может иметь множество причин, начиная от банального недостатка памяти на пользовательском ПК, и заканчивая некорректной работой с памятью какой-либо программы.

Окно с сообщением об ошибке «Out of memory»

Причины появления дисфункции

Ошибка «Out of memory» (в переводе дословно «вне памяти», или «недостаточно памяти») обычно возникает при недостатке памяти на пользовательском компьютере. В частности же, в появлении данной ошибки «виновен» следующий набор факторов:

• Недостаток памяти RAM на вашем ПК (рабочей памяти, планки которой установлены на материнской плате вашего компьютера). Если на вашем компьютере установлен всего 1 гигабайт памяти, вы будете встречаться с описываемой ошибкой довольно часто. Нормальным же ныне считается наличие на компьютере 4 гигабайт памяти и выше;
• Недостаток места на жёстком диске.

Когда вашему компьютеру не хватает физической R.A.M. памяти, он заимствует часть места на жёстком диске, и создаёт так называемую «виртуальную память». Система временно хранит в такой виртуальной памяти ту часть данных, которая не помещается в памяти обычной. Такие данные обычно хранятся в файле «pagefile.sys», размер которого может увеличиваться или уменьшаться в зависимости от специфики работы вашей ОС. Если на диске будет недостаточно места, файл «pagefile.sys» не сможет расти, и пользователь получит ошибку «out of memory».

• При одновременном запуске на ПК большого количества программ, каждая из которых бронирует часть памяти ПК под свои задачи;
• При запуск большого количества вкладок браузера. Веб-навигаторы уровня «Firefox» или «Google Chrome» способны занимать от 500 мегабайт до 1 гигабайта памяти под свой функционал, при этом число открытых вкладок и соответствующей обслуживающей памяти может быть ограничено системой. Специалисты Майрософт называют такую проблему «the desktop heap limitation» — «ограничение кучи рабочего стола»);
• Некорректная работа с памятью ряда программ (наиболее часто это игровые программы);
• Не оптимальный размер файла подкачки, с которым работает система.

Обычно причиной возникновения проблемы является недостаток ОЗУ на компьютере пользователя

Как исправить ошибку «Out of memory»

Для решения указанной проблемы рекомендую сделать следующее:

1. Перезагрузите ваш ПК, и запустите требуемую программу вновь. Возможно, что проблема имеет случайный характер, и более повторяться не будет;
2. Перед запуском нужной программы закройте другие ненужные программы (браузер, музыкальный или видео плеер, текстовый или графический редактор, мессенджер и так далее);
3. Если проблема возникает во время серфинга в сети, закройте всё множество вкладок вашего браузера (при наличии), оставив лишь одну или две.

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

Альтернативным вариантом решения проблемы «Out of memory» является установка соответствующего фикса от Майкрософт. Или использование расширений или дополнений для браузера уровня «The Great Suspender» для «Google Chrome», хорошо работающего с ненужными вкладками браузера.

Добавьте оперативной памяти на ваш ПК. Если у вас на компьютере установлено 1-2 гигабайта памяти, будет оптимальным довести её объём до 4 гигабайт (а для 64-битных Виндовс 7, 8 и 10 версии рекомендую 8 и более гигабайт);

Увеличьте количество памяти на вашем ПК

bcdedit/set IncreaseUserVa 3072

И нажмите на ввод, и перезагрузите ваш ПК. Функционал данной команды позволяет выделить пользовательским приложениям 3 гигабайта оперативной памяти для работы. В некоторых системах этого может быть слишком много, потому если после ввода данной команды система начала чаще сбоить, то введите в командной строке от имени администратора:

bcdedit /set IncreaseUserVa 2560 — что позволит задействовать 2,5 гигабайта вместо ранее забронированных 3.

Если ситуацию этим исправить не удалось, верните настройки на состояние по умолчанию:

bcdedit /deletevalue IncreaseUserVa

Увеличьте объём файла подкачки. Нажмите кнопку «Пуск», в строке поиска введите sysdm.cpl и нажмите ввод. В открывшемся окне настроек системы выберите «Дополнительно» — «Быстродействие» — «Параметры» — «Дополнительно» — «Виртуальная память» — «Изменить». Снимите галочку с опции автоматического размера, поставьте галочку на «Указать размер», и поставьте исходный размер в 8192, и максимальный в 8192. Затем выберите «Задать»;

Установите нужный размер файла подкачки

Заключение

Ошибка «Out of memory» может иметь множество причин, связанных как с физическим недостатком памяти на ПК, так и другими детерминантами, изложенными мной выше. Для решения проблемы советую закрыть ненужные программы (вкладки браузера) на вашем компьютере (тем самым разгрузив его память), а самым эффективным инструментом является установка дополнительной планки памяти на ПК, что в большинстве случаев поможет избавиться от ошибки «Out of memory» на вашем компьютере.

Источник

Недостаточно памяти (ошибка 7) Out of memory (Error 7)

Требуется больше памяти, чем доступно, или достигнута граница сегмента в 64 КБ. More memory was required than is available, or a 64K segment boundary was encountered. Эта ошибка имеет следующие причины и решения: This error has the following causes and solutions:

открыто слишком много приложений, документов или исходных файлов. You have too many applications, documents, or source files open. Закройте все ненужные приложения, документы и исходные файлы; Close any unnecessary applications, documents, or source files that are open.

есть модуль или процедура слишком большого размера. You have a module or procedure that’s too large. Разбейте большие модули или процедуры на меньшие. Break large modules or procedures into smaller ones. Это не сэкономит память, но может предотвратить достижение границы сегмента в 64 КБ; This doesn’t save memory, but it can prevent hitting 64K segment boundaries.

Microsoft Windows запущена в стандартном режиме. You are running Microsoft Windows in standard mode. Перезапустите Microsoft Windows в расширенном режиме; Restart Microsoft Windows in enhanced mode.

Microsoft Windows запущена в расширенном режиме, но не хватает виртуальной памяти. You are running Microsoft Windows in enhanced mode, but have run out of virtual memory. Увеличьте виртуальную память, освободив место на диске, или по меньшей мере убедитесь, что есть доступное место; Increase virtual memory by freeing some disk space, or at least ensure that some space is available.

запущены резидентные программы. You have terminate-and-stay-resident programs running. Удалите резидентные программы; Eliminate terminate-and-stay-resident programs.

загружено много драйверов устройств. You have many device drivers loaded. Удалите ненужные драйверы устройств; Eliminate unnecessary device drivers.

Недостаточно места для общедоступных переменных. You have run out of space for Public variables. Уменьшите количество переменных Public. Reduce the number of Public variables.

Предпринята попытка обновить свойство, доступное только для чтения. You have attempted to update a property that is read-only. Не присваивайте значения свойствам, которые доступны только для чтения. Do not assign values to read-only properties.

Для получения дополнительной информации выберите необходимый элемент и нажмите клавишу F1 (для Windows) или HELP (для Macintosh). For additional information, select the item in question and press F1 (in Windows) or HELP (on the Macintosh).

Поддержка и обратная связь Support and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь. Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Источник

RunTime Error 7 — Out of Memory

Проблема в следующем: все данные с листа помещаю в массив, чтобы их быстрее обработать. На малых объемах все работает хорошо. На больших, близких к граничным, вылезает ошибка «RunTime Error 7 — Out of Memory».

Она вылезает или на ReDim массива, или на присвоении массиву диапазона с листа.

ПАМЯТИ 8 ГБ, Excel 64 РАЗРЯДНЫЙ, ОПЕРАЦИОНКА 64 РАЗРЯДНАЯ,Excel 2016
ошибку даёт Redim на 111 533 строках и 1635 столбцах
Код

ПОМОГИТЕ ПОЖАЛУЙСТА.
ЗАРАНЕЕ СПАСИБО.

Ошибка Microsoft Visual C++ Runtime Library — Runtime Error
Здравствуйте. Буду признательна за помощь в моей беде. Совсем в этом не разбираюсь. В Safari при.

Ошибка времени исполнения: Server Error in ‘/’ Application, Runtime Error
Здравствуйте, через некоторое время после загрузки страницы если нажимаю на кнопку, то выдает.

[DCC Error] E2161 Error: RLINK32: Out of memory!
При компиляции вылаиет такая ошибка (сабж), да у меня много данных храниться в ресурсах, но при это.

Runtime Error 201:Range check error
Возникла ошибка(Runtime Error 201:Range check error) var a : array of longint; s.

Я выходил из такой ситуации следующим образом:
вычислял общее кол-во строк
определял кол-во проходов по массиву так, чтобы за один проход в массив загонялось не более 2000 строк(при условии 30 с лишним столбцов)
и так кусками обрабатывал.

Но у меня была ситуация такова, что мне надо было собрать результирующий массив с условиями, в результате чего результирующий массив был в разы меньше исходных данных. Память выдерживала без проблем и на 64 и на 32 битах.

Возможно дальше по коду у Вас идет присвоение массиву ячеек как объектов (а не значений) от чего и происходит перегруз (если только Вы не используете массив как раз именно с целью доступа к свойствам виртуальных ячеек).

Уверен, что если поискать по остальной части проекта, то можно аналогично оптимизировать.
В любом случае без всего кода тяжело что либо подсказать.
Утечка памяти может происходить где угодно.
Приведенный участок кода всего лишь информирует о том, что памяти больше нет.
Но он далеко не обязательно является основной причиной проблемы.

Источник

RunTime Error 7 — Out of Memory  на ReDim массива VBA Excel 64

Добрый день! 

Проблема в следующем: все данные с листа помещаю в массив, чтобы их быстрее обработать. На малых объемах все работает хорошо. На больших, близких к граничным, вылезает ошибка «RunTime Error 7 — Out of Memory». 

Она вылезает или на ReDim массива, или на присвоении массиву диапазона с листа. 

ПАМЯТИ 8 ГБ, Excel 64 РАЗРЯДНЫЙ, ОПЕРАЦИОНКА 64 РАЗРЯДНАЯ,Excel 2016
ошибку даёт Redim на 111 533 строках и 1635 столбцах 

на объёме маленьком ошибку не даёт (до 100 строк и до 100 столбцов) — работает нормально……

Если ошибку отлавливать 

On Error Resume Next
If Err.Number <> 0 Then
Err.Clear
End If

— то Excel виснит и  уходит в бесконечный цикл, постоянно увеличивая  занимаемую память. 

код 
Dim text_word2() As Variant
x=1635
ReDim text_word2(0 To kki, 0 To x)- место ошибки

полный код:

Private Sub CommandButton3_Click()
Dim n As Long
Dim nn As Long
Dim find As String
Dim kki, kkj As Integer

Dim k, kk, ii, i, j, jj, l, ll, jjj, i1, i2, kkk, j1, j2, j3, i3, jj3, eqmax As Long
Dim ii_find, jj_find, ii_text, jj_text As Long
Dim Txt, txt2, txt_p, txt_col, txt_row, txt_out As String


     Dim Rng_find As Range
     Dim Rng_text As Range
     Dim Rng_substitution As Range
     Dim Rng_out As Range
     Dim theRange_out As Range
     Dim Delimiter As String

    Dim Find_word() As String
    Dim Find_word2() As String
    Dim text_word1() As String
    Dim text_word2() As Variant

    On Error Resume Next
    Set Rng_find = Range(RefEdit1.Value)

    Set Rng_text = Range(RefEdit2.Value)
    Set Rng_substitution = Range(RefEdit3.Value)
    Set Rng_out = Range(RefEdit4.Value)
    Delimiter = Me.TextBox1
        
    On Error GoTo 0
     
    
    If Rng_find Is Nothing Then
        MsgBox "вы не выбрали диапазон какие данные ищем"
        Err.Clear
    Else
    If Rng_text Is Nothing Then
        MsgBox "вы не выбрали диапазон в котором ищем данные "
        Err.Clear
    Else
    
      If Rng_out Is Nothing Then
         MsgBox "вы не выбрали диапазон куда выводить данные"
         Err.Clear
      Else
    
    Application.ScreenUpdating = False
    
    
      
    If myWord(Rng_text).imyRows > myWord(Rng_text).imyColumns Then 'если строк больше чем столбцов в тексте в котором ищем
    
   'раскладываем по словам искомый диапазон
    ii_find = myWord(Rng_find).imyRows
    jj_find = myWord(Rng_find).imyColumns
    
    
    ReDim Find_word(1 To ii_find, 0 To jj_find) ' 0-вой столбец фраза целиком
    Find_word = myWord(Rng_find).iFindword
    
     ' переводим в массив 2-ух строк
     ' 0 строка фраза целиком
     ' 1 строка разложение по словам
    ReDim Find_word2(0 To 2, 0 To (jj_find * ii_find))  '
    jjj = 1
   For i = 1 To ii_find
     For j = 1 To jj_find
       If ((Find_word(i, j) <> "") And (Find_word(i, j) <> " ") And (Find_word(i, j) <> Empty) And (Len(Find_word(i, j)) > 2)) Then
          Find_word2(0, jjj) = Find_word(i, 0)
          Find_word2(1, jjj) = Find_word(i, j)
          jjj = jjj + 1
       End If
     Next j
   Next i
  
    'раскладываем по словам  диапазон в котором ищем
    ii_text = myWord(Rng_text).imyRows
    jj_text = myWord(Rng_text).imyColumns
    ReDim text_word1(1 To ii_text, 0 To jj_text) ' 0-вой столбец фраза целиком
    text_word1 = myWord(Rng_text).iFindword
'______________

'определение % совпадения каждого слова в строке в масиве  text_word2(i, j)
kkj = jj_text + jjj + 2
kki = ii_text + 2
ReDim text_word2(0 To kki, 0 To kkj)
On Error Resume Next
If Err.Number <> 0 Then
Err.Clear
End If


   '-составляем массив в котором будем сопоставлять

    For j = 0 To jj_text
         i2 = 3
        For i = 1 To (ii_text) 'заполнение массива
         
         text_word2(0, j) = "где ищем"
         
         text_word2(i2, j) = text_word1(i, j)
         i2 = i2 + 1
        Next i
      Next j
' первая строка - группы- искомые слова исходном виде- строка 0
' вторая строка - группы- искомые слова в разложенном виде - строка 1
   For i = 1 To 2 'заполнение массива
     kkk = jj_text + 1
      For jj = 1 To jjj
          text_word2(0, kkk) = "что ищем"
          text_word2(i, kkk) = Find_word2((i - 1), jj)
          kkk = kkk + 1
         Next jj
 
    Next i
  
  For i = 3 To i2 - 1 'получаем % совпадения искомых слов
  
       For jj = (jj_text + 1) To kkk
       eqmax = 0
         For jj3 = 1 To jj_text
          If text_word2(i, jj3) <> Empty Then
             If Equality(CStr(text_word2(i, jj3)), CStr(text_word2(2, jj))) > eqmax Then
                text_word2(i, jj) = CDbl(CDbl(Equality(CStr(text_word2(i, jj3)), CStr(text_word2(2, jj))) / Len(CStr(text_word2(2, jj)))))
                
                eqmax = Equality(CStr(text_word2(i, jj3)), (CStr(text_word2(2, jj))))
             End If
              If eqmax < 3 Then text_word2(i, jj) = ""
          End If
         Next jj3
        Next jj
     Next i
 
    
 
  ElseIf myWord(Rng_text).imyRows < myWord(Rng_text).imyColumns Then 'если столбцов больше чем строк в тексте в котором ищем
  
  Else
  
  
  End If
  
  
  'динамический расчёт вставляемого массива от заданной ячейки полбзователем
 
 txt_p = Substring(RefEdit4.Text, "!", 1)
 txt_col = Substring(Substring(RefEdit4.Text, "!", 2), "$", 2)
 txt2 = Substring(Substring(RefEdit4.Text, "!", 2), "$", 3)
 txt_row = Substring(txt2, ":", 1)

 i = jj_text + jjj + 2 + Int(Columns(txt_col).Column)
 
 txt_out = txt_col & txt_row & ":" & Trim(Substring(Cells(1, i).Address, "$", 2)) & Trim(Str((ii_text + 2) + Int(txt_row)))

'вставка итогового массива
      ActiveWorkbook.ActiveSheet.Range(txt_out).Clear
       Set theRange_out = ActiveWorkbook.ActiveSheet.Range(txt_out)
         theRange_out = text_word2
      
           
      End If
    End If
  End If

ВОПРОС БЫЛ КАК ОБОЙТИ Redim ? ИЛИ КАК ОТЛОВИТЬ ОШИБКУ «RunTime Error 7 — Out of Memory «…

ТУТ ГЛЮК САМОГО VBA EXCEL В Redim на больших объёмах….

ПОМОГИТЕ ПОЖАЛУЙСТА.
ЗАРАНЕЕ СПАСИБО.

this might be on here somewhere and I missed it, just let me know.

After running my macro, I get Run-time Error 7 Out of Memory. After debugging, it’s on this line:

cell.Offset(0, 6).Value = Sheets("MakeRing_Maths").Range("N1").Value

The code is meant to run down a list of airports with longitudes and latitudes, create line segments that will be interpreted as circles, and convert to .KML (which is read by Google Earth Pro).

Here is the rest of the code — how can I clean something like this up to avoid memory leaks??

All answers appreciated, or pointers to other posts. I know this is a lot, so general suggestions are also welcome! Thank you!

Sub PLANEMAN_Coords()

Dim Latitude As Double
Dim Longitude As Double
Dim Bearing As Integer
Dim LeftRight As Integer
Dim RangeKM As Double
Dim MinRange As Double

For Each cell In [RangeRings_ENTER!B9:B5001]

    If cell.Value = "" Then
        GoTo EXITLOOP
    Else
    End If

    Latitude = cell.Offset(0, 1)
    Longitude = cell.Value

    'set default values:

    'line width
    If cell.Offset(0, 2).Text = "" Then
        cell.Offset(0, 2).Value = 2
        'default line width = 2
    Else
    End If

    'radius
    If cell.Offset(0, 5).Text = "" Then
       cell.Offset(0, 5).Value = 8.04672
        'default radius = 8.04672 km = 5 miles
    Else
    End If
    RangeKM = cell.Offset(0, 5)

    'line color
    If cell.Offset(0, 3).Text = "" Then
        cell.Offset(0, 3).Value = "ff0000ff"
        'default line color is Red
    Else
    End If

    'common code
    Sheets("MakeRing_Maths").Range("D3").Value = Longitude
    Sheets("MakeRing_Maths").Range("E3").Value = Latitude
    Sheets("MakeRing_Maths").Range("D1").Value = RangeKM

    'code that differs depending on range-ring type
    If cell.Offset(0, 7).Text = "Circle" Then
        Sheets("MakeRing_Maths").Range("J1").Value = 0 'Bearing
        Sheets("MakeRing_Maths").Range("J2").Value = 180 'width - ie 2 x 180 = 360 = complete circle
        Calculate
        cell.Offset(0, 6).Select 'just so that the user can 'see' that the macro is still running and not crashed
        cell.Offset(0, 6).Value = Sheets("MakeRing_Maths").Range("N1").Value
    Else
        'else wedge of some sort

        Bearing = cell.Offset(0, 8)
        LeftRight = cell.Offset(0, 9)
        MinRange = cell.Offset(0, 10)

        Sheets("MakeRing_Maths").Range("J1").Value = Bearing
        Sheets("MakeRing_Maths").Range("J2").Value = LeftRight

        If cell.Offset(0, 7).Text = "Wedge" Then
            Calculate
            cell.Offset(0, 6).Select 'just so that the user can 'see' that the macro is still running and not crashed
            cell.Offset(0, 6).Value = Sheets("MakeRing_Maths").Range("N2").Value
        Else 'else a wedge with minimum range component 'Wedge2
            If cell.Offset(0, 7).Text = "Wedge2" Then
                Sheets("MakeRing_Maths").Range("F1").Value = MinRange
                Calculate
                cell.Offset(0, 6).Select 'just so that the user can 'see' that the macro is still running and not crashed
                cell.Offset(0, 6).Value = Sheets("MakeRing_Maths").Range("N3").Value
            Else
                If cell.Offset(0, 7).Text = "Arrow" Then
                    Sheets("MakeRing_Maths").Range("F1").Value = RangeKM * 0.95
                    Calculate
                    cell.Offset(0, 6).Select 'just so that the user can 'see' that the macro is still running and not crashed
                    cell.Offset(0, 6).Value = Sheets("MakeRing_Maths").Range("N4").Value
                Else
                    'HERE
                End If
            End If
        End If
    End If
Next

EXITLOOP:

Call PLANEMAN_RangeRings_KML 'make KML file

End Sub



Sub PLANEMAN_RangeRings_KML()
' Original inspiration code by simon_a
' Planeman 2009

    'get user to specify save location and name
    Dim ThisAddress As String
    ChDir ThisWorkbook.Path
    ThisAddress = Application.GetSaveAsFilename(FileFilter:="KML Files (*.kml),*.kml", Title:="Save Location & Name")

    ' file details
    filePath = ThisAddress
    docName = "PLANEMAN.KML"
    FolderName = "Folder"

    Open filePath For Output As #1

    'Write header to file
    outputText = "<?xml version=""1.0"" encoding=""UTF-8""?> <kml xmlns=""http://www.opengis.net/kml/2.2"" xmlns:gx=""http://www.google.com/kml/ext/2.2"" xmlns:kml=""http://www.opengis.net/kml/2.2"" xmlns:atom=""http://www.w3.org/2005/Atom""> <Document><name>" & docName & "</name>    <Folder>    <name>" & FolderName & "</name>  <open>1</open>"
    Print #1, outputText

    'loop
    For Each cell In [RangeRings_ENTER!B9:B5001]

        If cell.Value = "" Then
           Exit For
        End If

        StrPart1 = "<Style id=""sn_ylw-pushpin""><IconStyle><color>" & cell.Offset(0, 3) & "</color></IconStyle><LineStyle><width>" & cell.Offset(0, 2) & "</width><color>" & cell.Offset(0, 3) & "</color></LineStyle><PolyStyle><color>" & cell.Offset(0, 3) & "</color></PolyStyle></Style>"
        StrPart2 = "<Placemark><name>" & cell.Offset(0, -1) & "</name>  <styleUrl>#sn_ylw-pushpin</styleUrl>    <LineString>    "
        StrPart3 = "<coordinates>" & cell.Offset(0, 6) & ",0 </coordinates> </LineString></Placemark>"

        'Create a placemark
        outputText = StrPart1 & StrPart2 & StrPart3
        Print #1, outputText

    Next

   'Write footer to file
    outputText = "</Folder></Document></kml>"
    Print #1, outputText

    Close #1

    MsgBox "Macro Complete"

'
End Sub

Sub PLANEMAN_Placemarks_KML()
' Original inspiration code by simon_a
' Planeman 2009

    'get user to specify save location and name
    Dim ThisAddress As String
    ChDir ThisWorkbook.Path
    ThisAddress = Application.GetSaveAsFilename(FileFilter:="KML Files (*.kml),*.kml", Title:="Save Location & Name")

    ' file details
    filePath = ThisAddress
    docName = "PLANEMAN.KML"
    FolderName = "PlacemarkFolder"

    Open filePath For Output As #1

    'Write header to file
    outputText = "<?xml version=""1.0"" encoding=""UTF-8""?><kml xmlns=""http://www.opengis.net/kml/2.2""> <Document><name>" & docName & "</name>    <Folder>    <name>" & FolderName & "</name>  <open>1</open>"
    Print #1, outputText

    'loop
    For Each cell In [Placemarks_ENTER!B9:B5001]

        If cell.Value = "" Then
           Exit For
        End If

        StrPart1 = ""
        StrPart2 = " <Placemark> <name> " & cell.Offset(0, -1) & " </name> "
        StrPart3 = cell.Offset(0, 6) & "<Point><coordinates> " & cell.Offset(0, 0) & "," & cell.Offset(0, 1) & ",0</coordinates> </Point> </Placemark>"

        'Create a placemark
        outputText = StrPart1 & StrPart2 & StrPart3
        Print #1, outputText

    Next

   'Write footer to file
    outputText = "</Folder></Document></kml>"
    Print #1, outputText

    Close #1

    MsgBox "Macro Complete"

'
End Sub

Вернуться в Visual Basic 1–6

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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1