Exportar de un Flexgrid o un dat a excel.

[erbuson]

Hola Xyon:

Estoy de vacaciones y de casualidad he leido tu post amigo mio, creo que el problema está en la primera linea del grid que se exporta:

For Fila = 1 To .Rows - 1

Debería empezar en la 0 que es precisamente la de cabecera

For Fila = 0 To .Rows - 1

Respecto a tu otra pregunta de exportar el DAT a Excel, una vez que domines la de exportar el Grid, yo te aconsejaría lo siguiente, carga los datos del DAT en un GRID, así puedes ver si cargas los datos bien, después exportas el Grid y listos.

Si no quieres que se vea este proceso es muy simple, oculta el grid ya que puedes trabajar con el igualmente aunque esté oculto y problema resuelto.

La gran ventaja que tiene esta opción, en mi opinión, es que si aplicas algun cambio al Exportador de Grid a Excel, automaticamente y sin hacer nada estas aplicando ya el cambio sobre el DAT a Excel ya que primero lo pasas por el Grid.

Saludos

Edito mensaje para comentar que deberás modificar además la siguiente linea ya que al empezar Fila en 0 deberá ser tambien Fila + 1

o_Hoja.Cells(Fila + 1, Columna + 1).Value = .TextMatrix(Fila, Columna)