Export data from a data block
WEB_SERVER_PREFIX := FND_WEB_CONFIG.GFM_AGENT; MIME_TYPE := NVL (FND_PROFILE.VALUE ('FND_EXPORT_MIME_TYPE'), 'text/tab-separated-values' ); DB_FILE := FND_GFM.FILE_CREATE (CONTENT_TYPE => MIME_TYPE, PROGRAM_NAME => 'export'); V_RECORD_NUM := :SYSTEM.CURSOR_RECORD; GO_BLOCK ('PO_RULE'); FIRST_RECORD LOOP EXIT WHEN SYSTEM.LAST_QUERY = TRUE ; OUTSTRING := 输入你要的数据 FND_GFM.FILE_WRITE_LINE (DB_FILE, OUTPUT_STRING); NEXT_RECORD; END LOOP; GO_RECORD (V_RECORD_NUM); DB_FILE := FND_GFM.FILE_CLOSE (DB_FILE); URL := FND_GFM.CONSTRUCT_DOWNLOAD_URL (WEB_SERVER_PREFIX, DB_FILE, TRUE); FND_UTILITIES.OPEN_URL (URL); 这样就搞定了，我刚开始想的太复杂了。因为我要使用Excle的模版，认为模版要在程序中调用，所以走了很多的弯路。 TO Mypeking : 你随便打开一个form只要有数据列的，你选择文件--〉导出就可以存入excel了。
Oracle标准功能就用这一句代码：app_export.event('EXPORT');
自己写最多再在前面加个:go_block('xxx');
就够了。
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/59792/viewspace-980611/ ，如需转载，请注明出处，否则将追究法律责任。
