Hola buenas tardes a todos...mi problema es el siguiente:
Tengo un MSFLEXGRID que contiene datos que estoy extrayendo de una tabla mediante una consulta de SQL......en la columna número 4 del MSFLEXGRID están todas las numero de los productos que son los valore
pero cuando hago la exportación del contenido del MSFLEXGRID a EXCEL.....la columna correspondiente a los valore me las pone en EXCEL como números, es decir, si yo tengo un valor asi 23,800 al exportarla a Excel me la pone así 23,8 .
Como puedo hacer para que al exportar a Excel no me altere los valore y me las ponga tal cual......no sé si desde visual basic se pueda dar formato de texto a una columna especifica de una hoja de Excel….de antemano gracias por la ayuda..
Aquí os dejo el código
Private Sub ChaExporta_Click()
Dim Fila As Long, Columna As Long
Dim F 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 = True
Set objWorkbook = objExcel.Workbooks.Add
For Fila = 0 To Grid.Rows - 1
Grid.Row = Fila
For Columna = 1 To 4
Grid.Col = Columna
objWorkbook.ActiveSheet.Cells(Fila + 1, Columna + 0).Value = Grid.Text
Next Columna
Next Fila
'Opcional : colocamos en negrita y de color rojo los enbezados en la hoja
objExcel.Rows(1).Font.Bold = True
objExcel.Rows(1).Font.Color = vbRed
objExcel.Cells.Select
objExcel.Selection.EntireColumn.AutoFit ' Ancho de columna
objExcel.Range("A1").Select
Set objWorkbook = Nothing
Set objExcel = Nothing
End Sub
adjunto una imagen:
GRACIAS!!!
