Evitar el Carriage return al realizar Print en fichero
Publicado por Erickinhu (1 intervención) el 31/05/2012 17:55:04
Hola,
necesito crear un fichero de texto con una macro de Excel con VBA. Quiero que al final de cada línea exista un linefeed (LF) y ya está. Utilizo el Print y siempre me pone un CR al final.
No quiero que al final del fichero me ponga un Carriagre Return (CR).
Mi código es:
n = FreeFile
Open NombreArchivo For Output As #n
For i = 0 To UBound(Salida) - 1
If (i = UBound(Salida) - 1) Then
strFichero = strFichero + Salida(i)
Else
strFichero = strFichero + Salida(i) + vbLf
End If
Next
Print #n, strFichero
¿¿¿Alguna idea???
necesito crear un fichero de texto con una macro de Excel con VBA. Quiero que al final de cada línea exista un linefeed (LF) y ya está. Utilizo el Print y siempre me pone un CR al final.
No quiero que al final del fichero me ponga un Carriagre Return (CR).
Mi código es:
n = FreeFile
Open NombreArchivo For Output As #n
For i = 0 To UBound(Salida) - 1
If (i = UBound(Salida) - 1) Then
strFichero = strFichero + Salida(i)
Else
strFichero = strFichero + Salida(i) + vbLf
End If
Next
Print #n, strFichero
¿¿¿Alguna idea???
Valora esta pregunta


0