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
DRAGON AGE™: INQUISITION – Matadragones
 

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--

Preguntas similares

 

Busqueda sugerida :