Pat se preguntó cómo cambiar el tipo de datos de columna predeterminado de «general»

a «texto» para todas las columnas de un archivo de texto delimitado por comas. Cambiar el formato de cada columna, especialmente cuando hay muchas, puede resultar, en el mejor de los casos, tedioso.

Desafortunadamente, no hay forma de cambiar el valor predeterminado. Sin embargo, el cambio de los tipos de datos de las columnas se puede hacer mucho más fácilmente aplicando un poco de las funciones «seleccionar y elegir» disponibles en la mayoría de los programas de Windows. Siga estos pasos:

  1. Comience a importar su archivo de texto delimitado por comas como lo haría normalmente.

  2. Cuando se muestre el cuadro de diálogo que le permite cambiar los tipos de datos de columna, seleccione la primera columna de la tabla.

  3. Desplácese hacia la derecha en el cuadro de diálogo para que la última columna de la tabla sea visible.

  4. Mantenga presionada la tecla Shift mientras hace clic en la última columna. Ahora todas las columnas deberían estar seleccionadas.

  5. Cambie el tipo de datos a Texto.

  6. Continúe con la importación, como de costumbre.

Si prefiere una forma aún más rápida de ingresar la información del archivo de texto delimitado por comas, puede hacerlo usando una macro, omitiendo por completo los filtros de importación de Excel. La siguiente macro, titulada (apropiadamente) Importación, hará el truco:

Sub Import()

Open "d:\data.txt" For Input As #1     R = 1     While Not EOF(1) 'Scan file line by line         C = 1         Entry = ""

Line Input #1, Buffer         Length = Len(Buffer)

i = 1         While i <= Length 'split string into cells             If (Mid(Buffer, i, 1)) = "," Then                 With Application.Cells(R, C)

.NumberFormat = "@" 'Text formatting                     .Value = Entry                 End With                 C = C + 1                 Entry = ""

Else                 Entry = Entry + Mid(Buffer, i, 1)

End If             i = i + 1         Wend         If Len(Entry) > 0 Then             With Application.Cells(R, C)

.NumberFormat = "@" 'Text formatting                 .Value = Entry             End With         End If         R = R + 1     Wend     Close #1 End Sub

Debe tener en cuenta que puede cambiar la primera línea de la macro para representar el nombre del archivo que está importando. También debe comprender que esta macro funciona en los archivos de texto delimitados por comas más simples. Si el archivo se creó con comillas alrededor de cada campo (como sucede a veces), la macro no dará los resultados deseados y deberá cambiarse para compensar las comillas. O, como alternativa, simplemente puede usar la búsqueda y eliminar las comillas después de que la macro haya terminado de importar la información.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (2235) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Faster_Text_File_Conversions [Conversiones de archivos de texto más rápidas].