VClistcontrol控件数据导出到excel.docVIP

VC list control控件数据导出到excel List control控件数据导出到excel，可采用下面的自定义导出函数. int ExportToExcel CListCtrl *listctrl, CString sheetname try _Application excelapp; Workbooks books; _Workbook book; Worksheets sheets; _Worksheet sheet; Range usedRange; Range range; LPDISPATCH lpDisp; COleVariant vResult; COleVariant covTrue short TRUE , covFalse short FALSE , covOptional long DISP_E_PARAMNOTFOUND,VT_ERROR ; //初始化ole控件 if !AfxOleInit return FALSE; //启动excel程序 if !excelapp.CreateDispatch Excel.Application excelapp.ReleaseDispatch ; return 1; //创建单个工作表，并重命名为sheetname books excelapp.GetWorkbooks ; book books.Add covTrue ; sheets book.GetWorksheets ; // while sheets.GetCount ! 1 // // sheet sheets.GetItem COleVariant short 1 ; // sheet.Delete ; // sheet book.GetActiveSheet ; sheet.SetName sheetname ; range sheet.GetCells ; //导出控制列标题到excel CHeaderCtrl *pHead listctrl- GetHeaderCtrl ; for int i 0;i pHead- GetItemCount ;i++ LVCOLUMN lvc; char text[100]; lvc.mask LVCF_TEXT|LVCF_SUBITEM; lvc.pszText text; lvc.cchTextMax 100; listctrl- GetColumn i,lvc ; range.SetItem COleVariant long 1 , COleVariant long i+1 , COleVariant lvc.pszText ; //导出控制数据到excel for int j 0;j listctrl- GetItemCount ;j++ for i 0;i pHead- GetItemCount ;i++ char tmp[100]; listctrl- GetItemText j,i,tmp,100 ; range.SetItem COleVariant long j+2 , COleVariant long i+1 , COleVariant tmp ; //保存excel到指定位置 excelapp.SetAlertBeforeOverwriting FALSE ; excelapp.SetDisplayAlerts FALSE ; CFileDialog file FALSE,.xls,NULL,OFN_EXTENSIONDIFFERENT, Workbooks files *.xls |*.xls|All Files *.* |*.*|, AfxGetMainWnd ; CString m_filePath; if file.DoModal IDOK m_filePath file.GetPathName ; book.SaveAs COleVariant m_filePath ,covOptional,covOptional, covOptional,covOptional,covOptional,0,covOptional, covOptional,covOptional,covOptional,covOptional ; books.Close ; excelapp.Quit ; excelapp.ReleaseDispatch ; return 0; catch … return -1;