c) Inicializa o Excel de dentro do programa:

oXL = CreateObject("Excel.Application")     ‘ Abre o Excel.
oXL.Visible = True                          ‘ Torna-o visível para o usuário.

d) Cria um conjunto de planilhas (workbook):

oWB = oXL.Workbooks.Add     ‘ Adiciona um conjunto de planilhas.
oSheet = oWB.ActiveSheet    ‘ Torna-o ativo, referenciando o objeto oSheet à primeira planilha.

e) Adiciona texto nas 4 primeiras células da planilha:

oSheet.Cells(1, 1).Value = "Nome:"
oSheet.Cells(1, 2).Value = "Idade:"
oSheet.Cells(1, 3).Value = "Endereço:"
oSheet.Cells(1, 4).Value = "Telefone:"

f) Formata as células A1 a D1 como negrito e faz o alinhamento do texto ser centralizado:

With oSheet.Range("A1", "D1")   ‘ Para as células A1 a D1…
            .Font.Bold = True       ‘ Coloca o texto em negrito.
            .VerticalAlignment = Excel.XlVAlign.xlVAlignCenter  ‘ Alinha o texto no centro.
End With
Copyright © 2014 AIEC.