Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Nombre de archivos.

07/02/2008 - 08:55 por Noe´s | Informe spam
Ayuda Hacer una pregunta
Una dudilla mas, tengo archivos que recibo a diario los cuales son formato
html, los cuales en su nombre llevan el nombre de los operadores y el
porcentaje de trabajo, hay forma de esportar o pasar esta información a una
hoja de excel ya que para este proceso tengo que estar copiando nombre por
nombre y`porcentaje por porcentaje y en realidad me lleva demasiado tiempo
por la cantidad de operadores.


Noe´s
email Siga el debateRespuesta 6 respuestasRespuesta Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Anonimo
07/02/2008 - 18:28 | Informe spam
Éste es un mensaje de varias partes en formato MIME.
=_NextPart_000_0094_01C86984.E8780B40

Hola Noe´s, Mira esta rutina y la adaptas a tu caso concreto: si tienes alguna duda, pregunta. Chao,

Sub Leer_Directorio()
Dim MiNombre As String, n As Long
'
MiNombre = Dir("T:\Carpeta\*.html") ' Recupera la primera entrada.
Do While MiNombre <> "" ' Inicia el bucle.
n = n + 1
Cells(n, 1) = MiNombre
MiNombre = Dir ' Obtiene siguiente entrada.
Loop
End Sub

Si tienes alguna duda, pregunta. Chao,




"Noe´s" escribió en el mensaje de noticias:
Una dudilla mas, tengo archivos que recibo a diario los cuales son formato
html, los cuales en su nombre llevan el nombre de los operadores y el
porcentaje de trabajo, hay forma de esportar o pasar esta información a una
hoja de excel ya que para este proceso tengo que estar copiando nombre por
nombre y`porcentaje por porcentaje y en realidad me lleva demasiado tiempo
por la cantidad de operadores.


Noe´s
=_NextPart_000_0094_01C86984.E8780B40

<!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 Noe´s, Mira esta rutina y la adaptas a tu caso concreto: si tienes
alguna duda, pregunta. Chao, </DIV>
<DIV>&nbsp;</DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV><FONT color=#0000ff>Sub Leer_Directorio()<BR>Dim MiNombre As String, n As
Long<BR>'<BR>&nbsp; MiNombre = Dir("T:\Carpeta\*.html")&nbsp;&nbsp;&nbsp; '
Recupera la primera entrada.<BR>&nbsp; Do While MiNombre &lt;&gt;
""&nbsp;&nbsp;&nbsp; ' Inicia el bucle.<BR>&nbsp;&nbsp;&nbsp; n = n +
1<BR>&nbsp;&nbsp;&nbsp; Cells(n, 1) = MiNombre<BR>&nbsp;&nbsp;&nbsp; MiNombre
= Dir&nbsp;&nbsp;&nbsp; ' Obtiene siguiente entrada.<BR>&nbsp; Loop<BR>End
Sub<BR></FONT></DIV></BLOCKQUOTE>
<DIV>Si tienes alguna duda, pregunta. Chao, </DIV>
<DIV>&nbsp;&nbsp;&nbsp;&nbsp;<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>"Noe´s" &lt;<A
title="mailto:&#10;CTRL + clic para seguir el và­nculo"
href="mailto:"></A>&gt; escribió en
el mensaje de
noticias:</DIV>Una
dudilla mas, tengo archivos que recibo a diario los cuales son formato
<BR>html, los cuales en su nombre llevan el nombre de los operadores y el
<BR>porcentaje de trabajo, hay forma de esportar o pasar esta información a
una <BR>hoja de excel ya que para este proceso tengo que estar copiando nombre
por <BR>nombre y`porcentaje por porcentaje y en realidad me lleva demasiado
tiempo <BR>por la cantidad de operadores.<BR><BR><BR>--
<BR>Noe´s</BLOCKQUOTE></BODY></HTML>

=_NextPart_000_0094_01C86984.E8780B40--
Respuesta Responder a este mensaje
#2 victorbcn1952
07/02/2008 - 20:05 | Informe spam
Puede importar el archivo en Excel. [Probablemente] te quedarán todas
las líneas desbalanceadas, y con Menú / Datos / Texto en columnas,
siguiendo las indicaciones del propio asistente, deberías de poder
separar ordenadamente en columnas todo el archivo.

:-)

­--
  Una dudilla mas, tengo archivos que recibo a diario los cuales son formato
  html, los cuales en su nombre llevan el nombre de los operadores y el
  porcentaje de trabajo, hay forma de esportar o pasar esta información a una
  hoja de excel ya que para este proceso tengo que estar copiando nombre por
  nombre y`porcentaje por porcentaje y en realidad me lleva demasiado tiempo
  por la cantidad de operadores.

  --
  NoeŽs
