............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

escribir en un .txt

Ver el tema anterior Ver el tema siguiente Ir abajo

escribir en un .txt

Mensaje por javiz el Lun Sep 21, 2009 11:30 am

Hola,

os planteo el problema que me ha surgido a ver si a alguien se le ocurre algo, que seguro que si.

la información que deseo escribir en un .txt la obtengo de una hoja de excel.

En mi primera función recorro la primera columna, desde la fila 2 hasta la 1000. Cuando encuentra el valor que yo quiero, se hace una llamada a una función que me abre un txt y me escribe dicho valor.

Aqui viene mi problema:

la función continúa recorriendo la segunda columna, encuentra el valor que yo quiero y ahora quiero que me lo escriba en el mismo txt, pero claro, no sobreescribiendo el valor anterior, sino que me lo escriba en la siguiente linea.

espero sus ideas, muchas gracias.

javi.

javiz

Masculino Cantidad de envíos : 3
Edad : 41
Ciudad - Pais : España
Version de Excel : excel 2002
Fecha de inscripción : 21/09/2009

Volver arriba Ir abajo

Re: escribir en un .txt

Mensaje por GalileoGali el Lun Sep 21, 2009 1:59 pm

La macro que ya llevas hecha, súbela.....

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: escribir en un .txt

Mensaje por javiz el Jue Sep 24, 2009 3:31 am

llevo pocos dias con esto y me ha surgido un nuevo problema:

Sub escribir_datos_en_txt(hs As Double, datos() As String, nombreestacion As String, dia As Integer, mes As Integer, anyo As Double)

Dim strArchivoTexto, strRuta, strNombreArchivo As String
Dim f As Integer
Dim n As Integer
strNombreArchivo = nombreestacion & ".tmax"
strRuta = "C:\"
strArchivoTexto = strRuta & strNombreArchivo
f = FreeFile
Open strArchivoTexto For Output As #f
Print #f, anyo & " " & mes & " " & dia
Print #f, " "
For hs = h To 20821
Print #f, datos(hs); Chr(10)
Next
Close f
end sub

El resultado de esto es:

1981 5 1

20

23

13

12

...

cuando lo que yo quiero es que entre los numeros 20, 23, 13, 12, ..., no hay ninguna linea de separación. Deberían de aparecer así,

20
13
12
...

Supongo que será una tontería, pero no doy con la solución.

un saludo y muchas gracias.

javi.

javiz

Masculino Cantidad de envíos : 3
Edad : 41
Ciudad - Pais : España
Version de Excel : excel 2002
Fecha de inscripción : 21/09/2009

Volver arriba Ir abajo

Re: escribir en un .txt

Mensaje por javiz el Jue Sep 24, 2009 4:14 am

ya lo he encontrado

For hs = h To 20821
Print #f, datos(hs); Chr(9)
Next

javiz

Masculino Cantidad de envíos : 3
Edad : 41
Ciudad - Pais : España
Version de Excel : excel 2002
Fecha de inscripción : 21/09/2009

Volver arriba Ir abajo

Re: escribir en un .txt

Mensaje por GalileoGali el Jue Sep 24, 2009 5:58 pm

Gracias por compartir tu codigo

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: escribir en un .txt

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.