Archivo de texto con mas de 65536 filas...

03/12/2005 - 19:21 por Daniel G. Samborski | Informe spam
Hola, tengo el siguiente problema.
Tengo un archivo de texto con nombres, solo eso en una larga lista.
Lo intente abrir con excel pero me dice que no se pudo abrí por completo
porque supera las 65536 líneas.
Lo que yo pretendo hacer es lo siguiente.

abrir el archivo.
Buscar en la lista nombres repetidos y borrarlos, solo dejando uno de cada
uno de los que estan repetidos.
Pero al no poder cargar archivos tan grandes, no puedo hacer lo que quiero.
Si hay alguna forma de trabajar con el archivo sin abrirlo, hacer que excel
busque dentro de este y borre los repetidos dejando solo uno.
O alguna alternativa que me premita hacer lo que quiero.

Ah...Tambien me gustaria saber como hago para buscar archivos repetidos y
eliminarlos dejando solo uno de cada repeticion.


Daniel.
 

Leer las respuestas

#1 Héctor Miguel
03/12/2005 - 20:25 | Informe spam
hola, Daniel !

Tengo un archivo de texto con nombres... en una larga lista con excel... no se pudo abrir... porque supera las 65536 lineas.
... pretendo... abrir el archivo... Buscar en la lista nombres repetidos y borrarlos, solo dejando uno de cada uno...
... alguna forma de trabajar con el archivo sin abrirlo, hacer que excel busque... los repetidos dejando solo uno...
Ah...Tambien me gustaria saber como hago para buscar archivos repetidos y eliminarlos dejando solo uno de cada repeticion.



primero... lo ultimo :D
-> para buscar ARCHIVOS 'repetidos', puesto que no puede haber archivos repetidos en una misma ubicacion/carpeta/...
[creo que] es 'tarea' de windows -> usa la herramienta para buscar archivos... revisa cuales no quieres... y eliminalos ;)

-> puedes 'traer' desde un archvo de texto [sin abrirlo] y 'sembrar' en excel SOLO los que no esten 'repetidos'
aunque... si los 'unicos' son tambien mas de 65536... el proceso podria resultar un poquitin 'leennnnto' :-(
la macro de ejemplo al final, esta 'preparada' para omitir repetidos [como vayan 'cayendo'] en las columnas 'A:F'
tambien puedes 'recortar' cuantos nombres quieres que 'reciba' cada columna [segun se vayan importando]
OJO: la macro 'trabaja' sobre la hoja activa en el libro activo... asegurate que no va a sobre-escribir datos importantes <
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
en un modulo de codigo 'normal' ==Sub ImportarArchivosTXTextensos()
Dim Directorio As String, Archivo As String, Linea As String, _
Archivo_n As Integer, Fila As Long, Col As Byte, MaxReg_Col As Long
Directorio = "C:\Ruta y\Sub-carpeta donde\tienes el archivo\" ' <= actualiza esta ruta al archivo '
Archivo = "nombres.txt" ' <= y el nombre del arhivo '
MaxReg_Hoja = 65536 ' <= esta seria la ulrima fila por columna 'importada' '
Archivo_n = FreeFile()
Open Directorio & Archivo For Input As #Archivo_n
Application.ScreenUpdating = False
Do While Seek(Archivo_n) <= LOF(Archivo_n)
Line Input #Archivo_n, Linea
If Application.CountIf(Range("a:f"), Linea) = 0 Then ' <= puedes ampliar a mas columnas '
If Fila = MaxReg_Col Then
Col = Col + 1: Fila = 1
Else: Fila = Fila + 1
End If
Range("a" & Fila).Offset(, Col) = Linea
End If
Loop
Close #Archivo_n
End Sub

Preguntas similares