Club Builder

[Luis Anibal]

Estimados,
Estoy usando BCB6, quiero enviar los datos de un archivo a una hoja de calculo, para lo cual, de acuerdo a lo ya previamente consultado en el foro, hago lo siguiente:

void Tdm::GeneraExcel( TDataSet *DataSet)
{

//-------- Abre EXCEL
Variant xlApp;

xlApp = CreateOleObject("Excel.Application");

//-------- hace EXCEL visible
xlApp.Exec(PropertySet("Visible") << true);

//-------- crea acceso al objeto 'libro'/workbook
Variant xlBooks = xlApp.Exec(PropertyGet("Workbooks"));

//-------- Crea un fichero nuevo
xlBooks.Exec(Procedure("Add"));

//-------- coge el primer libro de la aplicacion
Variant xlBook = xlBooks.Exec(PropertyGet("Item") << 1);

//-------- crea acceso al objeto 'hoja'/worksheets
Variant xlSheets = xlBook.Exec(PropertyGet("Worksheets"));

//-------- coge la primera hoja del libro
Variant xlSheet = xlSheets.Exec(PropertyGet("Item") << 1);

//-------- Trabajando con celdas...
//-------- Escribe titulos (nombres de campos)
AnsiString LETRA = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
for(int i = 0; i <DataSet>FieldCount; i++)
{
Variant VRange;
AnsiString celda = LETRA.SubString(i+1,1);
VRange = xlSheet.Exec(PropertyGet("Columns") << celda );
VRange.Exec(PropertySet("ColumnWidth") <<DataSet>Fields->Fields[i]->DisplayWidth );

celda = celda+IntToStr(1);
VRange = xlSheet.Exec(PropertyGet("Range") << celda );
VRange.Exec(PropertySet("Value") <<DataSet>Fields->Fields[i]->FieldName );
}

int fila = 3;
DataSet->First();
while ( !DataSet->Eof )
{
for(int i = 0; i <DataSet>FieldCount; i++)
{
Variant VRange;
AnsiString celda = LETRA.SubString(i+1,1)+IntToStr(fila);

VRange = xlSheet.Exec(PropertyGet("Range") << celda );
VRange.Exec(PropertySet("Value") <<DataSet>Fields->Fields[i]->AsString );
}

DataSet->Next();
++fila;
}

xlApp.Clear();
}



Como veran, es practicamente una copia de lo expuesto en el foro, ademas hago:

#include <Comobj> // para formater las celdas de excel

En alguna parte vi que tambien hay que poner

#pragma link "Excel_2K_SRVR"

El asunto, finalmente, es que mientras compilaba en modo 'debug' todo anduvo bien, pero cuando hice click en 'Release' (botones de Project-Options-Compiler) e instale' la aplicacion (que no me daba error al compilar), al momento de ejecutar aparece un "Access Violation".

Volvi a leer el foro, hice algunos cambios, pero no obtuve ninguna mejora.

Alguien que pueda hechar una mano ?

Cualquier sugerencia, comentario, critica (constructiva), sera bienvenida.

Muchas gracias !!
_________________
Luis Anibal Mendez
Analisis, Programacion, Asesoramiento
luisanibalmendez@gmail.com

[_Leo]

Esta correcto, el problema es que en el modo “Release” se activan las optimizaciones y con esa función se ve que dan algún problema, habría que mirarlo con más tranquilidad el porque... de momento lo puedes solucionar desactivando las optimizaciones para esa función en concreto poniendo la siguiente línea antes de la función:

#pragma option push -Od

y la siguiente después de la función:

#pragma option pop

[Luis Anibal]

_Leo,
Muy buena amigo !!
Absolutamente solucionado.

Que grande este foro !!
_________________
Luis Anibal Mendez
Analisis, Programacion, Asesoramiento
luisanibalmendez@gmail.com