Aus Platzgründen ist nur ein Teil des Quellcodes angegeben, der vollständige Code ist der zugehörigen Zip-Datei beigelegt.
DECLARE -- test_30.sql v_fileHandle utl_file.FILE_TYPE; r_font xml_spreadsheet.t_rec_font; r_customStyles xml_spreadsheet.t_rec_customStyles; tab_customStyles xml_spreadsheet.t_tab_customStyles; BEGIN -- vertical r_customStyles.id := 's50'; r_customStyles.type := 'Text'; r_alignment.vertical := 'Top'; r_customStyles.alignment := r_alignment; tab_customStyles(1) := r_customStyles; ... -- text rotate r_customStyles.id := 's58'; r_alignment.textRotate := 15; r_customStyles.alignment := r_alignment; tab_customStyles(9) := r_customStyles; -- New File v_fileHandle := xml_spreadsheet.createNewFile('DOC','test_20.xml'); -- open first worksheet xml_spreadsheet.newWorksheet( v_fileHandle ,'Alignment' ); -- Write a data row xml_spreadsheet.writeData(v_fileHandle,'Vertical alignment',xml_spreadsheet.c_textBold); xml_spreadsheet.writeData(v_fileHandle,'Top','s50'); xml_spreadsheet.writeData(v_fileHandle,'Bottom','s51'); xml_spreadsheet.writeData(v_fileHandle,'Center','s52'); -- New data row xml_spreadsheet.newDatarow(v_fileHandle); ... xml_spreadsheet.writeData(v_fileHandle,'15°','s58'); xml_spreadsheet.writeData(v_fileHandle,'30°','s59'); ... -- close worksheet xml_spreadsheet.closeWorksheet( v_fileHandle ,0 ); -- Close file xml_spreadsheet.closeFile(v_fileHandle); END; /
Excel | OO-Calc |
---|---|
Bilder zum Vergrößern anklicken |