Cuadros de diálogo

1. El objeto Dialog

Los cuadros de diálogo integrados son objetos Dialog pertenecientes a la colección Dialogs del objeto Application.

Sintaxis

Ejemplos de constantes xlDialog

2. Los métodos GetOpenFileName y GetSaveAsFileName

Los métodos GetOpenFileName y GetSaveAsFileName del objeto Application muestran, respectivamente, los cuadros de diálogo Abrir y Guardar como... del menú Archivo.

A diferencia de los objetos Dialogs correspondientes (constantes xlOpen y xlSaveAs), estos métodos no realizan ninguna acción; solamente permiten recuperar el nombre del archivo introducido o seleccionado por el usuario.

Sintaxis del método GetOpenFileName

Application.GetOpenFileName(FileFilter, FilterIndex, Title, 
ButtonText, MultiSelect) 

Todos los argumentos son opcionales.

Sintaxis...

1. La función InputBox

Muestra una pregunta (una solicitud de datos) y devuelve el texto escrito por el usuario.

InputBox(prompt,title,default,xpos,ypos,helpfile,context) 

Ejemplo

Este ejemplo muestra un cuadro de diálogo que pide el nombre de las celdas que hay que borrar (las celdas reciben el nombre de cada mes).

Sub Borrar_Celdas_Nombradas()  
  Dim sOpcion As String  
  '   Pide introducir el mes que hay que borrar  
  '   Si el mes se reconoce, borra las celdas con nombre  
  '   Si no, muestra un mensaje de error  
  sOpcion = InputBox( _   
          Prompt:="¿Qué mes desea borrar?", _  
          Title:="Borrar celdas")  
  On Error GoTo Err 
  Application.Goto reference:=sOpcion  
  Selection.Clear  
  Exit Sub 
 
Err: 
  MsgBox "No se puede borrar, nombre de celda inexistente"  
End Sub 

2. El método InputBox

Actúa como la función InputBox, pero permite controlar el tipo de datos que hay que introducir.

objeto.InputBox(prompt,title,default,left,top,helpfile, 
helpContextID,type) 

El objeto es obligatorio y debe ser un objeto Application.