首先給大家介紹一下報表建立模組的組成，如下圖所示

模版檔案。由於筆者設計的報表都是週期性的固定報表，做成模版更適合資料的讀寫操作和圖表的生成，所以將全部的報表歸納整理生成了幾類模版。

模版描述檔案。主要紀錄資料寫在那個行那個列，那個圖表對應什麼型別的資料。它跟隨模版檔案的變更一起變更，時刻與模版檔案保持同步，這樣可以不必修改程式就能夠更改輸出報表的格式。

資料來源描述檔案。主要描述對應檔案的源資料所在的那種資料庫。

接下來給大家介紹一下程式操作

一、插入型別庫

1、在一個已有的MFC工程按Ctrl + W 彈出ClassWizard對話方塊。

2、Add Class.../From a type Library... 在 Office 目錄中，找到你想使用的Excel型別庫。若你安裝的是Offce2000則選擇安裝目錄下的EXCEL9.OLB檔案進行倒入，生成的倒入檔名稱叫做excel9.h和excel9.cpp；若你安裝的時office2003則選擇。選擇安裝目錄下EXCEL.exe進行到入,生成的倒入檔案時excel.h和excel.cpp。兩者的部分介面有所不同。

3、在彈出的對話方塊中選擇要新增的類，具體選那些類要根據實際情況而定。當然你也可以全選

說明：型別庫會給出Excel的全部介面類，可以根據需要挑選自己需要的類，但是一般情況下的EXCEL文的操作都會涉及以下的幾個類:_Application、WorkBooks、_WorkBook、WorkSheets、_WorkSheet、Range。若涉及圖表的操作還會涉及如下的幾個類：ChartObjects、ChartObject、_Chart、Series

二、服務的啟動和關閉

伺服器的啟動

_Workbook excelBook; Worksheets excelSheets; _Application excelApp; BOOL CreateApplication() { if (!excelApp.CreateDispatch("Excel.Application",NULL)) { AfxMessageBox("建立Excel服務失敗!"); return FALSE; } excelApp.SetVisible(FALSE); excelApp.SetDisplayAlerts(FALSE); return TRUE; }

說明：

在此之前要新增CoInitialize(NULL)函式初始化Com介面。

關鍵詞"Excel.Application"是啟動Excel的COM服務的唯一標示。

SetVisible函式表示執行的程序是否可見。

SetDisplayAlerts函式表示是否忽略警告資訊，比如提示“檔案xxx.xls已經存在是否覆蓋？”,若SetDisplayAlerts的引數為FALSE則不出現提示信並預設覆蓋。

服務的關閉

void DestroryApplication() { excelApp.Quit(); excelApp.ReleaseDispatch(); }

三、檔案的開啟與儲存

檔案的開啟

BOOL Open(char* pFileName) { Workbooks excelBooks; excelBooks.AttachDispatch(excelApp.GetWorkbooks()); LPDISPATCH lpDisp = excelBooks.Add(SV(pFileName)); if(lpDisp == NULL) return FALSE; excelBook.AttachDispatch(lpDisp); excelSheets.AttachDispatch(excelBook.GetWorksheets()); return TRUE; }

檔案的儲存

void Save(char* pFile,_Worksheet exceSheet) { exceSheet.SaveAs(pFile,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing, vtMissing,vtMissing,vtMissing); }

說明：

對於檔案的儲存2000版和2003版有所區別，2000版比2003版少了一個引數。

四、操作的退出

上面提到得服務的退出不代表檔案就關閉了,當服務停止後記憶體中依然駐留著一個Excel.exe程序必須殺掉該程序才算完整的退出。實現程式碼如下：

void KillProgram(LPCSTR ExeName) { LPCSTR File; HANDLE hProcessSnap; PROCESSENTRY32 pe32; MODULEENTRY32 me32; if(!ExeName || !ExeName[0]) return; File = strrchr(ExeName, '/'); if(File!=0) ExeName = File + 1; hProcessSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); if(hProcessSnap == (HANDLE)-1) return; memset(&pe32, 0, sizeof(pe32)); pe32.dwSize = sizeof(PROCESSENTRY32); if(Process32First(hProcessSnap, &pe32)) { do { memset(&me32, 0, sizeof(me32)); me32.dwSize = sizeof(me32); File = strrchr(pe32.szExeFile, '/'); File = File ? File+1 : pe32.szExeFile; if(strcmpi(File,ExeName) == 0) EnumWindows((WNDENUMPROC)EnumWinProc, pe32.th32ProcessID); } while(Process32Next(hProcessSnap,&pe32)); } CloseHandle(hProcessSnap); }