Alinear a La Izquierda Contenido de Celda Excel desde VB.NET

Question

Hola exporto unos Datos desde mi aplicacion a EXCEL y megusteria alinear el contenido de algunas celdas a la izquierda...

Como lo puedo hacer ???

---

EFRAIN MEJIAS C VALENCIA - VENEZUELA

Answer 1

Hola. cual es el codigo que estas utilizando para exportar a excel.

Independientemente de eso para alinear el texto ala izquierda debes usar algo asi:

oSheet.Range("A1:D70").HorizontalAlignment = xlLeft

Como vez, el texto del rango de celdas "A1" hasta el D70 le estoy alineando a la izquierda a travez de HorizonTalAligment 

Nota:

El codigo es de ejemplo, tendrias que adaptarlo a tus necesidades.

oSheet obviamente hace referencia a un objeto de la Clase Excel.Worksheet.

---

Luis Muñoz Hidalgo
Mi Blog
Desarrollador de Software
Trujillo-Perú

Answer 2

Hola y Gracias 

Luis F. Muñoz Hidalgo

tengo que centrar la celda que dejo en negrita ...no se como aplicarle ....

oSheet.Range("A1:D70").HorizontalAlignment =Left

Debo centrar el contenido de la celda dentro de un ciclo....no c como hacer

 For Each row2 As DataGridViewRow In DataGridView2.Rows
                    oSheet.Range("B" & f).Value = CStr(row2.Cells("CodigoArticulo").Value)
                    oSheet.Range("C" & f).Value = CStr(row2.Cells("Descripcion").Value)
                    oSheet.Range("D" & f).Value = CStr(row2.Cells("Cantidad").Value)
                    oSheet.Range("E" & f).Value = CStr(row2.Cells("CodigoEquip").Value)
                    oSheet.Range("F" & f).Value = CStr(row2.Cells("UnidadMedida").Value)
                    oSheet.Range("G" & f).Value = CStr(row2.Cells("Prioridad").Value)
                    f = f + 1
                Next

---

EFRAIN MEJIAS C VALENCIA - VENEZUELA

Answer 3

Holas.......

Colocalo dentro del For, si quieres en la linea de abajo

...
oSheet.Range("D" & f).Value = CStr(row2.Cells("Cantidad").Value)
oSheet.Range("D" & f).HorizontalAlignment = Left
...

Answer 4

Hola Pepetrueloide

Colocalo dentro del For, si quieres en la linea de abajo

oSheet.Range("D" & f).Value = CStr(row2.Cells("Cantidad").Value)
oSheet.Range("D" & f).HorizontalAlignment = Left

Me devuelve error que dice No C Puede asignar  HorizontalAlignment = Left a la clase RANGE

---

EFRAIN MEJIAS C VALENCIA - VENEZUELA

Answer 5

Error mio... perdona!!

Colocalo de esta forma
oSheet.Range("D" & f).HorizontalAlignment = Constants.xlLeft

Y si no funciona, de esta otra
oSheet.Range("D" & f).HorizontalAlignment = Microsoft.Office.Interop.Excel.Constants.xlLeft

Answer 6

Gracias man!, Llevaba horas buscando solucionar este proble