boveiryghasem
سه شنبه 30 خرداد 1391, 15:00 عصر
درود بر شما.
یه برنامه دارم که یه سری اطلاعات رو تو فرم وارد میکنم و با زدن یک دکمه اونارو به اکسل خاصی تو مسیری که از قبل بهش دادم میفرسته توی قسمت زیر تعریف میکنم اشیائی رو که نیاز دارم.
Imports Microsoft.Office.Interop.Excel
Public Class Form1
Dim objExcel As New Microsoft.Office.Interop.Excel.Application
Dim objWorkB As Workbook
Dim objWorkS As Worksheet
بعد توی رویداد کلیلک Button1_Click اطلاعات رو میفرستم به اکسلم که با کد زیر بازش میکنم:
objExcel.Workbooks.Open("D:\Ti_Checklist.xlsx")
objWorkB = objExcel.Workbooks(1)
objWorkS = objWorkB.Sheets("Sheet1")
با کد زیر هم وقتی کارم تموم شد اکسل رو میبندم ولی هنوز توی قمست Processes ،Windows task manager فایل اکسلم باز هستش البته Error نمیگیره وقبلش هم ذخیرش میکنم ولی چرا بسته نمیشه.؟
Try
obj = Nothing
Catch ex As Exception
obj = Nothing
Finally
GC.Collect()
End Try
یه برنامه دارم که یه سری اطلاعات رو تو فرم وارد میکنم و با زدن یک دکمه اونارو به اکسل خاصی تو مسیری که از قبل بهش دادم میفرسته توی قسمت زیر تعریف میکنم اشیائی رو که نیاز دارم.
Imports Microsoft.Office.Interop.Excel
Public Class Form1
Dim objExcel As New Microsoft.Office.Interop.Excel.Application
Dim objWorkB As Workbook
Dim objWorkS As Worksheet
بعد توی رویداد کلیلک Button1_Click اطلاعات رو میفرستم به اکسلم که با کد زیر بازش میکنم:
objExcel.Workbooks.Open("D:\Ti_Checklist.xlsx")
objWorkB = objExcel.Workbooks(1)
objWorkS = objWorkB.Sheets("Sheet1")
با کد زیر هم وقتی کارم تموم شد اکسل رو میبندم ولی هنوز توی قمست Processes ،Windows task manager فایل اکسلم باز هستش البته Error نمیگیره وقبلش هم ذخیرش میکنم ولی چرا بسته نمیشه.؟
Try
obj = Nothing
Catch ex As Exception
obj = Nothing
Finally
GC.Collect()
End Try