Private Type Inf

Text As String

End Type
Private Sub Command1_Click()
    Dim ApExcel As Variant
    Set ApExcel = CreateObject("Excel.application")
    ' Hace que Excel se vea
    ApExcel.Visible = True
    'Agrega un nuevo Libro
    ApExcel.Workbooks.Add
    'Poner Titulos
    ApExcel.cells(1, 1).Formula = "Titulo de la Aplicacion"
    ApExcel.cells(1, 1).Font.Size = 18
    ApExcel.cells(2, 2).Formula = "Debe"
    ApExcel.cells(2, 3).Formula = "Haber"
    ApExcel.cells(2, 4).Formula = "Saldo"
    ApExcel.cells(3, 2).Formula = 200
    ApExcel.cells(3, 3).Formula = 100
    ' Aplica Formula
    ApExcel.cells(3, 4).Formula = "=B3-C3"
    ' Hace una Seleccion de celdas y pone bordes de Color
    ApExcel.RANGE("B3:D3").BORDERS.Color = RGB(255, 0, 0)
    Set ApExcel = Nothing
End Sub