请问VS 2015 C++可以用什么做报表?

Question

做B/S项目做吐了,但vs自带的报表只支持C#?我不想再用C#了,我要用C++的话能推荐哪些?要有word和excel导出功能.

Answer 1

单纯使用C++来处理Office文档并不是一个明智的选择。如果非要用C++的话，请参考如下代码：

m_ListCtrl.SetExtendedStyle(LVS_REPORT | LVS_EX_FULLROWSELECT);

CApplication ExcelApp;
CWorkbooks books;
CWorkbook book;
CWorksheets sheets;
CWorksheet sheet;
CRange range;
LPDISPATCH lpDisp = NULL;

//创建Excel 服务器(启动Excel)
if(!ExcelApp.CreateDispatch(_T("Excel.Application"),NULL))
{
    AfxMessageBox(_T("启动Excel服务器失败!"));
    return -1;
}

/*判断当前Excel的版本*/
CString strExcelVersion = ExcelApp.get_Version();
int iStart = 0;
strExcelVersion = strExcelVersion.Tokenize(_T("."), iStart);
if (_T("11") == strExcelVersion)
{
    AfxMessageBox(_T("当前Excel的版本是2003。"));
}
else if (_T("12") == strExcelVersion)
{
    AfxMessageBox(_T("当前Excel的版本是2007。"));
}
else
{
    AfxMessageBox(_T("当前Excel的版本是其他版本。"));
}

ExcelApp.put_Visible(TRUE);
ExcelApp.put_UserControl(FALSE);

/*得到工作簿容器*/
books.AttachDispatch(ExcelApp.get_Workbooks());

/*打开一个工作簿，如不存在，则新增一个工作簿*/
CString strBookPath = _T("C:\\tmp.xls");
try
{
    /*打开一个工作簿*/
    lpDisp = books.Open(strBookPath, 
        vtMissing, vtMissing, vtMissing, vtMissing, vtMissing,
        vtMissing, vtMissing, vtMissing, vtMissing, vtMissing, 
        vtMissing, vtMissing, vtMissing, vtMissing);
    book.AttachDispatch(lpDisp);
}
catch(...)
{
    /*增加一个新的工作簿*/
    lpDisp = books.Add(vtMissing);
    book.AttachDispatch(lpDisp);
}


/*得到工作簿中的Sheet的容器*/
sheets.AttachDispatch(book.get_Sheets());

/*打开一个Sheet，如不存在，就新增一个Sheet*/
CString strSheetName = _T("NewSheet");
try
{
    /*打开一个已有的Sheet*/
    lpDisp = sheets.get_Item(_variant_t(strSheetName));
    sheet.AttachDispatch(lpDisp);
}
catch(...)
{
    /*创建一个新的Sheet*/
    lpDisp = sheets.Add(vtMissing, vtMissing, _variant_t((long)1), vtMissing);
    sheet.AttachDispatch(lpDisp);
    sheet.put_Name(strSheetName);
}

system("pause");

/*向Sheet中写入多个单元格,规模为10*10 */
lpDisp = sheet.get_Range(_variant_t("A1"), _variant_t("J10"));
range.AttachDispatch(lpDisp);

VARTYPE vt = VT_I4; /*数组元素的类型，long*/
SAFEARRAYBOUND sabWrite[2]; /*用于定义数组的维数和下标的起始值*/
sabWrite[0].cElements = 10;
sabWrite[0].lLbound = 0;
sabWrite[1].cElements = 10;
sabWrite[1].lLbound = 0;

COleSafeArray olesaWrite;
olesaWrite.Create(vt, sizeof(sabWrite)/sizeof(SAFEARRAYBOUND), sabWrite);

/*通过指向数组的指针来对二维数组的元素进行间接赋值*/
long (*pArray)[2] = NULL;
olesaWrite.AccessData((void **)&pArray);
memset(pArray, 0, sabWrite[0].cElements * sabWrite[1].cElements * sizeof(long));

