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]
Nenhum comentário:
Postar um comentário