Leonidas
12-05-2004, 13:32
Работaю с Ехсеl , как с БД. После закрытия програмы Ехсеl остается где-то в памяти *и при каждом повторном запуске пр-мы кол-во процессов Ехсеl в Task Manager нарастает. Как убить
Ехсеl ? Вот код пр-мы:
Dim myBook
Dim zakr
Private Sub Form_Load()
OpenBook1
End Sub
Sub OpenBook1()
* *Set myBook = Workbooks.Open(FileName:="C:\Res4.XLS")
* * * * * *
* * * * * *Command1.Caption = myBook.Worksheets(1).Range("a3").Value
* * * * * *‘………
* *End Sub
Private Sub Form_Unload(Cancel As Integer)
Ochistka
myBook = Nothing
End Sub
Sub Ochistka()
Set zakr = Workbooks.Close(FileName:=" C:\Res4.XLS ")
End Sub
Ехсеl ? Вот код пр-мы:
Dim myBook
Dim zakr
Private Sub Form_Load()
OpenBook1
End Sub
Sub OpenBook1()
* *Set myBook = Workbooks.Open(FileName:="C:\Res4.XLS")
* * * * * *
* * * * * *Command1.Caption = myBook.Worksheets(1).Range("a3").Value
* * * * * *‘………
* *End Sub
Private Sub Form_Unload(Cancel As Integer)
Ochistka
myBook = Nothing
End Sub
Sub Ochistka()
Set zakr = Workbooks.Close(FileName:=" C:\Res4.XLS ")
End Sub