Liberar VARIABLE
Publicado por barca1010 (132 intervenciones) el 02/08/2007 13:34:53
Espero que me puedan ayudar, tengo un codigo que lee una hoja de excel y luego guarda la informacion en una tabla de excel pero cuando finaliza la rutina veo que en el Administrador de procesos aparece el Excel y no se libera.
Esto es parte de codigo, lo que necesito es saber como liberar o resetear la variable "varMatriz " para que no me aparezca el Excel en el administrador de tareas
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlLibro As Excel.Workbook
Dim xlHoja As Excel.Worksheet
Dim varMatriz As Variant
Dim lngUltimaFila As Long
'abrir programa Excel
Set xlApp = New Excel.Application
'abrir el archivo Excel(archivo en otra carpeta)
Set xlLibro = xlApp.Workbooks.Open ("c:\Datos Enero 06.xls", True, True, , "")
Set xlHoja = xlApp.Worksheets("Cta Ene06")
lngUltimaFila = Columns("A:A").Range("A65536").End(xlUp).Row
varMatriz = xlHoja.Range(Cells(1, 1), Cells(lngUltimaFila, 1))
Text1.Text = varMatriz(1, 1)
xlLibro.Close SaveChanges:=False
xlApp.Quit
Set xlHoja = Nothing
Set xlLibro = Nothing
Set xlApp = Nothing
End Sub
Gracias.
Esto es parte de codigo, lo que necesito es saber como liberar o resetear la variable "varMatriz " para que no me aparezca el Excel en el administrador de tareas
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlLibro As Excel.Workbook
Dim xlHoja As Excel.Worksheet
Dim varMatriz As Variant
Dim lngUltimaFila As Long
'abrir programa Excel
Set xlApp = New Excel.Application
'abrir el archivo Excel(archivo en otra carpeta)
Set xlLibro = xlApp.Workbooks.Open ("c:\Datos Enero 06.xls", True, True, , "")
Set xlHoja = xlApp.Worksheets("Cta Ene06")
lngUltimaFila = Columns("A:A").Range("A65536").End(xlUp).Row
varMatriz = xlHoja.Range(Cells(1, 1), Cells(lngUltimaFila, 1))
Text1.Text = varMatriz(1, 1)
xlLibro.Close SaveChanges:=False
xlApp.Quit
Set xlHoja = Nothing
Set xlLibro = Nothing
Set xlApp = Nothing
End Sub
Gracias.
Valora esta pregunta


0