Dit artikel laat je zien hoe je de Create Object-methode in VBA gebruikt.
VBA is een Object Oriented Language - het gebruikt procedures om objecten te besturen en te creëren.
Object maken
We kunnen de methode Create Object gebruiken om een object te maken in een Microsoft Office-toepassing. Als we bijvoorbeeld VBA-code in Excel schrijven en een kopie van Word willen openen, kunnen we de methode Object maken gebruiken om een nieuw exemplaar van Word te maken.
Bijvoorbeeld:
| 12345 | Sub CreateWordInstance()Dim wdApp als objectStel wdApp = CreateObject ("Word.Application") inwdApp.Visible = TrueEinde sub |
Op dezelfde manier kunnen we een nieuw exemplaar van PowerPoint of Access maken.
| 12345 | Sub CreatePowerPointApplicationDim ppApp als objectStel ppApp = CreateObject ("PowerPoint.Application") inppApp.Visible = TrueEinde sub |
We kunnen Create Object ook gebruiken om andere objecten dan het Application Object te maken. We kunnen het gebruiken om bijvoorbeeld een Excel-sheet te maken.
| 1234567 | Sub CreateExcelSheet()Dim xlSheet als objectStel xlSheet = CreateObject ("Excel.Sheet") inxlSheet.Application.Visible = TruexlSheet.Application.Range("A2") = "Goedemorgen"Stel xlSheet = Niets inEinde sub |
Dit creëert echter in feite een nieuw exemplaar van Excel - het maakt niet het blad aan in het exemplaar dat al is geopend. Om die reden moeten we Toepassing van het nieuwe blad (dwz: het nieuwe exemplaar van Excel) instellen op Zichtbaar om het object te zien.
In alle bovenstaande voorbeelden gebruiken we Late Binding - daarom declareren we de variabelen als Objecten. We kunnen ook Early Binding gebruiken door een verwijzing naar Word of PowerPoint in ons VBA-project in te stellen en vervolgens de subprocedure te schrijven zoals hieronder weergegeven. Klik hier voor meer informatie over Late en Early binding.
Ten eerste hebben we voor Early Binding binnen de VBE een verwijzing naar Microsoft Word geplaatst.
In de Menu balk, selecteer Hulpmiddelen > Referenties en scroll naar beneden om de verwijzing naar de . te vinden Microsoft Word 16.0-objectbibliotheek.
Zorg ervoor dat de verwijzing is aangevinkt en klik vervolgens op OKE.
OPMERKING: de versie is misschien niet 16.0, het hangt allemaal af van welke versie van Microsoft Office u op uw pc gebruikt!
Nu declareren we het object met Early Binding - dit betekent dat we, in plaats van de wdApp als een object te declareren, het als een Woord.Toepassing. De rest van de code is hetzelfde als toen we hierboven Late Binding gebruikten.
| 12345 | Sub CreateWordInstance()Dim wdApp als nieuwe Word.ApplicationStel wdApp = CreateObject ("Word.Application") inwdApp.Visible = TrueEinde sub |
