VBA Automação 01

[André Luiz Bernardes]

Quando desejar usar as funcionalidades de outros aplicativos precisará criar uma ligação a estes.

Ligação inicial / Early binding

A ligação entre a variável do objeto e o objeto ocorre no momento em que o aplicativo é compilado. Resultará numa melhor performance.

Se quiser criar uma ligação inicial precisará definí-la como uma referência à biblioteca de objetos que deseja usar antes da execução desta. Isso é feito a partir do VBE usando o menu Ferramentas (por exemplo oDoc Dim Word.Document). Isso também irá tornar o programa mais fácil para os objetos "estrangeiros", pois o VBE irá exibir a mesma programação de ajuda como propriedades, métodos e eventos onde mostra os objetos pertencentes ao aplicativo que está trabalhando.

Este é um exemplo de código em geral:

Sub OLEAutomationEarlyBinding()
' replace xxx with one of the following:
' Access, Excel, Outlook, PowerPoint or Word

Dim oApp As xxx.Application ' early binding
Dim oDoc As xxx.Document 
' Excel.Workbook, Outlook.MailItem, PowerPoint.Presentation, Word.Document
    On Error Resume Next ' ignore errors
    Set oApp = GetObject(, "xxx.Application") 
    ' reference an existing application instance
    If oApp Is Nothing Then ' no existing application is running
        Set oApp = New xxx.Application ' create a new application instance
    End If
    On Error GoTo 0 ' resume normal error handling
    If oApp Is Nothing Then ' not able to create the application
        MsgBox "The application is not available!", vbExclamation
    End If
    With oApp
        .Visible = True ' make the application object visible
        ' at this point the application is visible
        ' do something depending on the application...
        Set oDoc = .Documents.Open("c:\foldername\filename.doc")
        ' open a document
'        ...
        oDoc.Close True ' close and save the document
        .Quit ' close the application
    End With
    Set oDoc = Nothing ' free memory
    Set oApp = Nothing ' free memory
End Sub