
Cerrar 2 libros de EXCEL desde VBA
Publicado por amataran (5 intervenciones) el 24/04/2015 01:40:19
Dim oExcel As Object
Set oExcel = CreateObject("Excel.Application")
Set objWorkbook1 = oExcel.Workbooks.Open(libro1$) 'Abro 2 libros
Set objWorkbook2 = oExcel.Workbooks.Open(libro2$)
oExcel.Application.DisplayAlerts = False
oExcel.Application.Visible = False
'........proceso
'........
oExcel.ActiveWorkbook.Save 'Guardo y cierro el primer libro (libro activo) FUNCIONA
oExcel.ActiveWorkbook.Close
oExcel.Workbooks(libro2$).Save 'Intento guardar el segundo libro, PERO ESTO NO FUNCIONA
oExcel.Workbooks(libro2$).Close
Set oExcel = CreateObject("Excel.Application")
Set objWorkbook1 = oExcel.Workbooks.Open(libro1$) 'Abro 2 libros
Set objWorkbook2 = oExcel.Workbooks.Open(libro2$)
oExcel.Application.DisplayAlerts = False
oExcel.Application.Visible = False
'........proceso
'........
oExcel.ActiveWorkbook.Save 'Guardo y cierro el primer libro (libro activo) FUNCIONA
oExcel.ActiveWorkbook.Close
oExcel.Workbooks(libro2$).Save 'Intento guardar el segundo libro, PERO ESTO NO FUNCIONA
oExcel.Workbooks(libro2$).Close
Valora esta pregunta


0