Sacar datos de Excel
Publicado por Leonardo (50 intervenciones) el 28/09/2005 20:09:06
Hola!!!!!
EL PROBLEMA ES QUE NO CIERRA LA APLICACIÓN, O SEA QUE EJECUTO EL CÓDIGO (HACE LO QUE QUIERO), LUEGO SALGO DEL PROGRAMA E INTENTO ABRIR EL DOCUMENTO A TRAVES DE EXCEL Y NO SE ABRE EL DOCUMENTO.
Dim xlapp As excel.Application
Dim xlbook As excel.Workbook
Set xlapp = New excel.Application
Set xlbook = xlapp.Workbooks.Open ("MI ARCHIVO.xls")
Select Case Variable
Case Is = "A"
Pag = 1
Case Is = "B"
Pag = 2
Case Is = "C"
Pag = 3
Case Is = "D"
Pag = 4
End Select
xlapp.ActiveWorkbook.Sheets(Pag).Activate
'ACA, BUSCO DETERMINADOS VALORES EN LA PAGINA (Pag).
xlbook.Close
xlapp.Quit
Set xlbook = Nothing
Set xlapp = Nothing
Agradeceria cualquier tipo de ayuda,
EL PROBLEMA ES QUE NO CIERRA LA APLICACIÓN, O SEA QUE EJECUTO EL CÓDIGO (HACE LO QUE QUIERO), LUEGO SALGO DEL PROGRAMA E INTENTO ABRIR EL DOCUMENTO A TRAVES DE EXCEL Y NO SE ABRE EL DOCUMENTO.
Dim xlapp As excel.Application
Dim xlbook As excel.Workbook
Set xlapp = New excel.Application
Set xlbook = xlapp.Workbooks.Open ("MI ARCHIVO.xls")
Select Case Variable
Case Is = "A"
Pag = 1
Case Is = "B"
Pag = 2
Case Is = "C"
Pag = 3
Case Is = "D"
Pag = 4
End Select
xlapp.ActiveWorkbook.Sheets(Pag).Activate
'ACA, BUSCO DETERMINADOS VALORES EN LA PAGINA (Pag).
xlbook.Close
xlapp.Quit
Set xlbook = Nothing
Set xlapp = Nothing
Agradeceria cualquier tipo de ayuda,
Valora esta pregunta


0