Macro de Excel para abrir archivo cvs

Share this Post Share to Facebook Share to Twitter Email This Pin This
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 🤗😁

No hay comentarios.:

Publicar un comentario