Cuadro de dialogo de Abrir archivo

01/07/2004 - 18:19 por Luis Herrero | Informe spam

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

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Cuadro de dialogo Abrir Archivo Word

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

Responder a este mensaje

#2 Fernando Gomez

01/07/2004 - 19:27 | Informe spam

Inserta este codigo donde quieres que abra el browser

Myfile = Application.GetOpenFilename("text Files,*.*")
Workbooks.OpenText FileName:=Myfile, Origin:=xlWindows _

"Luis Herrero" wrote in message
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

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida