[SOLUCIONADO] Centrar a la derecha columas exportadas a excel

[gasafonso]

Hola amigos tengo este codigo

Código vb:

Dim I As Long, j As Long
    Dim objExcel As Object
    Dim objWorkbook As Object
    On Error Resume Next ' por si se cierra Excel antes de cargar los datos
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Visible = False
    Set objWorkbook = objExcel.Workbooks.Add
    For I = 0 To grilla.Rows - 1
       grilla.Row = I
        For j = 0 To grilla.Cols - 2
            grilla.Col = j
            If I = 0 Then
                objWorkbook.ActiveSheet.Cells(I + 1, j + 1).Interior.Color = &H80C0FF
                objWorkbook.ActiveSheet.Cells(I + 1, j + 1).Font.Bold = True
                objWorkbook.ActiveSheet.Cells(I + 1, j + 1).Value = grilla.text
            Else
                objWorkbook.ActiveSheet.Cells(I + 1, j + 1).Style = "Comma"
                objWorkbook.ActiveSheet.Cells(I + 1, j + 1).NumberFormat = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
                objWorkbook.ActiveSheet.Cells(I + 1, j + 1).NumberFormat = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
                objWorkbook.ActiveSheet.Cells(I + 1, j + 1).NumberFormat = "_-* #,##0_-"
                objWorkbook.ActiveSheet.Cells(I + 1, j + 1).Interior.Color = &HC0FFFF
                objWorkbook.ActiveSheet.Cells(I + 1, j + 1).Value = grilla.text
                objWorkbook.ActiveSheet.Cells(I + 1, j + 1).HorizontalAlignment = xlRight
            End If
 
        Next
               objWorkbook.ActiveSheet.Cells(I + 1, 1).NumberFormat = "_-* dd/mm/yyyy_-"
               
    Next
    objExcel.Cells.Select
    objExcel.selection.EntireColumn.AutoFit    ' Ancho de columna
    objWorkbook.ActiveSheet.Range("A1:h59").Borders().LineStyle = 1
    objWorkbook.ActiveSheet.Range("A59:i59").Font.Bold = True
    objExcel.Range("b1").Select
    objExcel.Visible = True
    
    objExcel.ActiveWindow.SelectedSheets.PrintPreview ' Previsualizar informe
    Set objWorkbook = Nothing
    Set objExcel = Nothing
 

y quiero alinear a la derecha las ultimas 3 columnas y la primera

Como lo puedo hacer ? gracias

[gasafonso]

Alguien me puede ayudar con esto?graciassssssss

[gasafonso]

Por que a la gente le cuesta tanto responderme ? hice algo mal ?

Por favor expliquenme

gracis

[franko1809]

Que tal, de vez en cuando entro al foro y particularmente no respondo porque no tengo idea de como hacerlo, tendria que googlear y rebuscar por ahi para lograr lo que necesitas pero seguro que si entra un user con mas experiencia en vb6 seguro te da la solucion en un 2 por 3, no creo que no te quieran responder, tambien sera porque ultimamente este foro no tiene mucho trafico.

[gasafonso]

Siii puede ser que tengas razon que ya no tiene mucha vigencia este foro, pero veo que otras preguntas son respondidas con mas fluides..........
Pero bue.........sino abra que cambiarse de foro

gracias

[gnzsoloyo]

En realidad lo que te conviene es cambiar de lenguaje. TE va a ser cada vez más dificil encontrar quienes se dediquen exclusivamente a VB clásico, ya que la mayoría ha ido migrando a .Netl por necesidades de trabajo.
Mi experiencia es en VB.Net en ese caso, y no termino de entender tu problema porque si mal no recuerdo existen métodos para seleccionar las columnas enteras y cambiarles el alineamiento, cosa que ya usas en el loop.
Lamentablemene todo lo que tengo es para .Net.

[gnzsoloyo]

Iniciado por gasafonso

Hola amigos tengo este codigo

Código vb:

Dim I As Long, j As Long
    Dim objExcel As Object
    Dim objWorkbook As Object
    On Error Resume Next ' por si se cierra Excel antes de cargar los datos
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Visible = False
    Set objWorkbook = objExcel.Workbooks.Add
    For I = 0 To grilla.Rows - 1
       grilla.Row = I
        For j = 0 To grilla.Cols - 2
            grilla.Col = j
            If I = 0 Then
                objWorkbook.ActiveSheet.Cells(I + 1, j + 1).Interior.Color = &H80C0FF
                objWorkbook.ActiveSheet.Cells(I + 1, j + 1).Font.Bold = True
                objWorkbook.ActiveSheet.Cells(I + 1, j + 1).Value = grilla.text
            Else
                objWorkbook.ActiveSheet.Cells(I + 1, j + 1).Style = "Comma"
                objWorkbook.ActiveSheet.Cells(I + 1, j + 1).NumberFormat = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
                objWorkbook.ActiveSheet.Cells(I + 1, j + 1).NumberFormat = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
                objWorkbook.ActiveSheet.Cells(I + 1, j + 1).NumberFormat = "_-* #,##0_-"
                objWorkbook.ActiveSheet.Cells(I + 1, j + 1).Interior.Color = &HC0FFFF
                objWorkbook.ActiveSheet.Cells(I + 1, j + 1).Value = grilla.text
                objWorkbook.ActiveSheet.Cells(I + 1, j + 1).HorizontalAlignment = xlRight
            End If
 
        Next
               objWorkbook.ActiveSheet.Cells(I + 1, 1).NumberFormat = "_-* dd/mm/yyyy_-"
               
    Next
    objExcel.Cells.Select
    objExcel.selection.EntireColumn.AutoFit    ' Ancho de columna
    objWorkbook.ActiveSheet.Range("A1:h59").Borders().LineStyle = 1
    objWorkbook.ActiveSheet.Range("A59:i59").Font.Bold = True
    objExcel.Range("b1").Select
    objExcel.Visible = True
    
    objExcel.ActiveWindow.SelectedSheets.PrintPreview ' Previsualizar informe
    Set objWorkbook = Nothing
    Set objExcel = Nothing
 

y quiero alinear a la derecha las ultimas 3 columnas y la primera

Como lo puedo hacer ? gracias

A cada Range le deberías asignar:

Código vb:

.HorizontalAlignment = Excel.XlHAlign.xlHAlignRight
 

[gasafonso]

osea :

Código vb:

objWorkbook.ActiveSheet.Cells(I + 1, j + 1).HorizontalAlignment = objExcel.XlHAlign.xlHAlignRight
 

asi no me lo alinea capo

[gnzsoloyo]

Postea una imagen de lo que te sale, y una imagen de lo que debería salir.

[gasafonso]

ok ahi te mando

como hago para poner una imgagen aca?

[gnzsoloyo]

Subiendola a algun repositorio publico, y usando el link que ellos te proveen para eso.
Yo suelo usar https://imageshack.com/, por ejemplo.

[gasafonso]

asi es como queda

http://imageshack.com/a/img841/999/kl8y.jpg



y deberia quedar asi


http://imageshack.com/a/img836/9290/u34d.jpg

[gasafonso]

Hola amigos ya lo solucione agregando esto:

Código vb:

objWorkbook.ActiveSheet.Cells(I + 1, 1).HorizontalAlignment = xlRight ' alinear a la derecha la columna 1
               objWorkbook.ActiveSheet.Cells(I + 1, 5).HorizontalAlignment = xlRight
               objWorkbook.ActiveSheet.Cells(I + 1, 6).HorizontalAlignment = xlRight
               objWorkbook.ActiveSheet.Cells(I + 1, 7).HorizontalAlignment = xlRight