23/08/2010, 06:22
|
| | | Fecha de Ingreso: noviembre-2009
Mensajes: 701
Antigüedad: 15 años, 2 meses Puntos: 53 | |
Respuesta: Exportar de un Flexgrid o un dat a excel. Hola Xyon:
Efectivamente debo contestarte SI a la primera de las preguntas ya que como es lógico lo mismo es .Cells(Fila, Columna) que .Cells(Y,X) y cuando hablas de la funcion de carga supongo que estas haciendo referencia al comentario anterior que decias de cargar los datos en una matrizde X Filas Y Columnas, y así utilizar la Matriz como si un FlexGrid se tratara ya que son en estructura idénticos.
En relación con la segunda tambien estás en el camino correcto, aunque yo no utilizaría un CASE sino tan sólo un IF ya que creo que es mas facil de entender
If Fila = 0 Then ' Cabecera
...
Else ' Detalle
...
End If
Cuando te decia a darte un consejo, me refería a que además de poner el valor en la celda (Cells) correspondiente, le puede dar un formato a la misma, yo por ejemplo acostumbro a utilizar los siguientes:
Para Importes con decimales o_Hoja.Cells(F, C).NumberFormat = "#,##0.00"
Para Numeros sin decimales o_Hoja.Cells(F, C).NumberFormat = "#,##0"
Para Fechas, fuerzo valor Date o_Hoja.Cells(F, C) = CDate(MiDato)
Para Cadenas de Texto directo o_Hoja.Cells(F, C) = Cadena
Un número que deseo sea tratado como Cadena o_Hoja.Cells(F, C) = "'" & Numero
En este último caso como ves le añado delante una comilla, tal cual hace Excel.
Como puedes ver, cuando le asigno el valor NUNCA utilizo la opción .Value ya que creo es la propiedad por omisión, pero supongo que el resultado es el mismo.
Saludos
__________________ Agradecer a quien te enseñó, es enseñar lo que de él aprendiste. Recuerda: Decir gracias, poco cuesta y mucho vale ... |