Visual Basic - Cambiar Propiedades (Ancho) de celdas Excel

Life is soft - evento anual de software empresarial
 
Vista:

Cambiar Propiedades (Ancho) de celdas Excel

Publicado por antonio (30 intervenciones) el 09/12/2014 15:40:14
Hola amigos, me gustaria a traves de una funcion que exporta unos datos a un archivo excel, dar formato a las celdas de dos columnas distintas, mas bien seria establecer un ancho fijo.
Y ya si se pudiera establecer que el ancho de toda la columna de celdas fuese el ancho necesario para ver todos los caracteres de la columna seria perfecto, pero eso ya es mucho pedir creo yo. Para mi es suficiente con poder establecer un ancho fijo desde el codigo con alguna propiedad o algo.

Tengo ahora mismo esta funcion :
Private Sub PipeToExcel()

Dim ApExcel = New Microsoft.Office.Interop.Excel.Application
Dim Libro = ApExcel.Workbooks.Add

Libro.Sheets(1).cells(1, 1) = "Code UK P/N"
Libro.Sheets(1).cells(2, 1) = "Drawing"
Libro.Sheets(1).cells(1, 2) = lblUK.Text
Libro.Sheets(1).cells(2, 2) = lblDRW.Text

SaveFileDialogProduct.DefaultExt = "*.xlsx"
SaveFileDialogProduct.FileName = "Time Quotation UK PN " & lblUK.Text & " DRW PN " & lblDRW.Text
SaveFileDialogProduct.Filter = "Archivos de Excel (*.xlsx)|*.xlsx"
SaveFileDialogProduct.ShowDialog()
Libro.SaveAs(SaveFileDialogProduct.FileName)
' MsgBox("Se ha creado el excel")

ApExcel.Quit()
Libro = Nothing
ApExcel = Nothing

End Sub

MUCHAS GRACIAS POR LA AYUDA
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder