Удалить используемую память при динамическом создании документа word из vba excel
Код:
Dim oWord As Object
Dim oDocument As Object
Sub Add_Doc_Zadvizhek()
Dim Mytime, myTimeSokr As String 'Переменная для текущего времени
Dim MyDate As String 'Переменная текущей даты
Dim TimeDate As String 'Переменная содержащая дату и время
Dim NameWihtoutDate, SaveFileName As String 'NameWihtoutDate - Имя файла без даты, FileName - имя файлы с датой
Dim Dlina_Mytime As Integer 'длина строки
Dim Putfile As String
Dim tableNew As Object
Dim docActive As Object
Dim i, j As Integer
Dim myRange As Object
Dim nach_poz As Integer
Dim kon_poz As Integer
Dim kol_zadv As Integer
Dim provKoncStran As Integer
Dim NomNachStrShkaf, NomKonStrShkaf, NomTekStroki, KolZadvShkafa As Integer
Dim nextPage As Integer 'Индикатор следующей страницы, перешла ли строка таблицы на следующую страницу
Dim tekStrDokum, RowPredStolb As Integer
Dim NazvShkProdolj As String
'Даём этому экземпляру имя "oWord". Через это имя
'будем обращаться к программе Word.
Set oWord = CreateObject("Word.Application")
'Делаем программу "Word" видимой.
oWord.Visible = True
'Создаём в программе Word документ и обращаемся к этому
'документу как "oDocument".
Set oDocument = oWord.Documents.Add
'Присваиваем объекту docActive активный документ приложения oWord
Set docActive = oWord.ActiveDocument
Далее идет заполнение документа большим объемом данных...
Dim oDocument As Object
Sub Add_Doc_Zadvizhek()
Dim Mytime, myTimeSokr As String 'Переменная для текущего времени
Dim MyDate As String 'Переменная текущей даты
Dim TimeDate As String 'Переменная содержащая дату и время
Dim NameWihtoutDate, SaveFileName As String 'NameWihtoutDate - Имя файла без даты, FileName - имя файлы с датой
Dim Dlina_Mytime As Integer 'длина строки
Dim Putfile As String
Dim tableNew As Object
Dim docActive As Object
Dim i, j As Integer
Dim myRange As Object
Dim nach_poz As Integer
Dim kon_poz As Integer
Dim kol_zadv As Integer
Dim provKoncStran As Integer
Dim NomNachStrShkaf, NomKonStrShkaf, NomTekStroki, KolZadvShkafa As Integer
Dim nextPage As Integer 'Индикатор следующей страницы, перешла ли строка таблицы на следующую страницу
Dim tekStrDokum, RowPredStolb As Integer
Dim NazvShkProdolj As String
'Даём этому экземпляру имя "oWord". Через это имя
'будем обращаться к программе Word.
Set oWord = CreateObject("Word.Application")
'Делаем программу "Word" видимой.
oWord.Visible = True
'Создаём в программе Word документ и обращаемся к этому
'документу как "oDocument".
Set oDocument = oWord.Documents.Add
'Присваиваем объекту docActive активный документ приложения oWord
Set docActive = oWord.ActiveDocument
Далее идет заполнение документа большим объемом данных...
Прежде как удалить объект нужно его закрыть (объект.Quit or объект.Close) ,потом можно уничтожить объект = Nothing
Пример DB
Код:
Dim DB As Database
'уборка мусора
If Not DB Is Nothing Then DB.Close: Set DB = Nothing
'уборка мусора
If Not DB Is Nothing Then DB.Close: Set DB = Nothing