Hola a todos...

Tengo una pequeña pega con la exportación a Excel... He conseguido desde un
grid copiar su contenido en el portapapeles, pero a la hora de pegar dicho
contenido en una hoja de excel no sé cómo hacerlo (Abro excel, pero no sé
como indicarle via OLE que efectue la operación de pegar en la celda
(0,0)...)

Si manualmente desde Excel pulso el botón derecho del ratón y le doy a
pegar, funciona bien...

Uso Delphi7 prof.

Alguien tiene alguna sugerencia ?

Xavier

Yo en excel nolo hice nunca, pero en word si... no se si te servirá de
ayuda:

var
w:variant;
begin
w:=createoleobject('word.basic');
w.selectall;
w.editcut;
w.editpaste;



"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:2p5dbeFgli5rU1***uni-berlin.de...
> Hola a todos...
>
> Tengo una pequeña pega con la exportación a Excel... He conseguido desde
un
> grid copiar su contenido en el portapapeles, pero a la hora de pegar dicho
> contenido en una hoja de excel no sé cómo hacerlo (Abro excel, pero no sé
> como indicarle via OLE que efectue la operación de pegar en la celda
> (0,0)...)
>
> Si manualmente desde Excel pulso el botón derecho del ratón y le doy a
> pegar, funciona bien...
>
> Uso Delphi7 prof.
>
> Alguien tiene alguna sugerencia ?
>
> Xavier
>
>

Yo en excel nolo hice nunca, pero en word si... no se si te servirá de
ayuda:

var
w:variant;
begin
w:=createoleobject('word.basic');
w.selectall;
w.editcut;
w.editpaste;



"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:2p5dbeFgli5rU1***uni-berlin.de...
> Hola a todos...
>
> Tengo una pequeña pega con la exportación a Excel... He conseguido desde
un
> grid copiar su contenido en el portapapeles, pero a la hora de pegar dicho
> contenido en una hoja de excel no sé cómo hacerlo (Abro excel, pero no sé
> como indicarle via OLE que efectue la operación de pegar en la celda
> (0,0)...)
>
> Si manualmente desde Excel pulso el botón derecho del ratón y le doy a
> pegar, funciona bien...
>
> Uso Delphi7 prof.
>
> Alguien tiene alguna sugerencia ?
>
> Xavier
>
>

Yo en excel nolo hice nunca, pero en word si... no se si te servirá de
ayuda:

var
w:variant;
begin
w:=createoleobject('word.basic');
w.selectall;
w.editcut;
w.editpaste;



"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:2p5dbeFgli5rU1***uni-berlin.de...
> Hola a todos...
>
> Tengo una pequeña pega con la exportación a Excel... He conseguido desde
un
> grid copiar su contenido en el portapapeles, pero a la hora de pegar dicho
> contenido en una hoja de excel no sé cómo hacerlo (Abro excel, pero no sé
> como indicarle via OLE que efectue la operación de pegar en la celda
> (0,0)...)
>
> Si manualmente desde Excel pulso el botón derecho del ratón y le doy a
> pegar, funciona bien...
>
> Uso Delphi7 prof.
>
> Alguien tiene alguna sugerencia ?
>
> Xavier
>
>

Yo en excel nolo hice nunca, pero en word si... no se si te servirá de
ayuda:

var
w:variant;
begin
w:=createoleobject('word.basic');
w.selectall;
w.editcut;
w.editpaste;



"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:2p5dbeFgli5rU1***uni-berlin.de...
> Hola a todos...
>
> Tengo una pequeña pega con la exportación a Excel... He conseguido desde
un
> grid copiar su contenido en el portapapeles, pero a la hora de pegar dicho
> contenido en una hoja de excel no sé cómo hacerlo (Abro excel, pero no sé
> como indicarle via OLE que efectue la operación de pegar en la celda
> (0,0)...)
>
> Si manualmente desde Excel pulso el botón derecho del ratón y le doy a
> pegar, funciona bien...
>
> Uso Delphi7 prof.
>
> Alguien tiene alguna sugerencia ?
>
> Xavier
>
>

Yo en excel nolo hice nunca, pero en word si... no se si te servirá de
ayuda:

var
w:variant;
begin
w:=createoleobject('word.basic');
w.selectall;
w.editcut;
w.editpaste;



"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:2p5dbeFgli5rU1***uni-berlin.de...
> Hola a todos...
>
> Tengo una pequeña pega con la exportación a Excel... He conseguido desde
un
> grid copiar su contenido en el portapapeles, pero a la hora de pegar dicho
> contenido en una hoja de excel no sé cómo hacerlo (Abro excel, pero no sé
> como indicarle via OLE que efectue la operación de pegar en la celda
> (0,0)...)
>
> Si manualmente desde Excel pulso el botón derecho del ratón y le doy a
> pegar, funciona bien...
>
> Uso Delphi7 prof.
>
> Alguien tiene alguna sugerencia ?
>
> Xavier
>
>

Yo en excel nolo hice nunca, pero en word si... no se si te servirá de
ayuda:

var
w:variant;
begin
w:=createoleobject('word.basic');
w.selectall;
w.editcut;
w.editpaste;



"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:2p5dbeFgli5rU1***uni-berlin.de...
> Hola a todos...
>
> Tengo una pequeña pega con la exportación a Excel... He conseguido desde
un
> grid copiar su contenido en el portapapeles, pero a la hora de pegar dicho
> contenido en una hoja de excel no sé cómo hacerlo (Abro excel, pero no sé
> como indicarle via OLE que efectue la operación de pegar en la celda
> (0,0)...)
>
> Si manualmente desde Excel pulso el botón derecho del ratón y le doy a
> pegar, funciona bien...
>
> Uso Delphi7 prof.
>
> Alguien tiene alguna sugerencia ?
>
> Xavier
>
>

