FoxPro/Visual FoxPro - Programación Fox - DDE - Excel

 
Vista:

Programación Fox - DDE - Excel

Publicado por Leopold CESPEDES Tello (2 intervenciones) el 15/11/2000 00:00:00
Tengo el siguiente programa que no funciona con Excel lo que quisiera si es que hay alguien que por favor me pudiera ayudar a comunicarme con excel y poder enviar datos numericos, para generar graficos estadisticos que estan viculados.
diganme donde me estoy equivocando
=DDESetOption("SAFETY",.F.)
TTNAME="C:\ARCHIV~1\MICROS~2\OFFICE\EXCEL.EXE"
NumCanal = DDEInitiate("EXCEL","SYSTEM")
if Numcanal=-1
! /N7 &TTName
NumCanal = DDEInitiate("EXCEL","SYSTEM")
endif
if NumCanal<>-1
= DDEExecute(NumCanal, ´[App.Maximize]´)
= DDEExecute(Numcanal, "[OPEN(" + Chr(34) + "C:\alctwin\efecdep.xls" + Chr(34) + ")]")
VALOR = DDEPOKE(Numcanal,"R3C2",STR(100))
IF !VALOR
WAIT "No pudo enviar datos" timeout 1 window
ENDIF
*= DDEExecute(NumCanal, ´[App.Minimize]´)
*= DDEExecute(numcanal, "[new(1)]")
*= DDEEXECUTE(Numcanal, ´[FILE.CLOSE(0)]´)
*= DDEEXECUTE(Numcanal, ´[RUN("<MACRONAME>")]") && PARA EJECUTAR UNA MACRO

= DDETerminate(NumCanal)
else
* =WMSGBOX("No se ha podido establecer"+ ;
* CHR(13)+"vinculo con WINWORD","!AVISO!",K_ICONSTOP,K_CONTINUE)
endif
*tenien TTName el Path completo de WINWORD.EXE y Ttversion la version

Si tuvieran programas ejemplo que funcionen en interacción efectiva con excel que me puedieran ayudar se les agradeceria en el alma.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder