Šis raksts parādīs, kā izmantot objekta izveides metodi VBA.
VBA ir uz objektiem orientēta valoda - tā izmanto procedūras, lai kontrolētu un izveidotu objektus.
Izveidot objektu
Mēs varam izmantot objekta izveides metodi, lai izveidotu objektu Microsoft Office lietojumprogrammā. Piemēram, ja programmā Excel rakstām VBA kodu un vēlamies atvērt Word kopiju, mēs varam izmantot metodi Izveidot objektu, lai izveidotu jaunu Word gadījumu.
Piemēram:
| 12345 | Sub CreateWordInstance ()Dim wdApp kā objektsIestatīt wdApp = CreateObject ("Word.Application")wdApp.Visible = PatiessBeigu apakš |
Līdzīgi mēs varam izveidot jaunu PowerPoint vai Access gadījumu.
| 12345 | Sub CreatePowerPointApplicationIzgaismojiet ppApp kā objektuIestatiet ppApp = CreateObject ("PowerPoint.Application")ppApp.Visible = TrueBeigu apakš |
Mēs varam izmantot arī Izveidot objektu, lai izveidotu objektus, kas nav lietojumprogrammas objekts. Mēs to varam izmantot, piemēram, lai izveidotu Excel lapu.
| 1234567 | Sub CreateExcelSheet ()Dim xlSheet kā objektsIestatīt xlSheet = CreateObject ("Excel.Sheet")xlSheet.Application.Visible = PatiesaxlSheet.Application.Range ("A2") = "Labrīt"Set xlSheet = NekasBeigu apakš |
Tomēr tas faktiski rada jaunu Excel gadījumu - tas neveido lapu jau atvērtā instancē. Šī iemesla dēļ, lai redzētu objektu, mums ir jāiestata Visās lapas piemērošana (ti, jaunā Excel instance) uz Visible.
Visos iepriekš minētajos piemēros mēs izmantojam novēlotu saistīšanu, tāpēc mainīgos mainām kā objektus. Mēs varam izmantot arī agrīno iesiešanu, mūsu VBA projektā iestatot atsauci uz Word vai PowerPoint un pēc tam uzrakstot apakšprocedūru, kā parādīts zemāk. Lai uzzinātu vairāk par vēlo un agrīno iesiešanu, noklikšķiniet šeit.
Pirmkārt, agrīnai iesiešanai VBE ietvaros mēs iestatījām atsauci uz Microsoft Word.
Iekš Izvēlne joslu, izvēlieties Rīki> Atsauces un ritiniet uz leju, lai atrastu atsauci uz Microsoft Word 16.0 objektu bibliotēka.
Pārliecinieties, vai atsauce ir atzīmēta, un pēc tam noklikšķiniet LABI.
PIEZĪME. Versija var nebūt 16.0, tas viss ir atkarīgs no tā, kādu Microsoft Office versiju izmantojat savā datorā!
Tagad mēs deklarējam objektu, izmantojot agrīno saistīšanu - tas nozīmē, ka tā vietā, lai deklarētu wdApp kā objektu, mēs to deklarējam kā Vārds. Pieteikums. Pārējais kods ir tāds pats kā tad, kad iepriekš izmantojām vēlo iesēšanu.
| 12345 | Sub CreateWordInstance ()Dim wdApp kā jauns vārds. PieteikumsIestatīt wdApp = CreateObject ("Word.Application")wdApp.Visible = PatiessBeigu apakš |
