导出数据到excel
s1.Format("Z%d",nn); e2=s1; objRange1=objSheet.GetRange(_variant_t(s1),_variant_t(s1)); s=sa.GetAt(25); objRange1.SetFormulaR1C1(_variant_t(s)); _Application appExcel; Workbooks workBooks; _Workbook workBook; _Worksheet workSheet; Range rangeWork, rangeDel, rangSunday; COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR); if(!appExcel.CreateDispatch(_T("Excel.Application")) ) { this->MessageBox(_T("无法启动Excel,可能并未安装!")); return; } appExcel.SetVisible(TRUE); appExcel.SetUserControl(TRUE); workBooks = appExcel.GetWorkbooks(); workBook = workBooks.Add(test.xls); workSheet = workBook.GetActiveSheet(); rangeWork = workSheet.GetCells();