Autor Tema: Exportar Stringgrid (Leído 3067 veces)

Vatoicc · « **en:** Viernes 30 de Junio de 2006, 02:03 »

Como me es posible guardar el contenido de un StringGrid en un archivo de exel?

E tratado de usar los componentes de office que trae el Builder, pero no e sabido como usarlos.

Si alguine me puede dar un norte o pasarme un ejemplo, les agradeceria mucho

Vatoicc

Pues enctre una manera indirecta de poner el contenido del StringGrid en un archivo que puede habrir Excel.

Código: Text

 
TStringList *File = new TStringList();
   File-&#62;Clear();
   for( int Row = 0; Row &#60; StringGrid1-&#62;RowCount; Row++ )
   {
      AnsiString Linea = &#34;&#34;;
      for( int Col = 0; Col &#60; StringGrid1-&#62;ColCount; Col++ )
      {
         Linea += StringGrid1-&#62;Cells[Col][Row]+&#34;,&#34;;
      }
      //Quitar la ultima ','
      Linea.Delete(Linea.Length(),1);
      File-&#62;Append( Linea );
   }
   //Guardar
   File-&#62;SaveToFile( &#34;c:&#092;&#092;tabla.csv&#34; );
 
 

Es un archivo de texto con formato, separado por comas con extención CSV. Hasta ahora me a saco de apuros, pero lo que busco es ponerlo en un archivo XLS.

Espero y puedan ayudarme

eL_MoStRo

Intenta con esto, originalmentew yo lo tenia con un DBGrid pero cro que asi debe de funcionar

Código: Text

 
Variant oExcel, oWkBook, oSheet, oCell;
 
    try {
        oExcel = Variant::CreateObject(&#34;Excel.Application&#34;);
        oExcel.OlePropertySet(&#34;Visible&#34;, (Variant)true);
    }
    catch (Exception &exception) {
        MessageBox(0,&#34;Probablemente Microsoft Excel no se encuentre instalado&#34;, &#34;Error de comunicacion&#34;, MB_OK | MB_ICONERROR);
        return;
    }
 
    oWkBook = oExcel.OlePropertyGet(&#34;WorkBooks&#34;);
    oWkBook.OleProcedure(&#34;Add&#34;);
 
    oSheet = oWkBook.OlePropertyGet(&#34;Item&#34;,(Variant)1);
    oWkBook = oSheet.OlePropertyGet(&#34;Worksheets&#34;);
 
    oWkBook.OlePropertyGet(&#34;Item&#34;, (Variant)1).OlePropertySet(&#34;Name&#34;,&#34;Consulta&#34;);
 
    oSheet = oWkBook.OlePropertyGet(&#34;Item&#34;,1);
 
    for (int iI = 0; iI &#60; StringGrid1-&#62;RowCount; iI++)
        for (int iJ = 0; iJ &#60; StringGrid1-&#62;ColCount; iJ++)
             oSheet.OlePropertyGet(&#34;Cells&#34;).OlePropertyGet(&#34;Item&#34;,iI + 1,iJ + 1).OlePropertySet(&#34;Value&#34;,(Variant)(WideString)StringGrid1-&#62;Cells[iJ][iI]);
 
    oExcel = Unassigned;
 
 

Si no te funciona me avisas para ver ke puede ser lo que esta mal

wako13

Una forma de acelerar el envío de datos es hacerlo enviando grupos de celdas en vez de celda a celda

//by _LEO
// Creamos el array donde copiaremos los datos a enviar
int bounds[4] = {0, StringGrid1->RowCount-1, 0, StringGrid1->ColCount-1};
Variant data = VarArrayCreate(bounds, 3, varVariant);

// Copiamos el contenido del StringGrid en el array
for (int y=0; y<StringGrid1->RowCount; y++)
for (int x=0; x<StringGrid1->ColCount; x++)
data.PutElement(StringGrid1->Cells

[y], y, x);

//---> Usamos una instancia de excel abierta
Variant excel = GetActiveOleObject("Excel.Application");
Variant sheet = excel.OlePropertyGet("ActiveSheet");

// Seleccionamos el princio del rango
Variant range = sheet.OlePropertyGet("Range", "A1");

// Adaptamos el tamaño del rango a nuestro array
range = range.OlePropertyGet("Resize",
StringGrid1->RowCount, StringGrid1->ColCount);

// Enviamos los datos del array
range.OlePropertySet("Value", data);

Vatoicc

Muy buen codigo

, funciono muy bien. Ya lo implemente en mi aplicacion.

Gracias

SoloCodigo

Autor Tema: Exportar Stringgrid (Leído 3067 veces)

Vatoicc

Exportar Stringgrid

Vatoicc

Re: Exportar Stringgrid

eL_MoStRo

Re: Exportar Stringgrid

wako13

Re: Exportar Stringgrid

Vatoicc

Re: Exportar Stringgrid