Este artículo le mostrará cómo usar el método Create Object en VBA.
VBA es un lenguaje orientado a objetos: utiliza procedimientos para controlar y crear objetos.
Crear objeto
Podemos usar el método Create Object para crear un objeto en una aplicación de Microsoft Office. Por ejemplo, si estamos escribiendo código VBA en Excel y deseamos abrir una copia de Word, podemos usar el método Create Object para crear una nueva instancia de Word.
Por ejemplo:
| 12345 | Sub CreateWordInstance ()Dim wdApp como objetoEstablecer wdApp = CreateObject ("Word.Application")wdApp.Visible = VerdaderoEnd Sub |
Del mismo modo, podemos crear una nueva instancia de PowerPoint o Access.
| 12345 | Sub CreatePowerPointApplicationAtenuar ppApp como objetoEstablecer ppApp = CreateObject ("PowerPoint.Application")ppApp.Visible = VerdaderoEnd Sub |
También podemos usar Crear objeto para crear objetos distintos al Objeto de aplicación. Podemos usarlo para crear una hoja de Excel, por ejemplo.
| 1234567 | Sub CreateExcelSheet ()Dim xlSheet como objetoEstablecer xlSheet = CreateObject ("Excel.Sheet")xlSheet.Application.Visible = TruexlSheet.Application.Range ("A2") = "Buenos días"Establecer xlSheet = NadaEnd Sub |
Sin embargo, esto en realidad crea una nueva instancia de Excel; no crea la hoja en la instancia que ya está abierta. Por esa razón, tenemos que establecer Aplicación de la nueva hoja (es decir, la nueva instancia de Excel) en Visible para poder ver el objeto.
En todos los ejemplos anteriores, usamos Enlace tardío; por lo tanto, declaramos las variables como Objetos. También podemos usar Early Binding estableciendo una referencia a Word o PowerPoint en nuestro Proyecto VBA y luego escribiendo el Sub Procedimiento como se muestra a continuación. Para obtener más información sobre la vinculación tardía y anticipada, haga clic aquí.
En primer lugar, para Early Binding, dentro de VBE, establecemos una referencia a Microsoft Word.
En el Menú barra, seleccione Herramientas> Referencias y desplácese hacia abajo para encontrar la referencia al Biblioteca de objetos de Microsoft Word 16.0.
Asegúrese de que la referencia esté marcada y luego haga clic en está bien.
NOTA: es posible que la versión no sea la 16.0, ¡todo depende de la versión de Microsoft Office que esté ejecutando en su PC!
Ahora, declaramos el Objeto usando Early Binding; esto significa que, en lugar de declarar la wdApp como un Objeto, la declaramos como un Word.Application. El resto del código es el mismo que cuando usamos Late Binding arriba.
| 12345 | Sub CreateWordInstance ()Atenuar wdApp como nueva aplicación de Word.Establecer wdApp = CreateObject ("Word.Application")wdApp.Visible = VerdaderoEnd Sub |
