macro copiar archivos

25/07/2012 - 10:06 por pinkiluis | Informe spam
¡ Hola ! a todos espero darma a entender tengo algo urgente que no he podido solucionar y espero que alguien aqui me pueda ayudar, de verdad pido su ayuda porque no he podido resolver esto, lo que quiero hacer es abrir una ventana de windows el explorador bueno eso ya lo tengo lo que quiero es seleccionar un archivo cual quiera y con un boton darle cargar y me genere una copia de ese mismo archivo y lo mande a otra carpeta solamente eso es lo que ocupo hacer suena sencillo pero de verdad no he podido resolverlo y no tengo idea de como encontre en internet que existe la funcion copifile pero no pude hechar andar esa funcion ni nada que se le paresca asi que de verdad pido su ayuda y muchas gracias.
 

Leer las respuestas

#1 pinkiluis
26/07/2012 - 05:17 | Informe spam
Pedro F. Pardo escribió el 25/07/2012 17:16 :
Esta macro hace lo que necesitas, incluso te permite seleccionar varios
ficheros al mismo tiempo. Y los copias todos en la carpeta:
"C:Documents and SettingsUSERMy Documents"

Cambia la localización de esta carpeta en la macro para que se guarden
donde tu quieras.

8<8<-


Sub copia_file()

Dim fd As FileDialog
Dim objfl As Variant
Dim filnam As String

'Carpeta donde se copiarán los ficheros ***CAMBIA ESTA CARPETA***
carpeta = "C:Documents and SettingsUSERMy Documents"
'<<<

Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.ButtonName = "Seleciona"
.AllowMultiSelect = True
.Filters.Add "All Files", "*.*", 1
.Title = "Elige el Fichero que quieres abrir"
.InitialView = msoFileDialogViewDetails
.Show
For Each objfl In .SelectedItems
filnam = objfl
array_name = Split(filnam, "")
nombre_file = array_name(UBound(array_name))
FileCopy filnam, carpeta & nombre_file
Next objfl
On Error GoTo 0
End With

Set fd = Nothing

End Sub

8<8<-

On Wednesday, 25 July 2012 09:07:43 UTC+1, pinkiluis wrote:
ᅵ Hola ! a todos espero darma a entender tengo algo
urgente que no he
podido solucionar y espero que alguien aqui me pueda ayudar, de verdad pido su
ayuda porque no he podido resolver esto, lo que quiero hacer es abrir una
ventana de windows el explorador bueno eso ya lo tengo lo que quiero es
seleccionar un archivo cual quiera y con un boton darle cargar y me genere una
copia de ese mismo archivo y lo mande a otra carpeta solamente eso es lo que
ocupo hacer suena sencillo pero de verdad no he podido resolverlo y no tengo
idea de como encontre en internet que existe la funcion copifile pero no pude
hechar andar esa funcion ni nada que se le paresca asi que de verdad pido su
ayuda y muchas gracias.




HOoooooo mi estimado creo que ya supe que fue un error mio no me di cuenta que al volver a definir la ruta por Ej: C:\respaldo me falto colocar "\" funciona perfectamente bien solo una pregunta mas es que aun soy principiante esto este mismo codigo no podria servirme para abrir archivos??
En conclusion muchisimas gracias la verdad ahora mi tarea sera adentrarme mas esto, asi que definimos esto como Tema Resulto.

Preguntas similares