MACROS archivo de uploadfile

El miércoles, 18 de julio de 2012 23:51:46 UTC+1, pinkiluis escribió:
Mostrar la cita

¡ Hola ! a todos en primer lugar tengo que agradecer su tiempo tengo una
gran pregunta que hacerles lo que pasa es que tengo un userfrom que hice en
excel con macros de Vb, ya tengo todo lo que hace este programa solo que hay
algo que me hace falta y es lo siguiente quiero colocarle a mi userfrom un
boton
una forma o lo que sea pero que sirva para cargar archivos y la verdad hasta
aqui me he quedado no tengo ni idea de como hacerlo, algo asi como un cargar
archivo y que habra una ventana exploradora de windows y poder visualizar el
achivo que queramos y lo carguemos para que se guarde en una carpeta en
especifico no se si eso sea posible de verdad me urge mucho y no tengo idea de
como hacerlo he buscado en internet pero nada. pues muchas gracias por su
atencion y espero que haya alguna respuesta positiva de que esto es posible

Copia y pega esta macro en el código de un botón de tu formulario:


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



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

Set fd = Nothing


Después de esto tendrás el nombre y la ruta del fichero en la variable.
filnam

Puedes abrirlo, moverlo, copiarlo o lo que necesites hacer con él, después del Set fd = Nothing

Para abrirlo (en caso de que sea un fichero que Excel puede abrir) utiliza:
Workbooks.Open Filename:=filnam

Para Copiarlo:
FileCopy filnam, copia

Para Moverlo:
Name filnam As destino

Teniendo en cuenta que la variable copia debería ser igual al nombre del fichero incluida la ruta, algo así:

copia="C:\Documents and Settings\USER\My Documents\fichero.txt"

o bien

destino="C:\Documents and Settings\USER\My Documents\fichero.txt"

;-) Espero que te sea de ayuda.

Pedro F. Pardo escribió el 19/07/2012 12:37 :
Mostrar la cita

El miércoles, 18 de julio de 2012 23:51:46 UTC+1, pinkiluis
escribió:
Mostrar la cita

¡ Hola ! a todos en primer lugar tengo que agradecer su tiempo tengo una
gran pregunta que hacerles lo que pasa es que tengo un userfrom que hice en
excel con macros de Vb, ya tengo todo lo que hace este programa solo que hay
algo que me hace falta y es lo siguiente quiero colocarle a mi userfrom un
boton
una forma o lo que sea pero que sirva para cargar archivos y la verdad hasta
aqui me he quedado no tengo ni idea de como hacerlo, algo asi como un cargar
archivo y que habra una ventana exploradora de windows y poder visualizar el
achivo que queramos y lo carguemos para que se guarde en una carpeta en
especifico no se si eso sea posible de verdad me urge mucho y no tengo idea de
como hacerlo he buscado en internet pero nada. pues muchas gracias por su
atencion y espero que haya alguna respuesta positiva de que esto es posible

Copia y pega esta macro en el código de un botón de tu
formulario:


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



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

Set fd = Nothing


Después de esto tendrás el nombre y la ruta del fichero en la
variable.
filnam

Puedes abrirlo, moverlo, copiarlo o lo que necesites hacer con él,
después del Set fd = Nothing

Para abrirlo (en caso de que sea un fichero que Excel puede abrir) utiliza:
Workbooks.Open Filename:=filnam

Para Copiarlo:
FileCopy filnam, copia

Para Moverlo:
Name filnam As destino

Teniendo en cuenta que la variable copia debería ser igual al nombre del
fichero incluida la ruta, algo así:

copia="C:Documents and SettingsUSERMy Documentsfichero.txt"

o bien

destino="C:Documents and SettingsUSERMy Documentsfichero.txt"

;-) Espero que te sea de ayuda.

hoooooooooooooo!! muchas gracias la verdad es que esto me es de muchisima ayuda ahora solamente sabes que no le entendiendo muy bien o mas bien como te dire, lo que quiero abrir es cualquier tipo de archivo no solo de excel casi de lo que sea imagenes, video, sonido etc... si es posible esto adelante si no es posible pues con que sean archivos de office, y otra cosa haber si me se explicar me gustaria que lo pudiera abrir igualmente el explorador de windows ahora que pudiera seleccionar el archivo y poderlo guardar en otra carpeta no se por ejemplo tengo un archivo en mi memoria y que al cargarlo se vaya a una carpeta que este en mis documentos o algo asi. no se si me puedas ayudar con eso y de antemano muchas gracias por tu ayuda de verdad has sido de gran ayuda