Alinear celda desde VB a excel
S.O.S.
Hola expertos espero que alguien me pueda responder lo antes posible,
la pregunta es la siguiente: de que forma puedo alinear un rango de celdas de una planilla excel desde Visual Basic.
De ante mano gracias.
Hola expertos espero que alguien me pueda responder lo antes posible,
la pregunta es la siguiente: de que forma puedo alinear un rango de celdas de una planilla excel desde Visual Basic.
De ante mano gracias.
1 Respuesta
Respuesta de aja72
1
Te pongo un ejemplo que alinea celdas en una hoja excel:
Private Sub Command1_Click()
Dim xl As New Excel.Application
Dim w As Worksheet
Set xl = CreateObject("Excel.Application")
xl.Application.Workbooks.Open App.Path & "\informe.xls"
xl.Visible = True
Set w = xl.Worksheets.item("Hoja1")
w.Activate
w.Range("A1", "B2").HorizontalAlignment = xlHAlignLeft
w.Range("C1", "D2").HorizontalAlignment = xlHAlignCenter
w.Range("E1", "F2").HorizontalAlignment = xlHAlignRight
xl.ActiveWorkbook.Save
xl.Workbooks.Close
xl.Application.Quit
Set xl = Nothing
Set w = Nothing
End Sub
No olvides valorar la respuesta.
Private Sub Command1_Click()
Dim xl As New Excel.Application
Dim w As Worksheet
Set xl = CreateObject("Excel.Application")
xl.Application.Workbooks.Open App.Path & "\informe.xls"
xl.Visible = True
Set w = xl.Worksheets.item("Hoja1")
w.Activate
w.Range("A1", "B2").HorizontalAlignment = xlHAlignLeft
w.Range("C1", "D2").HorizontalAlignment = xlHAlignCenter
w.Range("E1", "F2").HorizontalAlignment = xlHAlignRight
xl.ActiveWorkbook.Save
xl.Workbooks.Close
xl.Application.Quit
Set xl = Nothing
Set w = Nothing
End Sub
No olvides valorar la respuesta.
