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

Publicar un comentario

Entradas populares