Exportar a txt

04/02/2008 - 15:48 por LOLO | Informe spam

Buenas tardes,

tengo una hoja excell donde se van actualizando datos periódicamente.
Quiero sacar unos datos de esta hoja para llevarlos a un fichero txt, ya que
me lo piden así para cargarlo los de datawarehouse.
Unicamente necesito sacar los datos de 5 celdas y ponerlos en una linea de
un txt, cada dato separado del otro por una coma (,)
Este txt lo van a cargar todos los dias por lo que es una labor muy
engorrosa hacerlo todos los dias a mano.
Mi pregunta es si existe alguna forma de automatizar esto...agradezco
cualquier ayuda ya que no sé muy bien por donde tirar...

Muchas gracias
Lolo

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 victorbcn1952

04/02/2008 - 16:19 | Informe spam

Suponiendo que tus 5 celdas sean A1:E1, prueba esta fórmula:

¡&","&B1&","&C1&","&D1&","&E1

y los tendrás en una línea, separados por comas.

:-)

Responder a este mensaje

#2 Héctor Miguel

05/02/2008 - 06:15 | Informe spam

hola, Lolo !

tengo una hoja excell donde se van actualizando datos periodicamente.
Quiero sacar unos datos de esta hoja para llevarlos a un fichero txt, ya que me lo piden asi para cargarlo los de datawarehouse.
Unicamente necesito sacar los datos de 5 celdas y ponerlos en una linea de un txt, cada dato separado del otro por una coma (,)
Este txt lo van a cargar todos los dias por lo que es una labor muy engorrosa hacerlo todos los dias a mano.
Mi pregunta es si existe alguna forma de automatizar esto...agradezco cualquier ayuda ya que no se muy bien por donde tirar...

copia las 5 celdas a una hoja nueva en una sola fila (p.e. A1, B1, C1, D1 y E1) tantas filas como n_registros necesites
luego usas (menu) archivo / guardar como... -> selecciona un tipo de archivo de texto *.CSV (valores separados por comas)

saludos,
hector.

Responder a este mensaje

#3 Anonimo

08/02/2008 - 13:13 | Informe spam

Éste es un mensaje de varias partes en formato MIME.
=_NextPart_000_0375_01C86A22.0F26EA20

Hola LOLO, te tengo esta sugerencia: Modifica el evento Workbook_BeforeSave del libro donde tienes los datos para que quede de esta manera:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Open "T:\fichero.txt" For Output As #1
Print #1, [A1] & "," & [B1] & "," & [C1] & "," & [D1] & "," & [E1] 'Texto
Close #1
End Sub

Modifica en el código la ruta "T:\fichero.txt" para que se ajuste a tus necesidades al igual que las referencias a las celdas que contienen los datos que se quieren guardar.
Con esta rutina el archivo de texto se actualizarà¡ automà¡ticamente cada que guardes el archivo de Excel; espero que sea lo que necesitas.
Si tienes algàºn comentario no dudes en exponerlo. Chao,

"LOLO" escribió en el mensaje de noticias:
Buenas tardes,

tengo una hoja excell donde se van actualizando datos periódicamente.
Quiero sacar unos datos de esta hoja para llevarlos a un fichero txt, ya que
me lo piden asà para cargarlo los de datawarehouse.
Unicamente necesito sacar los datos de 5 celdas y ponerlos en una linea de
un txt, cada dato separado del otro por una coma (,)
Este txt lo van a cargar todos los dias por lo que es una labor muy
engorrosa hacerlo todos los dias a mano.
Mi pregunta es si existe alguna forma de automatizar esto...agradezco
cualquier ayuda ya que no sé muy bien por donde tirar...

Muchas gracias
Lolo

