Недостаточно памяти для завершения этого действия.

У меня есть небольшая проблема с Excel. Каждый раз, когда я открываю лист, появляется эта ошибка:

через примерно 10-15 минут. Я пробовал несколько способов, найденных в интернете, вот список того, что я пробовал: добавление дополнительной памяти, переход с 32-битной на 64-битную версию и обратно, добавление виртуальной памяти, отключение и включение DDE, смена версий Office, а также несколько настроек реестра. Теперь я задумался, может быть, это макрос, который я использую, переключающийся между двумя листами через определённый интервал. Сначала я думал, что это проблема, когда я их открываю в общем доступе, поэтому я написал скрипт, который копирует их локально, но ошибка все равно возникает.

Обработчик ошибок

Dim RunTime1 As Date

Sub MacroSwitch()

     Application.DisplayFullScreen = True

     On Error GoTo Errhandler

     Application.ScreenUpdating = False

     Workbooks.Open Filename:= _
        ThisWorkbook.Path & "\Monteursplanning.extern.xls", ReadOnly:=True
     ActiveWindow.WindowState = xlMaximized

     Exit Sub

Errhandler:
     MsgBox "An error has occurred. The macro will end."

     Application.DisplayFullScreen = False
End Sub

Кнопка запуска переключения

Sub MacroAutoRun1() 

     Application.DisplayFullScreen = True

RunTime1 = Now + TimeValue("00:01:00")

    Application.OnTime RunTime1, "MacroAutoRun1"

    If IsWbOpen("Monteursplanning.extern.xls") Then

         Application.ScreenUpdating = False

         Workbooks.Open Filename:= _
            ThisWorkbook.Path & "\Monteursplanning.intern.xls", ReadOnly:=True
         ActiveWindow.WindowState = xlMaximized

         Windows("Monteursplanning.extern.xls").Activate
         ActiveWindow.Close

         Application.ScreenUpdating = True

    Else

         Application.ScreenUpdating = False

         Workbooks.Open Filename:= _
            ThisWorkbook.Path & "\Monteursplanning.extern.xls", ReadOnly:=True
         ActiveWindow.WindowState = xlMaximized

         Windows("Monteursplanning.intern.xls").Activate
         ActiveWindow.Close

         Application.ScreenUpdating = True

    End If
  End Sub

какие-нибудь идеи?

Вы могли бы использовать AutoIt скрипт, который периодически переоткрывает книгу, или вы могли бы сделать это с помощью источника данных в вашем файле “Display” и кода для переключения между листами этого файла.

• Настройте соединение для Excel файла, используя Данные => Существующие соединения/Соединения => Другие элементы (внизу) и выберите ваш Monteurplannung.intern.xls, добавьте данные на ваш первый лист. Обязательно настройте свойства для автоматического обновления и измените определение, чтобы заменить Mode=Share Deny Write на Mode=Read, чтобы файлы открывались только для чтения.
• Настройте второе соединение для другого файла и отображайте эти данные на втором листе. В параметрах можно указать интервал обновления.

Все это основано на информации из этой статьи справки.

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

Sub MacroAutoRun1()
    RunTime1 = Now + TimeValue("00:00:01")

    Application.OnTime RunTime1, "MacroAutoRun1"

    If ActiveSheet.Name = "Tabelle1" Then
        ThisWorkbook.Sheets("Tabelle2").Activate
    Else
        ThisWorkbook.Sheets("Tabelle1").Activate
    End If
End Sub