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
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


0