El objeto Aplicación (Application en VBA) se emplea a nivel de la aplicación de Excel; es decir, a un nivel mayor que la Hoja o Libro activo. Esta opción nos presenta una gama muy amplia de alternativas que hasta pueden encontrarse en el menú Archivo del Excel.
Sintaxis:
La sintaxis que se usa para el Application es la siguiente:
Application[.Valor u opción] [.Método]
Como Application es la opción "más general" y la que abarca a los demás objetos (Workbook y Worksheet) entonces no tendremos ningún problema si no escribimos esta palabra y sólo colocamos la instrucción.
Ejemplo
Para el ejemplo que se ilustra a continuación, empezaremos con una tabla de información sin cabecera, podemos suponer que es información que viene de otro aplicativo y es exportada al Excel.
Empezaremos empleando el Application para darle los títulos a esta tabla de la siguiente manera:
Application.Range("a3").Value = "Nombre"
Application.Range("b3").Value = "Código"
.....
Y con esto colocaremos los nombres a la tabla:
Luego, como es un reporte semanal, cada Hoja del Excel tendrá una tabla como ésta, por lo que solicitaremos al usuario que nos indique qué día de la semana es para cambiar el nombre a la Hoja.
Nombre = InputBox("Establecer día", "Escriba el día")
Application.ActiveSheet.Name = ("Reporte" + Nombre)
Al escribir, por ejemplo, el día Lunes en esta opción, notaremos que el nombre de la hoja ha sido modificado
Para finalizar, utilizaremos una de las aplicaciones generales que se mencionaron al principio, la cual es que nos muestre el nombre de la impresora que se encuentra activa:
MsgBox Application.ActivePrinter
De esta manera, presentaremos toda la programación mencionada anteriormente:
Por: Angela Vásquez
10/07/2017 a las 12:28 pm
Estimada Kathia:
Me puede ayudar con la siguiente sentencia: "Application.CutCopyMode = False", cual es la funcion que realiza en una macro?
Agradezco su respuesta
Saludos,