MACRO Extraer datos de una Tabla de excel a otro Libro
publicado
Hola que tal, quisiera hacer una consulta, intente desarrollar la siguiente macro pero me surgieron algunas dudas.
La misma consiste en levantar todos los datos de una Tabla de excel, (siempre estará en la misma ruta) y pegarlos en el libro activo, en la celda activa donde ejecuto la macro. Osea esta macro la voy a guardar como complemento y así utilizarla en cualquier excel que abra, por eso necesito que el código me reconozca el excel donde la ejecuto para poder pegar los datos de la tabla y obvio luego me lo cierre sin guardar.
Así es como lo propuse, pero solo anda para un libro llamado "Libro1" y necesito que ande para cualquiera, ademas tampoco me estaba pegando en la celda activa.
Si me pueden dar una mano de como reescribir el código le agradezco.
Hola que tal, quisiera hacer una consulta, intente desarrollar la siguiente macro pero me surgieron algunas dudas.
La misma consiste en levantar todos los datos de una Tabla de excel, (siempre estará en la misma ruta) y pegarlos en el libro activo, en la celda activa donde ejecuto la macro. Osea esta macro la voy a guardar como complemento y así utilizarla en cualquier excel que abra, por eso necesito que el código me reconozca el excel donde la ejecuto para poder pegar los datos de la tabla y obvio luego me lo cierre sin guardar.
Así es como lo propuse, pero solo anda para un libro llamado "Libro1" y necesito que ande para cualquiera, ademas tampoco me estaba pegando en la celda activa.
Si me pueden dar una mano de como reescribir el código le agradezco.
Sub TraerDatosdeLicitaciones()
Application.StatusBar = False
Workbooks.Open Filename:="\\arregui04\Oficina Tecnica\04 Licitaciones\00 AGREGAR LICITACIÓN.xlsm"
Windows("00 AGREGAR LICITACIÓN.xlsm").Activate
Range("LICITACIONES[#All]").Select
Selection.Copy
Application.StatusBar = False
'Windows("Libro1").Activate
ActiveWorkbook.Activate
Rows(ActiveCell.Row).Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Workbooks("00 AGREGAR LICITACIÓN.xlsm").Close False
End Sub