Oracle COM 自動化進階：ORDCOM 函數詳解、型別映射與 Excel 物件模型操作實戰

前言

承接上篇環境配置，本文深入解析 Oracle COM 自動化核心套件 ORDCOM 的函數規格、PL/SQL 與 COM Variant 型別對應表，並以 Excel 物件模型為例，詳細拆解從 Application 到 Range 到 Font 的層層物件導航與屬性/方法呼叫實作細節。

一、ORDCOM 核心函數完整規格

二、PL/SQL ↔ COM Variant 型別對應表

三、監聽器額外參數（生產環境建議）

STARTUP_WAIT_TIME_LISTENER = 0
CONNECT_TIMEOUT_LISTENER = 10
TRACE_LEVEL_LISTENER = OFF
PASSWORDS_LISTENER = (Oracle)

設定後需重啟監聽器生效。

四、Excel 物件模型操作實戰：層層導航

目標操作對應 COM 呼叫鏈

VBA 寫法：Range("A1").Font.Size = 20

ORDCOM 需拆解為：

1. 取得 Application 物件控制代碼 (CreateObject('Excel.Application'))
2. 取得 Workbook 物件 (Workbooks.Add 或 Workbooks.Open)
3. 取得 Worksheet 物件 (ActiveSheet 或 Sheets(1))
4. 取得 Range 物件 (Range("A1") 或 Cells(1,1))
5. 取得 Font 物件 (Range.Font)
6. 設定 Size 屬性 (Font.Size = 20)

完整 PL/SQL 範例：建立報表並設定格式

DECLARE
  h_app     BINARY_INTEGER;
  h_wb      BINARY_INTEGER;
  h_ws      BINARY_INTEGER;
  h_range   BINARY_INTEGER;
  h_font    BINARY_INTEGER;
  h_token   BINARY_INTEGER;
  v_status  BINARY_INTEGER;
BEGIN
  -- 1. 建立 Excel
  v_status := ORDCOM.CreateObject('Excel.Application', 0, NULL, h_app);
  IF v_status != 0 THEN RAISE_APPLICATION_ERROR(-20001, 'Create Excel failed: '||ORDCOM.GetLastError); END IF;

  -- 2. 不顯示視窗
  v_status := ORDCOM.SetProperty(h_app, 'Visible', 0, FALSE);

  -- 3. 新增活頁簿
  ORDCOM.InitArg;
  v_status := ORDCOM.Invoke(h_app, 'Workbooks.Add', h_token);
  v_status := ORDCOM.GetArg(h_token, 1, h_wb);

  -- 4. 取得工作表
  v_status := ORDCOM.GetProperty(h_wb, 'ActiveSheet', h_ws);

  -- 5. 寫入標題 A1:C1
  v_status := ORDCOM.GetProperty(h_ws, 'Range("A1:C1")', h_range);
  v_status := ORDCOM.SetProperty(h_range, 'Value', 0, '部門,員工數,平均薪資');
  
  -- 6. 設定標題字型
  v_status := ORDCOM.GetProperty(h_range, 'Font', h_font);
  v_status := ORDCOM.SetProperty(h_font, 'Bold', 0, TRUE);
  v_status := ORDCOM.SetProperty(h_font, 'Size', 0, 14);
  v_status := ORDCOM.SetProperty(h_font, 'Color', 0, 0xFFFFFF); -- 白字
  
  -- 7. 設定儲存格底色
  v_status := ORDCOM.GetProperty(h_range, 'Interior', h_font); -- 復用變數
  v_status := ORDCOM.SetProperty(h_font, 'Color', 0, 0x003366); -- 深藍底

  -- 8. 自動調整欄寬
  v_status := ORDCOM.Invoke(h_range, 'EntireColumn.AutoFit', h_token);

  -- 9. 寫入資料列 (示意：第 2 列)
  v_status := ORDCOM.GetProperty(h_ws, 'Range("A2:C2")', h_range);
  v_status := ORDCOM.SetProperty(h_range, 'Value', 0, 'IT,25,85000');

  -- 10. 儲存
  ORDCOM.InitArg;
  v_status := ORDCOM.SetArg(h_token, 1, 'D:\reports\dept_summary.xls', 'BSTR');
  v_status := ORDCOM.Invoke(h_wb, 'SaveAs', h_token);

  -- 11. 關閉 Excel
  v_status := ORDCOM.Invoke(h_app, 'Quit', h_token);

  -- 12. 釋放所有控制代碼
  ORDCOM.DestroyObject(h_app);
  -- 實務上建議依序釋放 h_range, h_font, h_ws, h_wb, h_app

  DBMS_OUTPUT.PUT_LINE('Excel 報表產生完成');
EXCEPTION
  WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE('錯誤: ' || ORDCOM.GetLastError);
    -- 確保釋放資源
    BEGIN ORDCOM.DestroyObject(h_app); EXCEPTION WHEN OTHERS THEN NULL; END;
    RAISE;
END;

五、Excel 物件瀏覽器使用技巧

1. Excel → 工具 → 巨集 → Visual Basic 編輯器 (Alt+F11)
2. 編輯器 → 檢視 → 物件瀏覽器 (F2)
3. 下拉式清單選 Excel 程式庫
4. 搜尋類別：Application、Workbook、Worksheet、Range、Font、Interior、Borders
5. 查看屬性 (圖示: 手持書本) 與方法 (圖示: 綠色飛箭)

六、常見錯誤代碼與排查

七、效能與架構建議

• 批次操作：陣列寫入 Range.Value = VariantArray 比逐儲存格快 100 倍
• 無介面替代：考慮 Python + openpyxl 透過外部程序，或 Apache POI Java Stored Procedure
• 資源隔離：專用資料庫實例/伺服器跑報表，避免影響核心 OLTP
• 監控告警：監控 extproc 進程數、Excel 殘留進程、磁碟空間

結語

ORDCOM 提供了完整的 COM 自動化能力，但每一層物件導航都需顯式呼叫，程式碼冗長且易錯。掌握 CreateObject → GetProperty/Invoke → SetProperty → DestroyObject 的標準模式，善用物件瀏覽器驗證物件模型，並建立可重用的 PL/SQL 封裝套件（如 PKG_EXCEL_REPORT），可將複雜度封裝在資料庫內部。長遠規劃上，建議將格式化報表產出下沉至應用層或微服務，資料庫專注於高效能資料集準備。