![]() |
Работ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 |
На билдере это выглядит так:
Procedure QuitFalse("Quit"); if (check) //Это проверка на было ли запущено приложение Excel { my_excel.Exec(QuitFalse); my_excel = Unassigned; } |
Время: 08:03. |
Время: 08:03.
© OSzone.net 2001-