MFC将ListControl中的数据导出到Excel

导出Excel的第一种方法用的是:

 Excel::_ApplicationPtr ptrExcelApp;
 Excel::_WorkbookPtr ptrBook;
 Excel::_WorksheetPtr ptrSheet;
 Excel::RangePtr ptrRange; 

#import "C:\\Program Files\\Common Files\\Microsoft Shared\\OFFICE11\\MSO.DLL" rename( "RGB", "MSORGB" )
    using namespace Office;
    #pragma warning(disable : 4192)
    #import "C:\\Program Files\\Common Files\\Microsoft Shared\\VBA\\VBA6\\VBE6EXT.OLB"
    #import "D:\\Program Files\\Microsoft Office\\OFFICE11\\EXCEL.EXE" \
    rename( "DialogBox", "ExcelDialogBox" ) \
    rename( "RGB", "ExcelRGB" ) \
    rename( "CopyFile", "ExcelCopyFile" ) \
    rename( "ReplaceText", "ExcelReplaceText" )

void CRecordView::OnFileExport()
{
    TCHAR szFilter[] = { _T("Excel文件 (*.xls)|*.xls|所有文件 (*.*)|*.*||") };
    CFileDialog SaveDialog(FALSE, NULL, NULL, OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT,    szFilter);
    if (SaveDialog.DoModal() == IDOK)
    {
        _variant_t varOption((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
        CWaitCursor wait;
        try
        {
            Excel::_ApplicationPtr pExcelApp(_T("Excel.Application"));
            Excel::_WorkbookPtr pBook = pExcelApp->Workbooks->Add(varOption);
            Excel::_WorksheetPtr pSheet = pBook->ActiveSheet;
            //Excel::RangePtr pRange = pSheet->GetRange(_T("A1"), _T("D1"));
            Excel::RangePtr pRange = pSheet->Cells;
   
            CHeaderCtrl* pHeader = m_wndList.GetHeaderCtrl();
            int nColumn = pHeader->GetItemCount();
            { 
                TCHAR szText[40] = { 0 };
                HDITEM hdi = { 0 };
                hdi.mask = HDI_TEXT;
                hdi.pszText = szText;
                hdi.cchTextMax = 40;
                for (int i = 1; i < nColumn; i++)
                {
                    pHeader->GetItem(i, &hdi);
                    pRange->Item[1][i] = hdi.pszText;
                }
                Excel::RangePtr pHeaderRange = pRange->GetRange(variant_t(_T("A1")), variant_t(_T("F1")));
                pHeaderRange->Font->Bold = true;
             }
             for (int i = 0; i < m_wndList.GetItemCount(); i++)
             {
                 for (int j = 1; j < nColumn; j++)
                 {
                     pRange->Item[i+2][j] = (LPCTSTR)m_wndList.GetItemText(i, j);
                 }
             }
             pRange = pRange->EntireColumn;
             pRange->AutoFit();
             pBook->Close(true, (LPCTSTR)SaveDialog.GetPathName(), varOption);
             pExcelApp->Quit();
             AfxMessageBox(_T("数据已成功导出到Excel表格中!"), MB_OK | MB_ICONINFORMATION);
        }
        catch (...)
        {
            AfxMessageBox(_T("导出数据错误!"), MB_OK | MB_ICONERROR);
            return;
        }
    }
}

  转载自 : http://www.cppblog.com/wangjs720/archive/2007/09/10/31934.html

导出Excel的第二种方法用的是如下 :

 CApplication app;
 CWorkbook0 book;
 CWorkbooks0 books;
 CWorksheet0 sheet;                                                                                                                                                                           CWorksheets0 sheets;

CRange0 range;

CListCtrl控件导出excel大概步骤如下:

1.首先打开vs2010,建一个项目(ExportExcel),建立完后点击右键,添加--类--MFC--TypeLib中的MFC类,到该页面点添加如下:

MFC将ListControl中的数据导出到Excel_第1张图片

2.点添加完后,注意下,找到相关头文件,注释红色那行

//#import "D:\\Program Files\\Microsoft Office\\OFFICE11\\EXCEL.EXE" no_namespace

// CWorkbook 包装类
class CWorkbook : public COleDispatchDriver
{
public:
 CWorkbook(){} // 调用 COleDispatchDriver 默认构造函数
 CWorkbook(LPDISPATCH pDispatch) : COleDispatchDriver(pDispatch) {}
 CWorkbook(const CWorkbook& dispatchSrc) : COleDispatchDriver(dispatchSrc) {}

3.注释完后,把上面添加的类的头文件加到你要实现导出excel功能的类中,如下:
#include "CApplication.h"
#include "CRange.h"
#include "CWorkbooks.h"
#include "CWorksheets.h"
#include "CWorkbook.h"
#include "CWorksheet.h"

4.实现主要代码如下:

//导出
void Cimportexcel2Dlg::OnBnClickedButton1()
{
    CFileDialog FileDialog(FALSE,L"xls",NULL,OFN_HIDEREADONLY|OFN_OVERWRITEPROMPT,
                           _T("Microsoft Excel 2000(*.xls)|*.xls|所有文件(*.*)"),this); 
    if(FileDialog.DoModal()!=IDOK)
        return; 
    CString cStrFile=FileDialog.GetPathName(); //选择保存路径名称
    if(::PathFileExists(cStrFile))
    DeleteFile(cStrFile);
    //CString cStrFile = _T("E:\\myexcel.xls");
    COleVariant covTrue((short)TRUE),covFalse((short)FALSE),covOptional((long)
    DISP_E_PARAMNOTFOUND,VT_ERROR);

    CApplication app;    //Excel程序
    CWorkbooks books;    //工作簿集合
    CWorkbook book;      //工作表
    CWorksheets sheets;  //工作簿集合
    CWorksheet sheet;    //工作表集合
    CRange range;        //使用区域
    CoUninitialize();
    book.PrintPreview(_variant_t(false));
    if(CoInitialize(NULL)==S_FALSE) 
    {
        MessageBox(L"初始化COM支持库失败!");
        return;
    }
    if(!app.CreateDispatch(_T("Excel.Application"))); //创建IDispatch接口对象
    {
        MessageBox(_T("Error!"));
    }
    books = app.get_Workbooks();
    book = books.Add(covOptional);
    sheets = book.get_Worksheets();
    sheet = sheets.get_Item(COleVariant((short)1));     //得到第一个工作表
    CHeaderCtrl* pmyHeaderCtrl= m_list.GetHeaderCtrl(); //获取表头
    int m_cols = pmyHeaderCtrl-> GetItemCount();        //获取列数
    int m_rows = m_list.GetItemCount();                 //获取行数
    TCHAR lpBuffer[256];
    //此结构包含关于头控件中的项的信息,此结构已被更新以支持标题项图像和顺序值。
    HDITEM hdi;
    hdi.mask = HDI_TEXT;
    hdi.pszText = lpBuffer;
    hdi.cchTextMax = 256;
    CString colname;
    CString strTemp;
    int iRow,iCol;
    for(iCol=0;iCol < m_cols;iCol++) //将列表的标题头写入EXCEL
    {
        GetCellName(1 ,iCol + 1, colname); //(colname就是对应表格的A1,B1,C1,D1)
        range = sheet.get_Range(COleVariant(colname),COleVariant(colname));
        pmyHeaderCtrl-> GetItem(iCol,&hdi); //获取表头每列的信息
        range.put_Value2(COleVariant(hdi.pszText)); //设置每列的内容
        int nWidth = m_list.GetColumnWidth(iCol)/6;
        //得到第iCol+1列
        range.AttachDispatch(range.get_Item(_variant_t((long)(iCol+1)),vtMissing).pdispVal,true);
        //设置列宽
        range.put_ColumnWidth(_variant_t((long)nWidth));
    }
    range = sheet.get_Range(COleVariant(_T("A1")),COleVariant(colname));
    range.put_RowHeight(_variant_t((long)50)); //设置行的高度
    range.put_VerticalAlignment(COleVariant((short)-4108)); //xlVAlignCenter=-4108 
    COleSafeArray saRet; //COleSafeArray类是用于处理任意类型和维数的数组的类
    DWORD numElements[]={m_rows,m_cols}; //行列写入数组
    saRet.Create(VT_BSTR,2,numElements); //创建所需的数组
    range = sheet.get_Range(COleVariant(_T("A2")),covOptional); //从A2开始
    range = range.get_Resize(COleVariant((short)m_rows),COleVariant((short)m_cols)); //表的区域
    long index[2];  
    //将列表内容写入EXCEL
    for(iRow = 1;iRow <= m_rows;iRow++)
    {
        for(iCol = 1;iCol <= m_cols;iCol++)
        {
            index[0]=iRow-1;
            index[1]=iCol-1;
            CString szTemp;
            szTemp=m_list.GetItemText(iRow-1,iCol-1); //取得m_list控件中的内容
            BSTR bstr = szTemp.AllocSysString(); //AlLogyString方法分配一个自动化兼容的新BSTR字符串。
            saRet.PutElement(index,bstr); //把m_list控件中的内容放入saRet
            SysFreeString(bstr);
        }
    }
    range.put_Value2(COleVariant(saRet)); //将得到的数据的saRet数组值放入表格
    book.SaveCopyAs(COleVariant(cStrFile)); //保存到cStrFile文件
    book.put_Saved(true);
    books.Close();

    book.ReleaseDispatch();
    books.ReleaseDispatch(); 

    app.ReleaseDispatch();
    app.Quit();
}

5.添加完,代码编译会出现错误,修改:双击提示,在DialogBox()前加下划线,就可以了

6.重新编译,OK

转载自 : https://blog.csdn.net/qrx2013/article/details/12749333

转载一下下面的链接,感觉文章写的类似,代码比较全,但是注释没有上面的详细.

转载 :   https://blog.csdn.net/limingmcu/article/details/38058507

 

 

 

 

 

 

 

 

 

 

你可能感兴趣的:(♬,--,C\C++)