Escribir en tct sin comillas
Publicado por Tatayayan (35 intervenciones) el 27/03/2006 14:54:37
Hola!
Mi necesidad es que deseo ingresar cinco nombres y ponerlos en un archivo e texto (un .txt), los nombes van uno debajo del otro, tengo una subrutina que hace lo que quiero pero a 90%, la subrutina es la siguiente:
Sub ATxt()
Dim i As Integer, Nombre As String
For i = 1 To 5
Nombre = InputBox("Ingrese Nombre", "Nombres.txt")
Open "Nombres.txt" For Append As #1
Write #1, Nombre
Close #1
Next i
End Sub
y el contenido del text, es decir el resultado de la subrutina es (por ejemplo):
"Juan"
"Pedro"
"Maria"
"Pato"
"Facundo"
Y LO QUE NO QUIERO ES QUE LO ESCRIBA CON COMILLAS!!!
Desde ya muchas gracias.
Mi necesidad es que deseo ingresar cinco nombres y ponerlos en un archivo e texto (un .txt), los nombes van uno debajo del otro, tengo una subrutina que hace lo que quiero pero a 90%, la subrutina es la siguiente:
Sub ATxt()
Dim i As Integer, Nombre As String
For i = 1 To 5
Nombre = InputBox("Ingrese Nombre", "Nombres.txt")
Open "Nombres.txt" For Append As #1
Write #1, Nombre
Close #1
Next i
End Sub
y el contenido del text, es decir el resultado de la subrutina es (por ejemplo):
"Juan"
"Pedro"
"Maria"
"Pato"
"Facundo"
Y LO QUE NO QUIERO ES QUE LO ESCRIBA CON COMILLAS!!!
Desde ya muchas gracias.
Valora esta pregunta


0