Pasar base de datos plana a Excel

Hola Paco
He hecho esto que te puede servir para empezar.
Va importando un fichero linea por linea.
Por lo que dices, cuando llega al final de la hoja, tendría que pasar a
otra, como de eso no tengo mucha idea (tendrías que pedir ayuda a
cualquiera de los maestros de por aquí) he puesto las condiciones para
que cuando llegue al final de las líneas siga escribiendo a partir de
cinco columnas mas a la derecha. (eso si me lo sé)

Lo de delimitar por comas tampoco sé, (la verdad es que con la poca idea
que tengo, no sé que hago escribiendo) ahora estoy mirando algo y por un
macro que he hecho debe ser algo como TextFileCommaDelimiter=True, pero ??
Bueno, si te sirve me alegro y si no, pues yo he aprendido algo mas.

Saludos
Javier B.

Sub leerfichero()
Fichero = "prueba.txt" ' tendrás que poner el camino del fichero

Worksheets("Hoja1").Cells.Clear
Mifichero = FreeFile

Open Fichero For Input As #Mifichero
Worksheets("Hoja1").Select
Fila = 2
Columna = 1

Application.ScreenUpdating = False
Do While Not EOF(1)
Line Input #Mifichero, linea
Cells(Fila, Columna).Value = linea
Fila = Fila + 1
If Fila = 65535 Then
Columna = Columna + 5
Fila = 2
End If
Loop
Close #Mifichero
Application.ScreenUpdating = True
End Sub
=Paco Ferri escribió:

Tengo una base de datos plana con 700.000 registros. Los campos estan
limitados por comas. Quiero pasar esta base, despues de filtrarla, a varios
archivos Excel. Si hago importacion solo acepta 65536 registros mas 32768.
Como puedo cargar el resto en archivos Excel para luego filtrarlo? o como
filtro el fichero directamente y eligo los registros que cada vez me
interesan?

Gracias: