Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Cuadro de dialogo de Abrir archivo

01/07/2004 - 18:19 por Luis Herrero | Informe spam
Ayuda Hacer una pregunta
Hola, tengo un problemilla,

estoy haciendo una macro grandecita, que toma datos de
otra hoja Excel. Lo primero que hace la macro es
preguntar al usuario por este fichero de entrada. Yo lo
habia hecho mediante un InputBox pero ahora mi cliente
dice que no le gusta y que quiere un "Browser" para
escoger el fichero.
Mi peticion es si alguien tiene el codigo VBA para llamar
a la API de Windows y llamar al cuadro de dialogo
estandar para abrir archivos.

Agradeceria una solucion urgente, por favor, que mi
cliente como me retrase mas mi cliente me "muele a palos".

Gracias,

Luis
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 JoseLuisArg
01/07/2004 - 19:26 | Informe spam
qué violento tu cliente!!! que se tranquilize no hace falta API's:

Sub OpenDialog()
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "Microsoft Excel", "*.xls"
.Filters.Add "Todos los archivos", "*.*"
.Title = "Abrir..."
.Show
For I = 1 To .SelectedItems.Count
MsgBox .SelectedItems(I)
Next I
End With
End Sub

José Luis
Guns And Roses



"Luis Herrero" escribió en el mensaje
news:2415e01c45f87$3a5a0be0$
Hola, tengo un problemilla,

estoy haciendo una macro grandecita, que toma datos de
otra hoja Excel. Lo primero que hace la macro es
preguntar al usuario por este fichero de entrada. Yo lo
habia hecho mediante un InputBox pero ahora mi cliente
dice que no le gusta y que quiere un "Browser" para
escoger el fichero.
Mi peticion es si alguien tiene el codigo VBA para llamar
a la API de Windows y llamar al cuadro de dialogo
estandar para abrir archivos.

Agradeceria una solucion urgente, por favor, que mi
cliente como me retrase mas mi cliente me "muele a palos".

Gracias,

Luis

Preguntas similares

 

Busqueda sugerida :