Acceso a bd desde excel y cerrar libros

Estimado experto ante todo un cordial saludo.
Desde un macros en Excel acceso a una base de datos .mdb en la cual me interesa transferir la información de tres tablas contenidas en ella: "sections", "options" y "optioneconomics" a un libro de Excel "Programas HDM4" a sus hojas 2,3 y 4. Sin embargo las tablas se abren en libros nuevos "libro 1", "libro2"y "libro3".
Mi pregunta es como cierro los libros 1,2,3 que se crearon, sin que aparezca el común mensaje de Excel "Desea guardar los cambios realizados" para cada libro respectivo 1,2,3" . Es decir no quiero que queden los libros 1,2 y 3 ni quiero guardarlos tan solo me interesa transferir la información de las tablas mencionadas a las hojas 2,3 y 4 del libro destino "programas HDM4".
El código utilizado es: ! Para el caso de la tabla "sections"!
Sub format()
Workbooks.OpenDatabase Filename:= _
Hoja1.Cells(10, 2) & "\RunData.mdb" _
, CommandText:=Array("SECTIONS"), CommandType:=xlCmdTable
Cells.Select
Selection.Copy
Windows("HDM4").Activate
Hoja2.Activate
Hoja2.Range("A1:IV65536").Select
Selection.PasteSpecial xlPasteValues
Windows("Libro1").Activate
ActiveWindow.Close
End sub
Agradeciendo de ante mano tu amable atención
German Cruz R.
[email protected]

1 respuesta

Respuesta
1
a), utiliza esta sentencia:
ThisWorkbook.Close SaveChanges:=False
[email protected]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas