Objecto Application de Excel VBA

El objeto Application de VBA nos da información del usuario/máquina. En este artículo presentaremos unas aplicaciones del un objeto muy básico de Excel/VBA: Application. Este representa todo el conjunto del programa Excel y sus libros de trabajo.

Unos ejemplos de propiedades del objeto Application

El objeto Application tiene muchas propiedades. Hay unas que pueden ser interesantes para el programador de macros VBA de Excel.

Objeto	Propiedad	Devuelve
Application.	UserName	Nombre del usuario
	OrganizationName	Nombre de la empresa
	OperatingSystem	Sistema operativo
	Version	Versión de MS Excel
	ProductCode	Código de MS Excel
	StandardFont	Fuente por defecto
	StandardFontSize	Tamaño fuente por defecto
	DecimalSeparator	Carácter separador de miles
	ActivePrinter	Impresora por defecto
	DefaultFilePath	Ruta de acceso por defecto
	UserLibraryPath	Ruta a carpeta Add-ins

Sobre la versión de MS Excel arriba:

Nº	Versión
12	Excel 2007
11	Excel 2003
10	Excel 2002 ("XP")
9	Excel 2000
8	Excel 97
7	Excel 95

Algunos ejemplos prácticos del objeto Application de Excel

Presentar la impresora activa del usuario

Para presentar la impresora activa del usuario, en una caja de diálogo, pondríamos

Sub Devolver ImpresoraActiva()

Dim strImpresoraActiva as String
strImpresoraActiva = Application.ActivePrinter

Msgbox strImpresoraActiva

End sub

o todavía más fácil:

Sub Devolver ImpresoraActiva()

Msgbox Application.ActivePrinter

End sub

Crear lista extensa de información sobre la máquina del usuario

Abajo te presentamos una macro para presentar varios datos del usuario/maquina.

Sub Application_Data()

'dimensiones
Dim strDataArray(10) As String
Dim i, x As Integer

'devolver datos del objeto 'Application'
strDataArray(0) = Application.UserName
strDataArray(1) = Application.OrganizationName
strDataArray(2) = Application.OperatingSystem
strDataArray(3) = Application.Version
strDataArray(4) = Application.ProductCode
strDataArray(5) = Application.StandardFont
strDataArray(6) = Application.StandardFontSize
strDataArray(7) = Application.DecimalSeparator
strDataArray(8) = Application.ActivePrinter
strDataArray(9) = Application.DefaultFilePath
strDataArray(10) = Application.UserLibraryPath

'presentar los datos en celdas D3...
x = 0
For i = 3 To 13
Cells(i, 4) = strDataArray(x)
x = x + 1
Next i

End Sub

Sub SuprimirDatosEnceldas()

'suprimir datos antiguos
Range(Cells(3, 4), Cells(13, 4)).ClearContents

End Sub