FILENAME:='文件名.xls';
FHND:=TEXT_IO.FOPEN(FILENAME,'W');
LINE_BUFF:='<TAB>'||'标题名称';
TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
LINE_BUFF:='列1<TAB>列2';
TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
FOR RD IN TD LOOP
LINE_BUFF:='值1'||'<TAB>'||'值2';
TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
CNT:=CNT+1;
SYNCHRONIZE;
END LOOP;
TEXT_IO.FCLOSE(FHND);
注:<TAB>为按一下键盘上的TAB键。