Yo en excel nolo hice nunca, pero en word si... no se si te servirá de
ayuda:

var
w:variant;
begin
w:=createoleobject('word.basic');
w.selectall;
w.editcut;
w.editpaste;



"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:2p5dbeFgli5rU1***uni-berlin.de...
> Hola a todos...
>
> Tengo una pequeña pega con la exportación a Excel... He conseguido desde
un
> grid copiar su contenido en el portapapeles, pero a la hora de pegar dicho
> contenido en una hoja de excel no sé cómo hacerlo (Abro excel, pero no sé
> como indicarle via OLE que efectue la operación de pegar en la celda
> (0,0)...)
>
> Si manualmente desde Excel pulso el botón derecho del ratón y le doy a
> pegar, funciona bien...
>
> Uso Delphi7 prof.
>
> Alguien tiene alguna sugerencia ?
>
> Xavier
>
>

Hola,

Yo para copiar un grid y pegarlo en un archivo excel, lo hago sin usar el
portapapeles,
usando los componentes
TexcelApplication, TExcelWorkBook, TExcelWorkSheet

mediante ellos habro Excel y el libro y la hoja que quiero:

Abrir Excel
-----------------------------------------------------------
ExcelApplication1.Workbooks.Open(nombrefichero,
emptyParam,emptyParam,emptyParam,emptyParam,
emptyParam,emptyParam,emptyParam,emptyParam,
emptyParam,emptyParam,emptyParam,emptyParam,
LCID);
ExcelApplication1.Visible[lcid]:=true;
---------------------------------------------------------

Conectar con la hoja que quiero
---------------------------------------------------------
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveW orkbook);
ExcelWorksheet1.ConnectTo(ExcelApplication1.Active Sheet as _Worksheet);
---------------------------------------------------------

y luego cojo cualquier string o variant y lo copio a la celda que quiera de
la siguiente forma:
----------------------------------------------------------
ExcelWorksheet1.Cells.Item[6,8].value:='HOLA';
-----------------------------------------------------------

y por último desconecto:
----------------------------------------------------------
ExcelWorksheet1.Disconnect;
ExcelWorkbook1.Disconnect;
ExcelApplication1.Disconnect;
----------------------------------------------------------

pues nada eso es todo, así que para copiar un grid, lo voy recorriendo celda
a celda incluidos los nombres de las
columnas y listo.

Espero que te sirva de ayuda, un Saludo

Carlos

"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:2p5dbeFgli5rU1***uni-berlin.de...
> Hola a todos...
>
> Tengo una pequeña pega con la exportación a Excel... He conseguido desde
un
> grid copiar su contenido en el portapapeles, pero a la hora de pegar dicho
> contenido en una hoja de excel no sé cómo hacerlo (Abro excel, pero no sé
> como indicarle via OLE que efectue la operación de pegar en la celda
> (0,0)...)
>
> Si manualmente desde Excel pulso el botón derecho del ratón y le doy a
> pegar, funciona bien...
>
> Uso Delphi7 prof.
>
> Alguien tiene alguna sugerencia ?
>
> Xavier
>
>

Hola,

Yo para copiar un grid y pegarlo en un archivo excel, lo hago sin usar el
portapapeles,
usando los componentes
TexcelApplication, TExcelWorkBook, TExcelWorkSheet

mediante ellos habro Excel y el libro y la hoja que quiero:

Abrir Excel
-----------------------------------------------------------
ExcelApplication1.Workbooks.Open(nombrefichero,
emptyParam,emptyParam,emptyParam,emptyParam,
emptyParam,emptyParam,emptyParam,emptyParam,
emptyParam,emptyParam,emptyParam,emptyParam,
LCID);
ExcelApplication1.Visible[lcid]:=true;
---------------------------------------------------------

Conectar con la hoja que quiero
---------------------------------------------------------
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveW orkbook);
ExcelWorksheet1.ConnectTo(ExcelApplication1.Active Sheet as _Worksheet);
---------------------------------------------------------

y luego cojo cualquier string o variant y lo copio a la celda que quiera de
la siguiente forma:
----------------------------------------------------------
ExcelWorksheet1.Cells.Item[6,8].value:='HOLA';
-----------------------------------------------------------

y por último desconecto:
----------------------------------------------------------
ExcelWorksheet1.Disconnect;
ExcelWorkbook1.Disconnect;
ExcelApplication1.Disconnect;
----------------------------------------------------------

pues nada eso es todo, así que para copiar un grid, lo voy recorriendo celda
a celda incluidos los nombres de las
columnas y listo.

Espero que te sirva de ayuda, un Saludo

Carlos

"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:2p5dbeFgli5rU1***uni-berlin.de...
> Hola a todos...
>
> Tengo una pequeña pega con la exportación a Excel... He conseguido desde
un
> grid copiar su contenido en el portapapeles, pero a la hora de pegar dicho
> contenido en una hoja de excel no sé cómo hacerlo (Abro excel, pero no sé
> como indicarle via OLE que efectue la operación de pegar en la celda
> (0,0)...)
>
> Si manualmente desde Excel pulso el botón derecho del ratón y le doy a
> pegar, funciona bien...
>
> Uso Delphi7 prof.
>
> Alguien tiene alguna sugerencia ?
>
> Xavier
>
>