PDA

View Full Version : مشکل در آزاد شدن حافظه در آبجکت excel



aliila
دوشنبه 03 اسفند 1388, 14:18 عصر
من با کد زیر در یک فرم از پروژه چند فرمی یک فایل اکسل رو باز میکنم و عملم رو انجام میدم و کارم که تموم شد فایل اکسل رو ذخیره میکنم ولی تا وقتی کل برنامه رو نبندم پروسس اکسل از تسک منیجر پاک نمی شه و هر بار که فرم را باز میکنم این عمل تکرار میشه و بعد از 10 بار کل حافظه رو تلف میکنه لطفا کمک کنید



excel_app_print = CreateObject("Excel.Application")
excel_app_print.Workbooks.Open(Filename:=p1)

.
.
.
excel_app_print.ActiveWorkbook.Close(False)
excel_app_print.Quit()

Sharif Lotfi
دوشنبه 03 اسفند 1388, 19:31 عصر
در آخر برنامه آبجکت های اپلیکیشن-فایل و شیت رو مطابق زیر قرار بده :
oSheet = Nothing
oWorkBook = Nothing
oExcel = Nothing

دوست عزيز قبل از ظرح سوال يه جستجوي كوچيك شما رو سريعتر به جواب مي رسونه:
http://barnamenevis.org/forum/showthread.php?t=88103&highlight=excel