liberar de memoria
Publicado por orlando (65 intervenciones) el 12/05/2010 16:43:06
Dim xlApp As New Excel.Application
fecha = Date.Now
Dim wb As Excel.Workbook
wb = xlApp.Workbooks.Open(Filename:=TextBox1.Text)
For Each sheet As Excel.Worksheet In wb.Worksheets
Dim ArmarExcel As New plantilla(sheet.Name, TextBox1.Text, sheet.Cells(1, 2).value, colum)
ArmarExcel.atributos()
Next
MessageBox.Show("Datos Guardados", "ETL", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
wb.Close()
wb = Nothing
xlApp.Application.Quit()
xlApp.Quit()
xlApp.Workbooks.Close()
xlApp = Nothing
xlApp.Worksheets.Delete()
en resumen no puedo liberar de memoria el "EXCEL"
no se por que como ven ya puse de todo pero nada ayudaaaaaaaaaaaaaaaa
fecha = Date.Now
Dim wb As Excel.Workbook
wb = xlApp.Workbooks.Open(Filename:=TextBox1.Text)
For Each sheet As Excel.Worksheet In wb.Worksheets
Dim ArmarExcel As New plantilla(sheet.Name, TextBox1.Text, sheet.Cells(1, 2).value, colum)
ArmarExcel.atributos()
Next
MessageBox.Show("Datos Guardados", "ETL", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
wb.Close()
wb = Nothing
xlApp.Application.Quit()
xlApp.Quit()
xlApp.Workbooks.Close()
xlApp = Nothing
xlApp.Worksheets.Delete()
en resumen no puedo liberar de memoria el "EXCEL"
no se por que como ven ya puse de todo pero nada ayudaaaaaaaaaaaaaaaa
Valora esta pregunta


0