Salto de pagina

hola, Jose A. !

... importar ... fichero de texto delimitado por comas
... que me respete los saltos de pagina y que los genere en excel ... al importar [...]

1.- ¿como se puede 'detectar' el salto de pagina en el csv?
- es un retorno de carro
- es un avance de linea
- es algun caracter 'especial' [...?...]
2.- ¿donde esta 'ese' salto de linea?
- en 'ciertas' lineas [al inicio? ...o al final?... o en el medio?... o ???]
- es el unico caracter de la linea [...?...]

¿comentas?
saludos,
hector.

Envio un fichero adjunto con un ejemplo básico del fichero. El salto de
línea es el caracter 12. Está en medio del fichero y se encuentra sólo en la
línea.

"Héctor Miguel" escribió en el mensaje
news:

hola, Jose A. !

> ... importar ... fichero de texto delimitado por comas
> ... que me respete los saltos de pagina y que los genere en excel ... al

importar [...]

1.- ¿como se puede 'detectar' el salto de pagina en el csv?
- es un retorno de carro
- es un avance de linea
- es algun caracter 'especial' [...?...]
2.- ¿donde esta 'ese' salto de linea?
- en 'ciertas' lineas [al inicio? ...o al final?... o en el medio?... o

???]

- es el unico caracter de la linea [...?...]

¿comentas?
saludos,
hector.

begin 666 1.txt
7,2PR+#,L- T*# T*-"PS+#(L,0T*#0H`
`
end

hola, Jose A. !

... ejemplo basico ... salto de linea es el caracter 12 ... en medio del fichero y se encuentra solo en la linea.

prueba con el siguiente ejemplo.
OJO => reemplaza los datos de la hoja activa <si cualquier duda... ¿comentas?
saludos,
hector.
en un modulo de codigo 'normal' ==Sub Traer_Con_Saltos()
Dim Archivo As Integer, Temp As String, Fila As Long, Col As Integer, _
Desde As Integer, Hasta As Integer
Application.ScreenUpdating = False
Archivo = FreeFile
Open "C:\Mis documentos\1.txt" For Input As Archivo
With ActiveSheet
Do While Not EOF(Archivo)
Fila = Fila + 1: Col = 1
Line Input #Archivo, Temp
If Temp <> Chr(12) Then
For Col = 1 To Len(Temp) - Len(Application.Substitute(Temp, ",", ""))
Desde = Hasta + 1
Hasta = InStr(Desde, Temp, ",")
.Cells(Fila, Col) = Mid(Temp, Desde, Hasta - Desde)
Next
.Cells(Fila, Col) = Mid(Temp, Hasta + 1)
Hasta = 0
Else
.Rows(Fila).PageBreak = xlPageBreakManual
Fila = Fila - 1
End If
Loop
Close Archivo
End With
End Sub