@Syntax

Здравствуйте!
В моем алгоритме есть функция программного удаления UserForm с определенным именем (UserForm_cab1, UserForm_cab2, UserForm_cab3,....):

Sub Udalenie_cab()
Dim i%
For i = 1 To ThisWorkbook.VBProject.VBComponents.Count
With ThisWorkbook.VBProject.VBComponents
If .Item(i).Name Like "UserForm_cab*" Then
.Remove .Item(i)
End If
End With
Next i
End Sub

После выполнения этой функции, спустя некоторое количество условий и действий, может понадобиться вновь программно создать UserForm-ы с такими же именами UserForm_cab1, UserForm_cab2, и т.д.

Так вот, при удалении, юзерформы удаляются из проекта (в дереве слева в окне Basic они пропадают). Но при повторном создании программа ругается "Path/File access error" и выделяет строчку в модуле создания форм (см. рис).

Если же после этого руками удалить юзерформу и попробовать снова - то же самое. Но вот если удалить и сохранить после этого - всё работает нормально.

Думается мне, что это как-то связано с тем, что данные об объектах висят где-то в каком-нибудь трэе во время выполнения макроса.

Подскажите, кто знает, как можно выгрузить форму из этого трэя после удаления?

Полный код создания формы:

Sub Formirovanie_cab()
Dim UserForm_cab As Object
'...
Dim i, n
Dim Line As Integer
Dim Combo As String
Dim Text As String
Dim a2%, b2%, c2%, d2%, e2%, f2%, sum%
'...
sum = a2 + b2 + c2 + d2 + e2 + f2
For i = 1 To sum
Set UserForm_cab = ThisWorkbook.VBProject.VBComponents.Add(3) ' Добавляется UserForm
With UserForm_cab ' Задаются свойства формы
.Properties("Caption") = "Точный расчет"
.Properties("Name") = "UserForm_cab" & i
.Properties("Width") = 746.25
.Properties("Height") = 813.75
End With
'-----------------------------------------------------------------------------------------------------------------------------------------------
'СОЗДАНИЕ ЭЛЕМЕНТОВ УПРАВЛЕНИЯ
'-----------------------------------------------------------------------------------------------------------------------------------------------
'I. Label
'-----------------------------------------------------------------------------------------------------------------------------------------------
Set Label1 = UserForm_cab.Designer.Controls.Add("forms.Label.1") ' Добавляется Надпись 1
With Label1 ' Задаются свойства Надписи 1
.Caption = "Шкаф " & i
.Height = 18
.Left = 30
.Top = 18
.Width = 102
.Font = "Calibri"
.FontSize = 14
.FontBold = True
End With

'-----------------------------------------------------------------------------------------------------------------------------------------------
'i. TextBox
'-----------------------------------------------------------------------------------------------------------------------------------------------
Set Text101 = UserForm_cab.Designer.Controls.Add("forms.TextBox.1") ' Добавляется Текстовый блок 101
With Text101 ' Задаются свойства Текстового блока 101
.Name = "TextBox101"
.Height = 18
.Left = 288
.Top = 66
.Width = 42
.FontSize = 10
.TextAlign = fmTextAlignCenter
End With

'-----------------------------------------------------------------------------------------------------------------------------------------------
'iI. ComboBox
'-----------------------------------------------------------------------------------------------------------------------------------------------
Set ComboBox1 = UserForm_cab.Designer.Controls.Add("forms.ComboBox.1") ' Добавляется Выпадающий список 1
With ComboBox1 ' Задаются свойства Выпадающего списка 1
.Name = "ComboBox1"
.Height = 18
.Left = 30
.Top = 66
.Width = 216
.FontSize = 10
.RowSource = "'Base_Контроллеры'! C7:C82"
.ListIndex = 0
End With

'-----------------------------------------------------------------------------------------------------------------------------------------------
'IV. ListBox
'-----------------------------------------------------------------------------------------------------------------------------------------------
Set ListBox11 = UserForm_cab.Designer.Controls.Add("forms.ListBox.1") ' Добавляется Список 11
With ListBox11 ' Задаются свойства Списка 11
.Name = "ListBox11"
.Height = 15
.Left = 30
.Top = 756
.Width = 48
.FontSize = 10
.RowSource = "'Base_Контроллеры'! D782"
.Visible = False
End With

'-----------------------------------------------------------------------------------------------------------------------------------------------
'V. CommandButton
'-----------------------------------------------------------------------------------------------------------------------------------------------
Set NewButton1 = UserForm_cab.Designer.Controls.Add("forms.CommandButton.1") ' Добавляется Кнопка 1
With NewButton1 ' Задаются свойства Кнопки 1
.Caption = "Далее"
.Height = 30
.Left = 630
.Top = 755.95
.Width = 84
.Font = "Calibri"
.FontSize = 12
End With
Set NewButton2 = UserForm_cab.Designer.Controls.Add("forms.CommandButton.1") ' Добавляется Кнопка 2
With NewButton2 ' Задаются свойства Кнопки 2
.Caption = "Назад"
.Height = 30
.Left = 534
.Top = 755.95
.Width = 84
.Font = "Calibri"
.FontSize = 12
.Visible = False
End With
Next i
Module3.Spisok_1
Module4.Spisok_2
Module5.Spisok_3
Module6.Spisok_4
Module7.Spisok_5
Module8.Spisok_6
Module9.Spisok_7
Module10.Spisok_8
Module11.Spisok_9
Module12.Spisok_10
Module13.Spisok_11
Module14.Spisok_12
Module15.Spisok_13
Module16.Spisok_14
Module17.Spisok_15
Module18.Spisok_16
Module19.Spisok_17
Module20.Spisok_18
Module21.Spisok_19
Module22.Spisok_20
Module23.Spisok_21
Module24.Spisok_22
Module25.Spisok_23
End Sub

Миниатюры

 

0

@Vovchikvsb

Выгрузка из памяти происходит так.
Но я не уверен, что это то что вы ищите.

0

@Казанский

А удалять компоненты проекта из этого же проекта - это как аппендикс самому себе вырезать. Без крайней необходимости делать это не нужно. Измените алгоритм.

0

@Syntax

Vovchikvsb, Unload не помогает, Terminate не помогает((((

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

Добавлено через 4 минуты
Да, кстати, предвидя возможное предложение:

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

0