Visual basic , ApExcel
Tengo este código en VISUAL BASIC
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
'hace que no se vea el archivo excel
ApExcel.Visible = falce
'hace que grave el el archivo excel en mis documentos
ApExcel.save
'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
Deseo sabes como puedo hacer avanzar las celdas para ir llenando con como un una base de datos osea ir poniendo más registros por que el código que tengo solo pone seldas especificas y si cambio los datos sobre escribe las celdas pero yo quiero que vaya abajo mis nuevos datos con en una base de dato
bueno también quiero saber como puedo gradar ese archivo exel con un nombre especifico.
Y si alguien me puede dar todos las propiedades del ApExcel
ejemplo
ApExcel. Workbooks. Add
Todas esas propuiedades y sus formatos y también para que sirven
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
'hace que no se vea el archivo excel
ApExcel.Visible = falce
'hace que grave el el archivo excel en mis documentos
ApExcel.save
'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
Deseo sabes como puedo hacer avanzar las celdas para ir llenando con como un una base de datos osea ir poniendo más registros por que el código que tengo solo pone seldas especificas y si cambio los datos sobre escribe las celdas pero yo quiero que vaya abajo mis nuevos datos con en una base de dato
bueno también quiero saber como puedo gradar ese archivo exel con un nombre especifico.
Y si alguien me puede dar todos las propiedades del ApExcel
ejemplo
ApExcel. Workbooks. Add
Todas esas propuiedades y sus formatos y también para que sirven
1 respuesta
Respuesta de pcampora
1