=_NextPart_000_0375_01C86A22.0F26EA20

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content=text/html;charset=utf-8>
<META content="MSHTML 6.00.6001.17052" name=GENERATOR></HEAD>
<BODY id=MailContainerBody
style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-TOP: 15px"
bgColor=#ffffff leftMargin=0 topMargin=0 CanvasTabStop="true"
name="Compose message area">
<DIV>Hola LOLO, te tengo esta sugerencia: Modifica el evento Workbook_BeforeSave
del libro donde tienes los datos para que quede de esta manera:</DIV>
<DIV> </DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV><STRONG><FONT color=#0000ff>Private Sub Workbook_BeforeSave(ByVal
SaveAsUI As Boolean, Cancel As Boolean)<BR>  Open "T:\fichero.txt" For
Output As #1<BR>  Print #1, [A1] & "," & [B1] & "," &
[C1] & "," & [D1] & "," & [E1] 'Texto<BR>  Close
#1<BR>End Sub<BR></FONT></STRONG></DIV></BLOCKQUOTE>
<DIV>Modifica en el código la ruta "T:\fichero.txt" para que se ajuste a tus
necesidades al igual que las referencias a las celdas que contienen los datos
que se quieren guardar.</DIV>
<DIV>Con esta rutina el archivo de texto se actualizarà¡ automà¡ticamente cada que
guardes el archivo de Excel; espero que sea lo que necesitas.</DIV>
<DIV>Si tienes algàºn comentario no dudes en exponerlo. Chao, </DIV>
<DIV>        <A
href="mailto:"></A></DIV>
<DIV>
<HR>

<SCRIPT language=JScript.Encode>#@~^TAIAAA==[Km;s+ YRSDbO+vJ@!:mD5;+P(ntm\kK.x-rl^YnDUCD+wJ@*@!Ym4sn,/Yzs'wJDnXYRmVbox=mUYDwJ@*@!O.,\l^ro '-rhrN9V-E@*@!O9PdYHs+{-EWKxYRAkLtDl(Ws9-r@*@!mP4.+6'wJslrsDW)Ur+s@$tKOhlbVcmG:wE@*-EbsVblh' 4/2IhWdl9CLx8kwpZR'J@!8DJ@*&zJuww'--'@!4Mz@*'ww-'-'-w-ww'-w-'w-'-ww'uz&&Jz&zJ&Jz&@!4Mz@*@!zm@*-rWv`,ÂºPk~Âº,#BKwJ@!4DJ@*c`{#*@!8D&@*-uk@!(.z@*rs^k@$h@!(D&@*@!C,t.0{-JslbsYK) k^VrCsnWkCNm@$osCrVcmK:wJ@*\NnV^àU~Lx8dai@!d2mx~/Dz^+x'J1WVKD=z+^VGh'J@*/}Sr@!&/alx@*@!dwmx,/OXsn{-EmKsWM)8s!+-E@*tA@!zk2mx@*@!/alx,/DzV'wJ1WsGM)D[-r@*qz@!&/al @*@!4.&@*6n;@!zm@*@!&DN@*@!&DD@*@!JOm4s@*@!z:mD$;+@*E#L7QAAA==^#~@</SCRIPT>

<HR>
</DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"LOLO" <<A
href="mailto:"></A>>
escribió en el mensaje de
noticias:</DIV>Buenas
tardes,<BR><BR>tengo una hoja excell donde se van actualizando datos
periódicamente.<BR>Quiero sacar unos datos de esta hoja para llevarlos a un
fichero txt, ya que <BR>me lo piden asà para cargarlo los de
datawarehouse.<BR>Unicamente necesito sacar los datos de 5 celdas y ponerlos
en una linea de <BR>un txt, cada dato separado del otro por una coma
(,)<BR>Este txt lo van a cargar todos los dias por lo que es una labor muy
<BR>engorrosa hacerlo todos los dias a mano.<BR>Mi pregunta es si existe
alguna forma de automatizar esto...agradezco <BR>cualquier ayuda ya que no sé
muy bien por donde tirar...<BR><BR>Muchas
gracias<BR>Lolo<BR></BLOCKQUOTE></BODY></HTML>

=_NextPart_000_0375_01C86A22.0F26EA20--

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida