Hot Fox: Re: [usuarios_fox] Re: Pueden ayudarme a usar el Append from type xls

sexta-feira, 24 de fevereiro de 2012

Re: [usuarios_fox] Re: Pueden ayudarme a usar el Append from type xls

Demetrio buenas tardes, hasta donde se el excel 2007 no te permite exportar
a dbf, algo que era muy sencillo en el excel 2003, en esa versión generabas
los datos en columnas, ponías en nombre del campo como primer registro de
la tabla, marcabas el rango y lo guardabas como un archivo dbf 4 y listo,
pero el 2007 no lo permite.

Julio.

(Embedded image moved to file: pic04664.gif)

Jose Alfonso
Morquecho Paniagua Para: usuarios_fox@yahoogrupos.com.mx
<jamorquecho@yahoo.c cc:
om> Asunto: Re: [usuarios_fox] Re: Pueden ayudarme a usar el Append from type xls
Enviado por:
usuarios_fox@yahoogr
upos.com.mx

24/02/2012 03:30
p.m.
Por favor, responda
a usuarios_fox

Hola Demetrio, mira tu puedes hacerlo desde ambos programas,
osea desde vfox pues siento que es sencillo, desde excell en cualquier
version a partir de la 97 igual se puede.

En este caso lo que yo he hecho es hacer un servicio COM+ con el
vfox, ese se llama desde excell y te hace todo el trabajo, aunque si
requiere mas programacion.

Ah y perdona por no haberte respondido antes por lo del append from,
creo que ya lo resolviste pero si tienes otra duda con gusto lo checo.

Saludos Cordiales

Josè Alfonso

--- El jue 23-feb-12, Demetrio Arias <artesisa@yahoo.com> escribió:

De: Demetrio Arias <artesisa@yahoo.com>
Asunto: Re: [usuarios_fox] Re: Pueden ayudarme a usar el Append from type
xls
A: "usuarios_fox@yahoogrupos.com.mx" <usuarios_fox@yahoogrupos.com.mx>
Fecha: jueves, 23 de febrero de 2012, 11:19

Hola!
Gracias por tú cooperación, soy de República Dominicana.
Esta fuente trabaja excelente, pero lo que yo quiero es el caso alrevez,
que desde un Archivo Excel 2007, llevar los datos a una Tabla de Foxpro
Versión 6.0

Si puede seguier ayudandome te lo agradesco.

Muchas Gracias,

D. Arias.

________________________________
De: Alceu <alceu11@yahoo.com.br>
Para: usuarios_fox@yahoogrupos.com.mx
Enviado: Jueves, febrero 23, 2012 6:44 A.M.
Asunto: [usuarios_fox] Re: Pueden ayudarme a usar el Append from type xls

Hola
Soy del Brazil
Saludos
**- Aki uno exemplo
CLOSE DATABASES
IF !FILE('CLIENTE.DBF')
CREATE TABLE CLIENTE (NUMERO N(4,0),NOME_CLI C(30), ENDERECO C(40), BAIRRO
C(20), CIDADE C(30), UF C(2))
SELECT CLIENTE
INDEX on nome_cli TAG cliente
set orde to cliente
FOR I=1 TO 20
INSERT INTO CLIENTE (NUMERO,noME_CLI,ENDERECO) VALUES (I,"CLIENTE "+STR(I),
'RUA ')
ENDFOR
ENDIF
IF !USED("CLIENTE")
USE CLIENTE IN 0 ALIAS CLIENTE SHARED
ENDIF
SELECT CLIENTE

xFinal = RECCOUNT("cliente")
xInicio = 1
WAIT windows "Aguarde, abrindo o excel e montando a Planilia..." NOWAIT
NOCLEAR
Oexcel=createobject("Excel.application")
Oexcel.workbooks.add
Oexcel.visible=.t.
x = 1
SELECT cliente
GO TOP
DO WHILE x <= xFinal
IF X = 1
Oexcel.cells(x,1).font.size=10
Oexcel.cells(x,1).font.color=rgb(180,0,0)
Oexcel.cells(x,1).font.bold=.t.
OExcel.Range("B1").Value = 500
Oexcel.cells(x,1).value='Tabela de precos' &&xPedidos
ELSE
Oexcel.cells(x,1).font.size=12
Oexcel.cells(x,1).font.color=rgb(0,0,255)
Oexcel.cells(x,1).font.bold=.f.
Oexcel.cells(x,1).value=cliente.NUMERO

Oexcel.cells(x,2).font.size=12
Oexcel.cells(x,2).font.color=rgb(0,0,255)
Oexcel.cells(x,2).font.bold=.f.

Oexcel.cells(x,2).value=cliente.noME_CLI

Oexcel.cells(x,3).font.size=12
Oexcel.cells(x,3).font.color=rgb(0,0,255)
Oexcel.cells(x,3).font.bold=.f.
Oexcel.cells(x,3).value=cliente.endERECO
ENDIF
SELECT cliente
SKIP
x=x+1
ENDDO
WAIT CLEAR

[Se han eliminado los trozos de este mensaje que no contenían texto]

[Se han eliminado los trozos de este mensaje que no contenían texto]

Conozca más sobre SanCor en http://www.sancor.com

Este mensaje y sus adjuntos son confidenciales y para uso exclusivo del destinatario arriba indicado. Quien lo recibiere por error, no tendrá derecho a usarlo o reenviarlo, de cualquier forma. No se garantiza seguridad o exactitud de la información y anexos, o la inexistencia de virus, atentos a la naturaleza abierta de las comunicaciones por Internet. Las opiniones y material del mensaje son responsabilidad del autor y emisor del mismo y no atribuibles al Grupo SanCor Cooperativas Unidas Limitada ni a ninguna de sus Empresas, salvo que ello surgiera fehacientemente del mensaje, y éste proviniera de un funcionario del citado Grupo con facultades para obligarlo y en ejercicio de sus funciones.

[Se han eliminado los trozos de este mensaje que no contenían texto]