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

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

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

要实现该演示功能：

1． 安装好EXCEL；

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

3． 主要的程序单元如下：

4.:invd21.dh为块中的一field

DECLARE

AppID PLS_integer;

ConvIDPLS_INTEGER;

servervarchar2(100);

BEGIN

server := 'c:\PRogra~1\micros~1\Office';

begin

AppID := DDE.App_Begin(server'\excel.exe 'current_form_path'book161.xls',DDE.App_Mode_Maximized);

exception when others then

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

raise form_trigger_failure;

end;

DDE.App_Focus(AppID);

ConvID := DDE.Initiate('EXCEL', current_form_path'book161.xls');

begin

DDE.Poke(ConvID, 'R1C8', :invd21.dh, DDE.CF_TEXT,9000);

exception when others then null;

end;

DDE.Terminate(ConvID);

END;