Saltar al contenido

¿Como omitir un error correctamente?


manzano

Recommended Posts

@manzano

 , solo tenías que cambiar lo siguiente... si es que lo que ponnes en tu código es lo que quieres...

For i = 1 To 5
Fichero = Dir(ThisWorkbook.Path & "\EXCEL\" & i & ".csv", vbArchive)
    If Fichero <> "" Then
        Set wbDestino = Workbooks.Open("ThisWorkbook.Path & "\EXCEL\" & Fichero)
Enlace a comentario
Compartir con otras webs

Otra vez el "#$% foro dejándote a medias editando un post ?

Y digo si es lo que quieres, porque al ser un fichero de texto (csv), lo puedes importar en excel mediante:

Pestaña "Datos"-->Obtener Datos Externos-->Desde un Archivo

Una vez en el cuadro de diiálogo de importación, en tu caso debes elegir "Mis datos tienen encabezados" y "Separados por comas". Te dejo un resultado

 

 

 

Libro1.xlsx

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.