怎样在FORM中使用程序实现与EXCEL的通讯

在之前有提供一些生成文本文件的FORM例子但用户往往是再用EXCEL等工具去进行编辑现提供一直接可以从FROM中生成EXCEL文件的事例

现提供一简单实例说明怎样使用FORM实现与EXCEL的应用程序的DDE

要实现该演示功能

． 安装好EXCEL

． 按照程序中的路经说明建立一个相应的XLS文件

． 主要的程序单元如下

:invddh为块中的一field

DECLARE

AppID PLS_integer;

ConvIDPLS_INTEGER;

servervarchar();

BEGIN

server := c:\progra~\micros~\office;

begin

AppID := DDEApp_Begin(server||\excelexe ||current_form_path||bookxlsDDEApp_Mode_Maximized);

exception when others then

message(Can not Find Your Office Path Please Try Again);

raise form_trigger_failure;

end;

DDEApp_Focus(AppID);

ConvID := DDEInitiate(EXCEL current_form_path||bookxls);

begin

DDEPoke(ConvID RC :invddh DDECF_TEXT);

exception when others then null;

end;

DDETerminate(ConvID);

END;