怎樣在FORM中使用程序?qū)崿F(xiàn)與EXCEL的通訊

2024-07-21 02:39:25

字體：大中小

供稿：網(wǎng)友

　　在之前有提供一些生成文本文件的FORM例子，但用戶往往是再用Excel等工具去進(jìn)行編輯。現(xiàn)提供一直接可以從FROM中生成EXCEL文件的事例.
　　
　　現(xiàn)提供一簡(jiǎn)單實(shí)例，說(shuō)明怎樣使用FORM實(shí)現(xiàn)與EXCEL的應(yīng)用程序的DDE。
　　
　　要實(shí)現(xiàn)該演示功能：
　　1．　安裝好EXCEL；
　　2．　按照程序中的路經(jīng)說(shuō)明建立一個(gè)相應(yīng)的.XLS文件。
　　3．　主要的程序單元如下：
　　4.:invd21.dh為塊中的一field
　　DECLARE
　　　AppID　　　　 PLS_integer;
　　　ConvID　　　　PLS_INTEGER;
　　　server　　　　varchar2(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;
　　怎樣在FORM中使用程序?qū)崿F(xiàn)與EXCEL的通訊