Tratamiento ficheros de texto con Excel: TextToColumns.

Un usuario habitual del blog preguntaba alguna forma de tratar información importada de un fichero tipo texto (extensión *.txt), la cual debía convertir de manera muy mecanica varias veces todos los meses, perdiendo bastante tiempo en la rutina. Y me pedía alguna manera de automatizar todo el proceso. Tiempo atrás subí un post con un ejemplo aplicado del uso de la herramienta Texto en columnas; y esa será en parte la tarea a explicar.
Si bien, ya que el preceso es reiterativo, generaremos algo de código VBA que nos facilite en el futuro su aplicación.

Supondremos para nuestra comodidad que disponemos en nuestra hoja de cálculo de la información del Fichero de texto; muy importante que cada una de las filas del fichero guarden la misma estructura respecto a las columnas, ya que nuestro trabajo consistirá en aplicar la herramienta de Texto en columnas con la opción de Ancho fijo para definir las columnas necesarias y sus formatos individualizados

Sabiendo cuáles deben ser las columnas resultantes, cuáles serán sus formatos y cuáles no se importaran, el código de nuestra macro a generar será:

'Ejecutamos la herramienta Texto en columnas y generamos el código VBA
Sub Trata_texto()
Sheets("Hoja1").Range("A1:A6").Select
 Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
 FieldInfo:=Array(Array(0, 9), Array(1, 4), Array(11, 1), Array(18, 1), _
 Array(25, 1), Array(32, 9), Array(36, 2), Array(50, 2), Array(75, 1)),_
DecimalSeparator:=".", ThousandsSeparator:=",", TrailingMinusNumbers:=True
'Array(x,1) formato General
'Array(x,2) formato Texto
'Array(x,3) formato fecha MDA
'Array(x,4) formato fecha DMA
'Array(x,5) formato fecha AMD
'Array(x,6) formato fecha MAD
'Array(x,7) formato fecha DAM
'Array(x,8) formato fecha ADM
'Array(x,9) No importa a Excel -omite- la columna definida
'Valores predeterminados para reconocer valores numéricos:
'   DecimalSeparator:="."
'entiende que el separador de los decimales es el .
'   ThousandsSeparator:=","
'entiende que el separador de los miles es la ,
End Sub

haz click en la imagen

Vemos como opera la instrucción Array dentro del parámetro FieldInfo para el método TextToColumns:

Rango de celdas.TextToColumns(Destination, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo, DecimalSeparator, ThousandsSeparator, TrailingMinusNumbers)

El código a continuación del parámetro FieldInfo:= se define como una matriz que contiene información de análisis para las columnas individuales de datos, interpretándose en función del valor de DataType (en nuestro ejemplo DataType:=xlFixedWidth).
Como los datos de origen tienen columnas definidas por nosotros como ancho fijo - FixedWidth-, el primer elemento de cada matriz - Array (x,y) - de dos elementos especificará la posición del primer carácter de la columna (como un entero; un carácter 0 (cero) es el primer carácter) y un segundo elemento de la matriz de dos elementos especifica la opción de distribución de la columna como un número de 1 a 9, de la manera indicada anteriormente, esto es:

1. Array(x,1) formato General


2. Array(x,2) formato Texto


3. Array(x,3) formato fecha MDA


4. Array(x,4) formato fecha DMA


5. Array(x,5) formato fecha AMD


6. Array(x,6) formato fecha MAD


7. Array(x,7) formato fecha DAM


8. Array(x,8) formato fecha ADM


9. Array(x,9) No importa a Excel -omite- la columna definida

Todo este código se ha generado empleando el Asistente para macros.
Con ello hemos conseguido obtener una macro que otorgue, cada vez que lo requiramos, el mismo tratamiento (convertir un texto en columnas) a nuestros ficheros de texto; dando a cada columna resultante el formato correcto y convirtiendo todos los valores numéricos.