Error al importar datos entre dos archivos de excel
Estiamdos señores, tengo un problema, tengo un archivo que se encarga de importar datos desde otro libro, aplicando una macros, el problema esta que al finalizar la copia de los datos y cerrar el libro (de donde obtengo los datos) me bota error.
aqui les dejo mi macro y agradezco a todas las personas que puedan apoyarme
Sub enevta()
Dim dir As String 'decalaras
MsgBox "Seleccione Libro a Importar"
dir = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*") 'selecionas el libro
Workbooks("kardex.xlsm").Sheets("egresos").Select
Range("a2,a4002").ClearContents
Workbooks.Open Filename:=(dir)
Sheets("01v").Select
Range("a8:a4008").Copy
Windows("Kardex.xlsm").Activate
Sheets("egresos").[a2].PasteSpecial xlPasteValues
Application.CutCopyMode = False
Workbooks(dir).Close savechanges:=False
End Sub
Te anexo la macro con la corrección
Sub enevta()
Dim dir As String 'decalaras
MsgBox "Seleccione Libro a Importar"
dir = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*") 'selecionas el libro
'
Workbooks("kardex.xlsm").Sheets("egresos").Select
Range("a2,a4002").ClearContents
Workbooks.Open Filename:=(dir)
'agregar esta línea
dir = ActiveWorkbook.Name
'
Sheets("01v").Select
Range("a8:a4008").Copy
'
Windows("Kardex.xlsm").Activate
Sheets("egresos").[a2].PasteSpecial xlPasteValues
Application.CutCopyMode = False
'
Workbooks(dir).Close savechanges:=False
End SubSaludos.Dante Amor
No olvides valorar la respuesta.
