Se ha producido el error 13 en tiempo de ejecucion, No coinciden los tipos
Publicado por Jorge Ortiz (1 intervención) el 03/11/2011 21:48:50
Estoy tratando de crear una macro en la que necesito abrir una seria de archivos que estan en otra pc, los archivos son de extension .csv y quiero que cuando yo escriba el nombre del archivo la macro abra el archivo, copie los datos, los pegue en mi hoja de calculo y luego cierre el archivo, el problema es que me manda el error: 13 en tiempo de ejecucion, que no coinciden los tipos, les anexo el codigo que utilize espero puedan ayudarme, gracias....
Sub Macro1()
Dim remi As Workbook
Set remi = ActiveWorkbook
nombre = Hoja1.Range("e3").Value 'Actualiza
ruta = "C:\Hola\"
Abrir = ruta + nombre
Workbooks.Open Filename:=Abrir
nuevo = ActiveWorkbook.Name
Workbooks(nuevo).Activate
Workbooks(nuevo).Sheets(1).Range("a2:h5000").Copy
remi.Activate
Workbooks(remi).Sheets("hoja2").Range("a2").Value = Workbooks(nuevo).Sheets(1).Range("a2:h5000").Value
Application.CutCopyMode = False
Workbooks(nuevo).Close
El texto que esta en negritas es el que me genera el error, gracias...
End Sub
Sub Macro1()
Dim remi As Workbook
Set remi = ActiveWorkbook
nombre = Hoja1.Range("e3").Value 'Actualiza
ruta = "C:\Hola\"
Abrir = ruta + nombre
Workbooks.Open Filename:=Abrir
nuevo = ActiveWorkbook.Name
Workbooks(nuevo).Activate
Workbooks(nuevo).Sheets(1).Range("a2:h5000").Copy
remi.Activate
Workbooks(remi).Sheets("hoja2").Range("a2").Value = Workbooks(nuevo).Sheets(1).Range("a2:h5000").Value
Application.CutCopyMode = False
Workbooks(nuevo).Close
El texto que esta en negritas es el que me genera el error, gracias...
End Sub
Valora esta pregunta
0