Oracle P/L SQL生成XML格式的Excel内容

--Oracle生成XML格式的Excel内容 Package UTL_Excel as Function f_OpenExcel( as_FontName in VarChar2 Default 'Arial', ai_TitleFontSize in Number Default 18, ai_SubjectFontSize in Number Default 10, ai_BodyFontSize in Number Default 10, ai_Borders in Number Default 1, as_StyleSet in VarChar2 Default 'snid', as_FrontColor in VarChar2 Default '#0000FF', as_BackColor in VarChar2 Default '#C0C0C0' )Return Clob; Function f_CloseExcel( ac_XLSBody in Clob )Return Clob; Function f_OpenWorkSheet( as_WorkSheetName in VarChar2 Default 'Sheet1', as_SheetWidths in VarChar2 Default Null, --每列宽带 ai_RowCount in Number Default 200 --总的Excel行数 )Return VarChar2; Function f_CloseWorkSheet Return VarChar2; Function f_OpenRow( as_Height in VarChar2 Default Null )Return VarChar2; Function f_CloseRow Return VarChar2; --普通字符单元格 Function f_WriteCell( as_BodyText in VarChar2, as_Style in VarChar2 Default Null )Return VarChar2; --带超链接字符单元格 Function f_WriteCellHyperLink( as_BodyText in VarChar2, as_HyperLink in VarChar2, as_Style in VarChar2 Default Null )Return VarChar2; --数值单元格 Function f_WriteCell( an_Num in Number, an_Precision in PLS_Integer Default 0, as_Style in VarChar2 Default Null )Return VarChar2; --日期单元格 Function f_WriteCell( adt_Date in Date, as_Style in VarChar2 Default Null, as_ShowType in VarChar2 Default 'D' )Return VarChar2; Function f_WriteMergeCell( as_BodyText in VarChar2, ai_Merge in PLS_Integer, as_Style in VarChar2 Default Null )Return VarChar2; Procedure p_GetExcel( ac_XLSBody in out Nocopy Clob, as_FileName in VarChar2 ); Procedure p_Save2ExcelFile( as_SubDir in VarChar2, as_FileName in VarChar2, ac_Clob in Clob ); End; --调用例子 /* @C:\...\UTL_Excel.plb; --更改为正确的此打包文件的所在路径 --压缩 Declare lc_ExcelText Clob; ls_ExcelFile VarChar2(40); Begin lc_ExcelText := UTL_Excel.f_OpenExcel(); lc_ExcelText := lc_ExcelText || UTL_Excel.f_OpenWorkSheet( 'Sheetname' ); lc_ExcelText := lc_ExcelText || UTL_Excel.f_OpenRow(); lc_ExcelText := lc_ExcelText || UTL_Excel.f_WriteCell( 'Test1' ); lc_ExcelText := lc_ExcelText || UTL_Excel.f_WriteCell( 'Test2' ); lc_ExcelText := lc_ExcelText || UTL_Excel.f_WriteCell( 1133 ); lc_ExcelText := lc_ExcelText || UTL_Excel.f_CloseRow(); lc_ExcelText := lc_ExcelText || UTL_Excel.f_CloseWorkSheet(); lc_ExcelText := UTL_Excel.f_CloseExcel( lc_ExcelText ); UTL_Excel.p_Save2ExcelFile( 'C:\My_Docs', ls_ExcelFile, lc_ExcelText ); End; / */