/*释放指向数组的指针*/
olesaWrite.UnaccessData();
pArray = NULL;

/*对二维数组的元素进行逐个赋值*/
long index[2] = {0, 0};
long lFirstLBound = 0;
long lFirstUBound = 0;
long lSecondLBound = 0;
long lSecondUBound = 0;
olesaWrite.GetLBound(1, &lFirstLBound);
olesaWrite.GetUBound(1, &lFirstUBound);
olesaWrite.GetLBound(2, &lSecondLBound);
olesaWrite.GetUBound(2, &lSecondUBound);
for (long i = lFirstLBound; i <= lFirstUBound; i++)
{
    index[0] = i;
    for (long j = lSecondLBound; j <= lSecondUBound; j++)
    {
        index[1] = j;
        long lElement = i * sabWrite[1].cElements + j; 
        olesaWrite.PutElement(index, &lElement);
    }
}

/*把ColesaWritefeArray变量转换为VARIANT,并写入到Excel表格中*/
VARIANT varWrite = (VARIANT)olesaWrite;
range.put_Value2(varWrite);

system("pause");

/*根据文件的后缀名选择保存文件的格式*/
 CString strSaveAsName = _T("C:\\new.xlsx");
CString strSuffix = strSaveAsName.Mid(strSaveAsName.ReverseFind(_T('.')));
XlFileFormat NewFileFormat = xlOpenXMLWorkbook;
if (0 == strSuffix.CompareNoCase(_T(".xls")))
{
    NewFileFormat = xlExcel8;
}
book.SaveAs(_variant_t(strSaveAsName), _variant_t((long)NewFileFormat), vtMissing, vtMissing, vtMissing, 
    vtMissing, 0, vtMissing, vtMissing, vtMissing, 
    vtMissing, vtMissing);

system("pause");

/*读取Excel表中的多个单元格的值，在listctrl中显示*/
VARIANT varRead = range.get_Value2();
COleSafeArray olesaRead(varRead);

VARIANT varItem;
CString strItem;
lFirstLBound = 0;
lFirstUBound = 0;
lSecondLBound = 0;
lSecondUBound = 0;
olesaRead.GetLBound(1, &lFirstLBound);
olesaRead.GetUBound(1, &lFirstUBound);
olesaRead.GetLBound(2, &lSecondLBound);
olesaRead.GetUBound(2, &lSecondUBound);
memset(index, 0, 2 * sizeof(long));
m_ListCtrl.InsertColumn(0, _T(""), 0, 100);
for (long j = lSecondLBound; j<= lSecondUBound; j++)
{
    CString strColName = _T("");
    strColName.Format(_T("%d"), j);
    m_ListCtrl.InsertColumn(j, strColName, 0, 100);
}
for (long i = lFirstLBound; i <= lFirstUBound; i++)
{
    CString strRowName = _T("");
    strRowName.Format(_T("%d"), i);
    m_ListCtrl.InsertItem(i-1, strRowName);

    index[0] = i;
    for (long j = lSecondLBound; j <= lSecondUBound; j++)
    {
        index[1] = j;
        olesaRead.GetElement(index, &varItem);

        switch (varItem.vt)
        {
        case VT_R8:
            {
                strItem.Format(_T("%d"), (int)varItem.dblVal);
            }

        case VT_BSTR:
            {
                strItem = varItem.bstrVal;
            }

        case VT_I4:
            {
                strItem.Format(_T("%ld"), (int)varItem.lVal);
            }

        default:
            {

            }
        }

        m_ListCtrl.SetItemText(i-1, j, strItem);
    }
}

/*释放资源*/
sheet.ReleaseDispatch();
sheets.ReleaseDispatch();
book.ReleaseDispatch();
books.ReleaseDispatch();
ExcelApp.Quit();
ExcelApp.ReleaseDispatch();