Jump to content

Formato ANSI TXT a codificación UTF-8


eayvl

Recommended Posts

Hola, 

Quiero agradecer de antemano toda la ayuda que me puedan dar en mi solicitud;

Este código genera varios archivos TXT ANSI pero necesito que los genere con la codificación UTF-8

Anexo archivo y código que fue realizado por @Héctor Miguel

Sub TXT_Pipes_xFila()
' procedimiento para generar archivos de texto separados por... ??? ' _
  R&D: Héctor Miguel Orozco Díaz (octubre 2017) ' _
  (modificado por comprobaciones en ceros: febrero 2018) '
  Dim ruta As String, formFecha As String, sep As String, fila As Long, col As Integer, _
         dato As String, contenido As String, linea As String, archivo As String
  ruta = ThisWorkbook.Path & "\"  ' <= puedes indicar una ruta/carpeta distinta '
  formFecha = "dd/mm/yyyy" ' <= por si requieres cambiar el formato de fecha en algunos campos '
  sep = "|" ' <= indica el separador de campos/columnas que prefieras '
  For fila = 2 To Cells(Rows.Count, 1).End(xlUp).Row ' las filas con datos a procesar '
    linea = ""
    For col = 1 To 52 ' total de columnas en la hoja a procesar '
      dato = Cells(fila, col)
      Select Case col
        Case 4, 18, 26, 39, 47 ' columnas que requieren el dato con formato de fecha '
          dato = Format(dato, formFecha)
      End Select
      contenido = contenido & sep & dato
      Select Case col
        Case 8, 14, 22, 29, 35, 43, 52 ' columnas que determinan el final de cada bloque '
          If CDbl(Cells(fila, col)) > 0 Or CDbl(Cells(fila, col - 1)) > 0 Then linea = linea & Mid(contenido, 2) & vbCrLf
          contenido = ""
      End Select
    Next
    
    archivo = Format(Now, "dd mmm yyyy hh mm ss AMPM ") & Range("bb" & fila) & ".txt"
    
    Open ruta & archivo For Output As #1: Print #1, linea: Close #1
  Next
End Sub

 

Lo anexo enzipado en 2 formatos por si alguno no funciona.

gracias!

 

genera txt.7z

genera txt.zip

Link to post
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy