如下为操作Excel对象的例子，首先建立示例表，然后建立操作包（package），最后是使用包函数的过程（procedure）。创建一个测试用表：

    -- 销售表（脚本）

   CREATE TABLE IT_SALE_TAB(ITS_ID VARCHAR2(5),ITS_DATE DATE,ITS_TOTAL NUMBER);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’1’,TO_DATE(’2004-01-01’,’YYYY-MM-DD’),250);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’2’,TO_DATE(’2004-02-01’,’YYYY-MM-DD’),150);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’3’,TO_DATE(’2004-03-01’,’YYYY-MM-DD’),80);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’4’,TO_DATE(’2004-04-01’,’YYYY-MM-DD’),96);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’5’,TO_DATE(’2004-05-01’,’YYYY-MM-DD’),300);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’6’,TO_DATE(’2004-06-01’,’YYYY-MM-DD’),210);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’7’,TO_DATE(’2004-07-01’,’YYYY-MM-DD’),320);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’8’,TO_DATE(’2004-08-01’,’YYYY-MM-DD’),280);

    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’9’,TO_DATE(’2004-09-01’,’YYYY-MM-DD’),276);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’10’,TO_DATE(’2004-10-01’,’YYYY-MM-DD’),368);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’11’,TO_DATE(’2004-11-01’,’YYYY-MM-DD’),163);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’12’,TO_DATE(’2004-12-01’,’YYYY-MM-DD’),305);
    COMMIT;

     操作Excel对象包（Package）。

   CREATE TABLE IT_SALE_TAB(ITS_ID VARCHAR2(5),ITS_DATE DATE,ITS_TOTAL NUMBER);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’1’,TO_DATE(’2004-01-01’,’YYYY-MM-DD’),250);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’2’,TO_DATE(’2004-02-01’,’YYYY-MM-DD’),150);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’3’,TO_DATE(’2004-03-01’,’YYYY-MM-DD’),80);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’4’,TO_DATE(’2004-04-01’,’YYYY-MM-DD’),96);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’5’,TO_DATE(’2004-05-01’,’YYYY-MM-DD’),300);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’6’,TO_DATE(’2004-06-01’,’YYYY-MM-DD’),210);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’7’,TO_DATE(’2004-07-01’,’YYYY-MM-DD’),320);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’8’,TO_DATE(’2004-08-01’,’YYYY-MM-DD’),280);

    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’9’,TO_DATE(’2004-09-01’,’YYYY-MM-DD’),276);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’10’,TO_DATE(’2004-10-01’,’YYYY-MM-DD’),368);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’11’,TO_DATE(’2004-11-01’,’YYYY-MM-DD’),163);
    INSERT INTO IT_SALE_TAB(ITS_ID,ITS_DATE,ITS_TOTAL)
    VALUES(’12’,TO_DATE(’2004-12-01’,’YYYY-MM-DD’),305);
    COMMIT;

    数据包体内容（PACKAGE BODY）

    CREATE OR REPLACE PACKAGE BODY oraExcel IS
    FUNCTION CreateExcelWorkSheet(servername VARCHAR2) RETURN BINARY_INTEGER IS
    BEGIN
    -- 创建Excel对象 
    i:=ordcom.CreateObject(’Excel.Application’, 0, servername,applicationToken);
    IF (i!=0) THEN -- 创建失败,提示返回的错误信息 
    ordcom.GetLastError(err_src, err_desc, err_hpf, err_hpID);
    raise_application_error(-20000,err_src || err_desc || err_hpf || err_hpID);
    END IF;
    -- 通过程序对象句柄获取工作簿句柄 
    i:=ordcom.GetProperty(applicationToken, ’WorkBooks’, 0, WorkBooksToken);
    ordcom.InitArg();
    ordcom.SetArg(-4167,’I4’);
    i:=ordcom.Invoke(WorkBooksToken, ’Add’, 1, WorkBookToken);
    ordcom.InitArg();
    ordcom.SetArg(’Sheet 1’,’BSTR’);