Lancé Excel Z: un entrenamiento práctico para aprender Excel desde cero

Imagen
Hoy quiero compartir un proyecto que estuve desarrollando con mucho cuidado aprender Excel desde cero jugando y practicando: Excel Z ⚡ Excel Z es un entrenamiento práctico para aprender Excel desde cero, a través de retos visuales y ejercicios reales. No es un curso tradicional lleno de teoría. La idea es aprender haciendo, paso a paso, como un entrenamiento mental. ¿Qué incluye Excel Z (Retos 1 al 3)? ✔ Manual en PDF con los retos ✔ Ejercicios prácticos en Excel, plantilla de Excel ✔ Imágenes ilustradas de cada reto ✔ Un mazo imprimible tipo cartas para entrenar sin pantalla Está pensado para: - Personas que quieren mejorar en Excel - Maestros que buscan material didáctico - Estudiantes - Oficinistas - Personas que siempre dijeron “Excel no es lo mío” El contenido está completamente en español. 👉 Puedes ver el producto y descargar aquí: Excel Z Retos 1 al 3 Este es solo el inicio del proyecto, más retos y niveles vendrán después. Gracias por leer y por apoyar proyectos educativo...

Macro de Excel para abrir archivo csv

Hay veces que quieres abrir un archivo de Excel pero está separado por comas, punto y coma o por un pipe. Hay formas de hacerlos desde Excel. Les quiero compartir algunas opciones de como hacerlo y espero que les sean de utilidad.

1.Es abrir el archivo en Excel y utilizar la función de separar por columnas y seleccionar el delimitador, por ejemplo ";"






2. Es colocar "sep=;" en el primer renglón del archivo que quieres abrir y guardar en formato CSV y abrirlo en Excel y te lo abrirá separado en columnas.




3. Otra forma es con una macro, esté en mi gusto es la que más me funciona porque si hay alguna coma en la descripción o en alguna columna, si lo abres desde Excel te va a desacomodar las columnas. 

Este botón te abrirá un pantalla para abrir el archivo que quieres separar y te lo abrirá en una hoja de excel ya separado.

El código de la macro es el siguiente 
Private Sub CommandButton1_Click()

Dim sht As Worksheet
Dim fnd As Variant
Dim rplc As Variant
Dim wb As Workbook
  
  strArchivo = Application.GetOpenFilename
  If strArchivo = False Then Exit Sub
  Workbooks.OpenText fileName:=strArchivo
  
  Set wb = Workbooks.Open(strArchivo)
  
  fnd = ","
  rplc = " "

  Set sht = wb.Sheets(1)

 'Replace comma
 sht.Cells.Replace what:=fnd, Replacement:=rplc, _
 LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
 SearchFormat:=False, ReplaceFormat:=False
  
  
 sht.Columns("A:A").Select
 Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
 TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
 Semicolon:=True, Comma:=False, Space:=False, Other:=False


End Sub

Si les gustaría ver un vídeo dejen sus comentarios.

Espero les sea de utilidad y nos compartan 🤗😁

Comentarios

  1. Gracias por compartir, me fue util en un desarrollo personal..

    ResponderBorrar
    Respuestas
    1. Hola que bueno que te ayudó 👍, gracias por visitarnos y dejar tu comentario

      Borrar
  2. Buen día, muy buen aporte. Muchas gracias.
    Aunque solo elimina las comas, no separa las palabras en columnas. ¿Cómo se podría hacer?

    ResponderBorrar

Publicar un comentario

Dejanos tus dudas y comentarios

🚀 Mantener este blog funcionando requiere tiempo y café. ¡Puedes contribuir con uno aquí!

Entradas más populares de este blog

Guía Práctica: Ejemplo Completo de ASPX para Desarrolladores Web

📊 Automatiza tu trabajo: Convierte tablas de Word a Excel con una macro

Ejemplo de Macro en Word para Automatizar Documentos