Exportar a Excel cursor con campos memo

[IRCSA Software y Hardware]

Hola foro,

Export To y Copy To no exportan/copian los campos tipo memo, tengo un cursor con dos campos memo que quiero exportar a excel, cómo le puedo hacer ??

Gracias, saludos.

--
Arturo Ramos

www.ircsasoftware.com.mx

Cancún, México

[Walter R. Ojeda Valiente]

Hola Arturo

Con automatización Excel.

Creas un objeto que sea una planilla Excel y luego colocas valores en las celdas que desees.

Saludos.

Walter.

---

Date: Tue, 26 Apr 2011 19:56:18 -0500
Subject: [vfp] Exportar a Excel cursor con campos memo
From: irc...@gmail.com
To: publice...@googlegroups.com

[IRCSA Software y Hardware]

Gracias Walter, creo que no me va a quedar alternativa... ya me distraje con lo que mandaste de Firebird... jaja

[IRCSA Software y Hardware]

Gracias Allan lo requiero en excel pero seguro que tu rutina me servirá...

Saludos.

El 26 de abril de 2011 20:16, Allan Raúl Acuña <allan...@hotmail.com> escribió:

Estimado amigo 

Yo en lo particular exporto todo a txt, asi me evito el excel. Si te sirve te paso

una rutina que lo hace, incluyendo los MEMOS.

le paso 2 parametros:

cur2txt("cursor", "ruta archivo")

De antemano le agradezco por su amable atención.

Atentamente;

Lic. Allan R. Acuña
Desarrollador Independiente
msn= allan...@hotmail.com
skype= niceasysoft
+(505) 8 831 8191
www.NicEasySoft.com

---

From: wr...@hotmail.com
To: publice...@googlegroups.com
Subject: RE: [vfp] Exportar a Excel cursor con campos memo
Date: Wed, 27 Apr 2011 00:59:59 +0000

[Allan Raúl Acuña]

Me ha servido por muchos años para crear archivos txt temporales de las personas que hacen rendiciones de gastos y facturacion.

Asi si se me cae el servidor si antes haber guardado todo esta en temporales que luego se levantan

De antemano le agradezco por su amable atención.

Atentamente;

Lic. Allan R. Acuña
Desarrollador Independiente
msn= allan...@hotmail.com
skype= niceasysoft
+(505) 8 831 8191
www.NicEasySoft.com

---

Date: Tue, 26 Apr 2011 20:22:43 -0500
Subject: Re: [vfp] Exportar a Excel cursor con campos memo

[IRCSA Software y Hardware]

El detalle es que tengo un comando que crea una consulta dinámica que puede tener uno o varios campos según el criterio del usuario, se crea un cursor y luego este cursor se puede exportar a excel, siempre lo he hecho con COPY TO pero en este caso el resultado puede incluir uno o dos campos tipo MEMO... una solución temporal que encontré es esta que les comparto:

* - Creo el cursor con un campo adicional tipo caracter

SELECT campoMemo, SPACE(250) as campoTexto INTO CURSOR curTemp READWRITE

* - Copio el contenido del campo memo en el campo caracter

REPLACE campoTexto WITH campoMemo ALL

* - Exporto (no tengo que especificar los campo ya que de cualquier forma los campos memo no se exportan)

COPY TO archivoExcel.xls TYPE XL5

Si bien quizá no es lo más adecuado funciona mientras...

Saludos

[alceu11]

****************************Codigo ctrl+F2 la pantala foxpro
close database all
SET SAFETY OFF && Gero o Cursor TEst e insero 10 registros
Create Cursor test (registro c(4), desenho c(4), nomes c(15),mField m)
m.mField = '1234567' + Chr(13) + 'Erik Gomez' + Chr(13)+'Memo to
Excel'
FOR i = 1 TO 10
Insert Into test values(STR(i,4),STR(i,4),'Firma '+STR(i,4), m.mField)
NEXT
SELECT registro,desenho,Nomes, Left(RTRIM(mfield),120) as OBS FROM
test INTO CURSOR auxcli
*** BROWSE normal && Gerei o cursor auxcli ,,,,,,para pegar obs.
m.contador=1
WAIT WINDOW 'Gerando Planilha e Abrindo o Exce l' NOWAIT
tmpsheet = GETOBJECT('','excel.sheet')
xlapp = tmpsheet.APPLICATION

xlapp.VISIBLE = .T.
xlapp.workbooks.ADD()
xlsheet = xlapp.activesheet
***nome das celulas
xlsheet.cells(1,1).VALUE = "Registro"
xlsheet.cells(1,2).VALUE = "Desenho"
xlsheet.cells(1,3).VALUE = "Clientes"
xlsheet.cells(1,4).VALUE = "OBS"

SCAN
xlsheet.cells(M.contador+1,1).VALUE=auxcli.registro
xlsheet.cells(M.contador+1,2).VALUE=auxcli.desenho
xlsheet.cells(M.contador+1,3).VALUE=auxcli.nomes
xlsheet.cells(M.contador+1,4).VALUE=auxcli.obs
m.contador=M.contador+1
ENDSCAN

WAIT WINDOW 'Veja la Barra de Tarefas Windows pasta2 aberta excel'
TIMEOUT 2

WAIT CLEAR
***************************
Saludos
Alceu

[Luis Maria Guayan]

Por defecto EXPORT TO y COPY TO no incluyen los campos memos, para que los incluya debes agregar la cláusula FIELDS con la lista de todos los campos que deseas copiar.

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[IRCSA Software y Hardware]

Hola,

En la ayuda de COPY TO dice...

FIELDS FieldList 

Especifica qué campos se copiarán al nuevo archivo. Si omite FIELDS FieldList, todos los campos se copiarán al archivo. Si el archivo que está creando no es una tabla, los campos memo no se copiarán al nuevo archivo, incluso aunque en la lista de campos haya incluido nombres de campo memo. 

Y en la de EXPORT TO dice...

FIELDS FieldList 

Especifica qué campos se copiarán al nuevo archivo. Si omite la cláusula FIELDS, se copiarán todos los campos al nuevo archivo. Los campos de tipo Memo y General no se copian al nuevo archivo aunque sus nombres estén incluidos en la lista de campos. 

Saludos.

[Allan Raúl Acuña]

Estimado amigo 

Yo en lo particular exporto todo a txt, asi me evito el excel. Si te sirve te paso

una rutina que lo hace, incluyendo los MEMOS.

le paso 2 parametros:

cur2txt("cursor", "ruta archivo")

De antemano le agradezco por su amable atención.

Atentamente;

Lic. Allan R. Acuña
Desarrollador Independiente
msn= allan...@hotmail.com
skype= niceasysoft
+(505) 8 831 8191
www.NicEasySoft.com

---

From: wr...@hotmail.com
To: publice...@googlegroups.com
Subject: RE: [vfp] Exportar a Excel cursor con campos memo
Date: Wed, 27 Apr 2011 00:59:59 +0000

[HDA HDA54]

Estimado Arturo :

Un caso parecido a este lo resolvi de la siguiente manera; como la tabla en cuestión tenía varios campos memo y como dicha tabla era pura y exclusivamente  para análisis  del departamento de contabilidad de la empresa y como sabemos que los contadores solo se defienden con excel la cuestión fue resuelta asi .

Usando SQL . Arme un cursor  MEMO as Left(memo,x) donde x es la cantidad de caracteres que queres mostrar. me resulto práctico.

Saludos