將 DBGrid 資料匯出至 Word 與 Excel 文件

功能說明

提供兩個函數 DBGrid2Word 與 DBGrid2Excel，利用 OLE 自動化將 TDBGrid 當前顯示的資料 (含欄位標題) 匯出為 Word 文件 (.doc) 或 Excel 試算表 (.xls)。匯出範圍以 DBGrid 可見資料為準，若資料集經過篩選，僅匯出篩選後的結果。

核心邏輯

共同步驟

1. 檢查 DataSet->Active，未開啟則返回。
2. 建立 Word/Excel Application 物件 (Variant::CreateObject)，失敗則提示並返回。
3. 設定應用程式不可見 (Visible = false)。
4. 建立新文件/活頁簿。
5. 依 DBGrid 欄位數與資料筆數 (+1 標題列) 建立表格/設定儲存格範圍。
6. 設定字型、欄寬/列高、標題列底色。
7. 寫入標題 (取自 Columns[i]->FieldName)。
8. 遍歷資料集 (First / Next)，逐欄寫入 AsString。
9. 儲存檔案 (SaveAs)、關閉文件、退出應用程式、釋放 Variant。

Word 特有處理

• 使用 Tables.Add 在文件中插入表格。
• 設定欄寬單位為 wdPreferredWidthPoints (點)。
• 標題列套用灰底陰影 (wdColorGray125)。

Excel 特有處理

• 直接操作 Cells 寫入值。
• 欄寬換算：像素寬度 / 7 (近似字元寬度)。
• 標題列列高 20，資料列 16，背景色 ColorIndex=15 (灰色)、Pattern=xlSolid。

使用範例

DBGrid2Word(DBGrid1, "C:\\ccrun\\123.doc");
DBGrid2Excel(DBGrid1, "C:\\ccrun\\123.xls");

程式碼包含完整錯誤處理 (try/catch) 與訊息提示，可直接複製到專案中使用。