Respuesta Responder a este mensaje
#3 Noe´s
08/02/2008 - 09:25 | Informe spam
Gracias William te comento lo porble pero no me resulta nada no se que pasa
en el modulo ni en la ejecucion del macro no me sale ningun error, pero de
igual manera tengo el libro de excel abierto pero no me tira ningun nombre y
la verdad no se que hacer? gracias desde ya.

Noe´s


"" wrote:

Hola Noe´s, Mira esta rutina y la adaptas a tu caso concreto: si tienes alguna duda, pregunta. Chao,

Sub Leer_Directorio()
Dim MiNombre As String, n As Long
'
MiNombre = Dir("T:\Carpeta\*.html") ' Recupera la primera entrada.
Do While MiNombre <> "" ' Inicia el bucle.
n = n + 1
Cells(n, 1) = MiNombre
MiNombre = Dir ' Obtiene siguiente entrada.
Loop
End Sub

Si tienes alguna duda, pregunta. Chao,




"Noe´s" escribió en el mensaje de noticias:
Una dudilla mas, tengo archivos que recibo a diario los cuales son formato
html, los cuales en su nombre llevan el nombre de los operadores y el
porcentaje de trabajo, hay forma de esportar o pasar esta información a una
hoja de excel ya que para este proceso tengo que estar copiando nombre por
nombre y`porcentaje por porcentaje y en realidad me lleva demasiado tiempo
por la cantidad de operadores.


Noe´s
Respuesta Responder a este mensaje
#4 Noe´s
08/02/2008 - 09:28 | Informe spam
Disculpa Victor el procedimiento seria abrir excel luego abrir/ubicar los
archivos/darle abrir?

lo he hecho pero me tira el contenido del archivo y no exclusivamente su
nombre,
no se si esto es lo que me aconsejaste o yo cometi algun error. Gracias y
saludos.



Noe´s


"" wrote:

Puede importar el archivo en Excel. [Probablemente] te quedarán todas
las líneas desbalanceadas, y con Menú / Datos / Texto en columnas,
siguiendo las indicaciones del propio asistente, deberías de poder
separar ordenadamente en columnas todo el archivo.

:-)

> ­--
> Una dudilla mas, tengo archivos que recibo a diario los cuales son formato
> html, los cuales en su nombre llevan el nombre de los operadores y el
> porcentaje de trabajo, hay forma de esportar o pasar esta información a una
> hoja de excel ya que para este proceso tengo que estar copiando nombre por
> nombre y`porcentaje por porcentaje y en realidad me lleva demasiado tiempo
> por la cantidad de operadores.
>
> Noe´s


Respuesta Responder a este mensaje
#5 victorbcn1952
08/02/2008 - 13:06 | Informe spam
Primero abre Excel, después haz Menú / Abrir, y el último desplegable
(Tipo de archivo), elige la opción 'Todos los archivos (*.*),
selecciona el tuyo y ábrelo.

Probablemente no verás los datos [verticalmente] como esperas, sino
todos en una misma columna. Después, para separarlos por columnas
ejecuta el Menú / Datos / Texto en columnas, sigue las instrucciones,
y es más que probable que los datos ahora los tengas ordenados.

:-)

On 8 feb, 09:28, NoeŽs wrote:
Disculpa Victor el procedimiento seria abrir excel luego abrir/ubicar los
archivos/darle abrir?

lo he hecho pero me tira el contenido del archivo y no exclusivamente su
nombre,
no se si esto es lo que me aconsejaste o yo cometi algun error. Gracias y
saludos.
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida