Cómo insertar registros en un fichero de texto desde Visual Basi c

10/04/2005 - 01:43 por Paquet | Informe spam
Desde Excel, programando con Visual Basic, quiero insertar lineas en un
fichero de texto.
 

Leer las respuestas

#1 Héctor Miguel
10/04/2005 - 08:29 | Informe spam
hola, Paquet !

Desde Excel... con Visual Basic, quiero insertar lineas en un fichero de texto.



[pues...] no comentas 'mayores detalles' :(
[asi que]... supongo que podemos empezar con un ejemplo como el siguiente:
toma nota de que el fichero sera reemplazado cada vez que se ejecute la macro.

si cualquier duda [o informacion adicional... comentas?
saludos,
hector.
en un modulo de codigo 'normal' ==Sub EscribirEnFicheroTXT()
Dim Directorio As String, Fichero As String, EnProceso As Integer
Directorio = "C:\Mis documentos\"
Fichero = Directorio & "miFichero.txt"
EnProceso = FreeFile
Open Fichero For Output As #EnProceso
Print #EnProceso, "Esta es la linea 1"
Print #EnProceso, "Esta es la linea 2"
Print #EnProceso, "Esta es la linea 3"
Print #EnProceso, "Esta es la linea 4"
Print #EnProceso, "Esta es la linea 5"
Print #EnProceso, "Esta es la linea 6"
' pon aqui mas lineas en caso necesario... '
Close #EnProceso
End Sub

o podrias hacer un 'bucle' para las lineas necesarias [+/- 'iguales'] p.e.
Sub EscribirFicheroTXT()
Dim Directorio As String, Fichero As String, _
EnProceso As Integer, Linea As Integer
Directorio = "C:\Mis documentos\"
Fichero = Directorio & "miFichero.txt"
EnProceso = FreeFile
Open Fichero For Output As #EnProceso
For Linea = 1 To 15
Print #EnProceso, "Esta es la linea " & Linea
Next
Close #EnProceso
End Sub

Preguntas similares