Questo articolo ti mostrerà come utilizzare il metodo Crea oggetto in VBA.
VBA è un linguaggio orientato agli oggetti: utilizza procedure per controllare e creare oggetti.
Crea oggetto
Possiamo utilizzare il metodo Create Object per creare un oggetto in un'applicazione Microsoft Office. Ad esempio, se stiamo scrivendo codice VBA in Excel e desideriamo aprire una copia di Word, possiamo utilizzare il metodo Crea oggetto per creare una nuova istanza di Word.
Per esempio:
| 12345 | Sub CreateWordInstance()Dim wdApp come oggettoImposta wdApp = CreateObject("Word.Application")wdApp.Visible = TrueFine sottotitolo |
Allo stesso modo, possiamo creare una nuova istanza di PowerPoint o Access.
| 12345 | Sub CreatePowerPointApplicazioneDim ppApp come oggettoImposta ppApp = CreateObject("PowerPoint.Application")ppApp.Visible = TrueFine sottotitolo |
Possiamo anche usare Crea oggetto per creare oggetti diversi dall'oggetto applicazione. Possiamo usarlo per creare un foglio Excel, ad esempio.
| 1234567 | Sub CreateExcelSheet()Dim xlSheet As ObjectImposta xlSheet = CreateObject("Excel.Sheet")xlSheet.Application.Visible = TruexlSheet.Application.Range("A2") = "Buongiorno"Imposta xlSheet = NienteFine sottotitolo |
Tuttavia, questo crea effettivamente una nuova istanza di Excel: non crea il foglio nell'istanza già aperta. Per questo motivo, dobbiamo impostare l'Applicazione del nuovo foglio (es: la nuova istanza di Excel) su Visibile per vedere l'oggetto.
In tutti gli esempi sopra, stiamo usando Late Binding, quindi dichiariamo le variabili come Objects. Possiamo anche utilizzare l'associazione anticipata impostando un riferimento a Word o PowerPoint nel nostro progetto VBA e quindi scrivendo la procedura secondaria come mostrato di seguito. Per saperne di più sulla rilegatura tardiva e anticipata, fai clic qui.
Innanzitutto per l'associazione anticipata, all'interno del VBE, abbiamo impostato un riferimento a Microsoft Word.
Nel Menù barra, seleziona Strumenti > Riferimenti e scorri verso il basso per trovare il riferimento al Libreria di oggetti di Microsoft Word 16.0.
Assicurati che il riferimento sia selezionato, quindi fai clic su OK.
NOTA: la versione potrebbe non essere la 16.0, tutto dipende dalla versione di Microsoft Office in esecuzione sul PC!
Ora, dichiariamo l'oggetto utilizzando l'associazione anticipata: questo significa che, invece di dichiarare wdApp come oggetto, lo dichiariamo come Parola.Applicazione. Il resto del codice è lo stesso di quando abbiamo usato l'associazione tardiva sopra.
| 12345 | Sub CreateWordInstance()Dim wdApp come nuova applicazione WordImposta wdApp = CreateObject("Word.Application")wdApp.Visible = TrueFine sottotitolo |
