Como hacer los iguiente .... ?

13/09/2004 - 12:39 por Ana | Informe spam
Hola a todos
Mi pregutna es la siguiente : Voy a recibir unos archivos via ftp a nuestra
dir ftp.midir.com/MiCarpeta , es posible que desde Excel se pueda crear una
macro que seleccione todos los archivos de MiCarpeta y los copie a mi disco
duro para poder luego trabajar con ellos ? si es poscible alguin sabe como
hacerlo ?
gracias
Ana

Preguntas similare

Leer las respuestas

#6 Manuel Romero
09/11/2004 - 17:41 | Informe spam
Rezale a san Google por "ftp visual basic", minimo el milagrito te lo hace
con varias APIs


"Ana" escribió en el mensaje
news:
Hola a todos
Mi pregutna es la siguiente : Voy a recibir unos archivos via ftp a


nuestra
dir ftp.midir.com/MiCarpeta , es posible que desde Excel se pueda crear


una
macro que seleccione todos los archivos de MiCarpeta y los copie a mi


disco
duro para poder luego trabajar con ellos ? si es poscible alguin sabe como
hacerlo ?
gracias
Ana
Respuesta Responder a este mensaje
#7 wmeregildo
18/02/2005 - 06:51 | Informe spam
No se si aun necesitas lo que indicaste en dicha fecha pero recien leo tu
caso, puedes leer la ayuda de VBA en excel, poniendo FTP (para agregar tu FTP
a la lista de carpetas ftp), una vez hecho esto, puedes crear una macro que
lea el archivo en Excel desde el FTP y luego lo grabas en tu disco, si el
archivo no esta en excel sino en texto deberas de separar columnas.
Respuesta Responder a este mensaje
#8 rodmac
12/03/2005 - 00:11 | Informe spam
ANA:

Yo he obtenido un codigo que te lista los archivos de excel dependiendo del
nombre y la extencion. Los abre uno por uno y puedes realizar operaciones con
ellos (macros) al final la informacion la guarda en un reporte final. te
escribo el codigo para que lo adecues a tus necesidades

Set fsB = Application.FileSearch

With fsB

.NewSearch
.LookIn = "E:\Noviembre\" 'Directorio donde comenzará la búsqueda
.SearchSubFolders = True 'Si se buscará en los subdirectorios
.Filename = "*Y*.DIF" 'Patrón a buscar MUY IMPORTANTE

If .Execute(SortBy:=msoSortByFileName,
SortOrder:=msoSortOrderAscending) > 0 Then
ActiveSheet.Range("a1") = "Nombre"

For n = 1 To fsB.FoundFiles.Count
Worksheets("HOJA1").Cells(n, 1) = .FoundFiles(n)
Next n

End If

End With

Set fsB = Nothing

Los datos los guarddara en la hoja 1 celda A1, espero te sirva, recuer

saludos rodmac

"" escribió:

Ese dichoso 'botón' que se creen (los profanos) que lo hace
todo ...
Yo dejaría para el final la automatización de la descarga
(mediante ftp) y la copia de los ficheros al directorio de
trabajo. Es más, no lo haría, porque creo que no merece la
pena.


>si yo se, pero no soy yo quien decide eso (claro que yo lo
haria a mano ), lo
>que se quiere es automatizar la tarea, que haciendo un
click en un boton se
>bajen los archivos y se comienzen a trabajar con ellos uno
por uno , para
>obtener un archivo final con unos datos deseados.
>
>
>"" wrote:
>
>>
>> >porque no merecria la pena ? ?
>> >
>>
>>
>> El 'coste' de hacer la macro y ejecutarla tiene que ser
>> menor que el coste de hacer la tarea a mano. Teniendo en
>> cuenta que la tarea de copiar o mover los ficheros es
à­nfimo...
>>
>>
>>
>> >"" wrote:
>> >
>> >> Sàf­ se puede, pero... à,¿merece la pena?
>> >>
>> >>
>> >>
>> >>
>> >> >Hola a todos
>> >> >Mi pregutna es la siguiente : Voy a recibir unos
archivos
>> >> via ftp a nuestra
>> >> >dir ftp.midir.com/MiCarpeta , es posible que desde Excel
>> >> se pueda crear una
>> >> >macro que seleccione todos los archivos de MiCarpeta y
>> >> los copie a mi disco
>> >> >duro para poder luego trabajar con ellos ? si es
poscible
>> >> alguin sabe como
>> >> >hacerlo ?
>> >> >gracias
>> >> >Ana
>> >> >.
>> >> >
>> >>
>> >.
>> >
>>
>.
>

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida