將 ListView 內容匯出至 Word 與 Excel (更新版)

功能簡介

提供 ListView2Word 與 ListView2Excel 兩個函數，將 TListView (Report 模式) 的所有欄位與項目 (含子項) 匯出為 Word 文件或 Excel 試算表。版本 v0.2 新增標題列匯出。

實作要點

Word 匯出

• 建立 Word Application、文件、表格 (列數 = Items.Count + 1，欄數 = Columns.Count)。
• 設定表格欄寬：參考 ListView 欄寬，乘以 2 單位換算 (點)。
• 寫入標題 (Columns[i]->Caption) 並套用灰底。
• 遍歷 Items：主項寫入第 1 欄，SubItems 依序寫入後續欄位。

Excel 匯出

• 建立 Excel Application、活頁簿、工作表。
• 設定字型、欄寬 (像素 / 2.6)、列高 (標題 20，資料 16)。
• 標題列灰底 (ColorIndex=15、Pattern=xlSolid)。
• 寫入標題與資料，處理 SubItems 同 Word 邏輯。

程式碼結構

兩函數結構高度相似，差異在於 OLE 物件模型操作 (Word 用 Tables/Cell，Excel 用 Cells)。均含錯誤捕獲、進度提示、資源釋放。

呼叫範例

ListView2Word(ListView1, "C:\\ccrun\\234.doc");
ListView2Excel(ListView1, "C:\\ccrun\\234.xls");

適用於需將列表報表匯出為辦公文件的場景，程式碼乾淨、註釋詳細，可直接整合。