【MFC/C++操作Excel】Excel篇

MFC操作Excel

下面的操作基于Excel2003

一．初始化操作

1.导入类库

点击查看->建立类向导-> Add Class...From a type Library...-> C:Program FilesMicrosoft OfficeOfficeEXCEL.EXE，接下来就可以看到导入的类excel.h, excel.cpp。

2.初始化COM

找到App的InitInstance()函数，在其中添加 AfxOleInit()函数的调用，如：

if (!AfxOleInit())

{

       AfxMessageBox("注册COM出错!");

       return FALSE;

}

 

二．我自己写的Excel操作类

ExcelOperate.h

#include "atlbase.h"
#include "excel.h"
using namespace myexcel;
class CExcelOperate
{
private:
    myexcel::_Application m_ecApp;
    Workbooks m_ecBooks;
    _Workbook m_ecBook;
    Worksheets m_ecSheets;
    _Worksheet m_ecSheet;
    myexcel::Range m_ecRange;
    VARIANT ret;//保存单元格的值
public:
    CExcelOperate();
    virtual ~CExcelOperate();
public:
    //操作
    //**********************创建新EXCEL*******************************************
    BOOL CreateApp();
    BOOL CreateWorkbooks();                //创建一个新的EXCEL工作簿集合
        BOOL CreateWorkbook();                //创建一个新的EXCEL工作簿
    BOOL CreateWorksheets();                //创建一个新的EXCEL工作表集合
        BOOL CreateWorksheet(short index);                //创建一个新的EXCEL工作表
    BOOL CreateSheet(short index);
    BOOL Create(short index = 1);                         //创建新的EXCEL应用程序并创建一个新工作簿和工作表
        void ShowApp();                        //显示EXCEL文档
        void HideApp();                        //隐藏EXCEL文档
    //**********************打开文档*********************************************
    BOOL OpenWorkbook(CString fileName, short index = 1);
        BOOL Open(CString fileName);        //创建新的EXCEL应用程序并打开一个已经存在的文档。
    BOOL SetActiveWorkbook(short i);    //设置当前激活的文档。

    //**********************保存文档*********************************************
        BOOL SaveWorkbook();                //Excel是以打开形式，保存。
        BOOL SaveWorkbookAs(CString fileName);//Excel以创建形式，保存。
        BOOL CloseWorkbook();
        void CloseApp();
    //**********************读信息********************************
    BOOL GetRangeAndValue(CString begin, CString end);//得到begin到end的Range并将之间的值设置到ret中
    void GetRowsAndCols(long &rows, long &cols);//得到ret的行，列数
    BOOL GetTheValue(int rows, int cols, CString &dest);//返回第rows，cols列的值，注意只返回文本类型的，到dest中
    BOOL SetTextFormat(CString &beginS, CString &endS);//将beginS到endS设置为文本格式(数字的还要用下面的方法再转一次)
    BOOL SetRowToTextFormat(CString &beginS, CString &endS);//将beginS到endS(包括数字类型)设置为文本格式

};

ExcelOperate.cpp

CExcelOperate::CExcelOperate()
{

}

CExcelOperate::~CExcelOperate()
{

}

BOOL CExcelOperate::CreateApp()
{
    //if (FALSE == m_wdApp.CreateDispatch("Word.Application"))
    COleException pe;
    if (!m_ecApp.CreateDispatch(_T("Excel.Application"), &pe))
    {
        AfxMessageBox("Application创建失败，请确保安装了word 2000或以上版本!", MB_OK|MB_ICONWARNING);
        pe.ReportError();
        throw &pe;
        return FALSE;
    }
    return TRUE;
}

BOOL CExcelOperate::CreateWorkbooks()               //创建一个新的EXCEL工作簿集合
{
    if (FALSE == CreateApp())
    {
        return FALSE;
    }
    m_ecBooks = m_ecApp.GetWorkbooks();
    if (!m_ecBooks.m_lpDispatch)
    {
        AfxMessageBox("WorkBooks创建失败!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    return TRUE;
}

BOOL CExcelOperate::CreateWorkbook()               //创建一个新的EXCEL工作簿
{
    if(!m_ecBooks.m_lpDispatch)
    {
        AfxMessageBox("WorkBooks为空!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }

    COleVariant vOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

    m_ecBook = m_ecBooks.Add(vOptional);
    if(!m_ecBook.m_lpDispatch)
    {
        AfxMessageBox("WorkBook为空!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
/*
    //得到document变量
    m_wdDoc = m_wdApp.GetActiveDocument();
    if (!m_wdDoc.m_lpDispatch)
    {
        AfxMessageBox("Document获取失败!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    //得到selection变量
    m_wdSel = m_wdApp.GetSelection();
    if (!m_wdSel.m_lpDispatch)
    {
        AfxMessageBox("Select获取失败!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    //得到Range变量
    m_wdRange = m_wdDoc.Range(vOptional,vOptional);
    if(!m_wdRange.m_lpDispatch)
    {
        AfxMessageBox("Range获取失败!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
*/
    return TRUE;
}

BOOL CExcelOperate::CreateWorksheets()                //创建一个新的EXCEL工作表集合
{
    if(!m_ecBook.m_lpDispatch)
    {
        AfxMessageBox("WorkBook为空!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    m_ecSheets = m_ecBook.GetSheets();
    if(!m_ecSheets.m_lpDispatch)
    {
        AfxMessageBox("WorkSheets为空!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    return TRUE;
}

BOOL CExcelOperate::CreateWorksheet(short index)                //创建一个新的EXCEL工作表
{
    if(!m_ecSheets.m_lpDispatch)
    {
        AfxMessageBox("WorkSheets为空!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    m_ecSheet = m_ecSheets.GetItem(COleVariant(index));
    if(!m_ecSheet.m_lpDispatch)
    {
        AfxMessageBox("WorkSheet为空!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    return TRUE;
}

BOOL CExcelOperate::CreateSheet(short index)
{
    if(CreateWorksheets() == FALSE)
    {
            return FALSE;
    }
    if(CreateWorksheet(index) == FALSE)
    {
            return FALSE;
    }
    return TRUE;
}

BOOL CExcelOperate::Create(short index)                        //创建新的EXCEL应用程序并创建一个新工作簿和工作表
{
    if(CreateWorkbooks() == FALSE)
    {
        return FALSE;
    }
    if(CreateWorkbook() == FALSE)
    {
        return FALSE;
    }
    if(CreateSheet(index) == FALSE)
    {
        return FALSE;
    }
    return TRUE;
}

void CExcelOperate::ShowApp()                        //显示WORD文档
{
    m_ecApp.SetVisible(TRUE);
}

void CExcelOperate::HideApp()                       //隐藏word文档
{
    m_ecApp.SetVisible(FALSE);
}

//**********************打开文档*********************************************
BOOL CExcelOperate::OpenWorkbook(CString fileName, short index)
{
    if(!m_ecBooks.m_lpDispatch)
    {
        AfxMessageBox("WorkSheets为空!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    //COleVariant vFileName(_T(fileName));
    COleVariant VOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
    m_ecBook = m_ecBooks.Open(fileName,VOptional, VOptional, VOptional, VOptional,VOptional, VOptional, VOptional, VOptional,VOptional, VOptional, VOptional, VOptional, VOptional, VOptional);
    if(!m_ecBook.m_lpDispatch)
    {
        AfxMessageBox("WorkSheet获取失败!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    if(CreateSheet(index) == FALSE)
    {
        return FALSE;
    }
    return TRUE;
}

BOOL CExcelOperate::Open(CString fileName)        //创建新的EXCEL应用程序并打开一个已经存在的文档。
{
    if(CreateWorkbooks() == FALSE)
    {
        return FALSE;
    }
    return OpenWorkbook(fileName);
}

/*BOOL CExcelOperate::SetActiveWorkbook(short i)    //设置当前激活的文档。
{
}*/

//**********************保存文档*********************************************
BOOL CExcelOperate::SaveWorkbook()                //文档是以打开形式，保存。
{
    if (!m_ecBook.m_lpDispatch)
    {
        AfxMessageBox("Book获取失败!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    m_ecBook.Save();
    return TRUE;
}
BOOL CExcelOperate::SaveWorkbookAs(CString fileName)//文档以创建形式，保存。
{
    if (!m_ecBook.m_lpDispatch)
    {
        AfxMessageBox("Book获取失败!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    COleVariant vTrue((short)TRUE),
                vFalse((short)FALSE),
                vOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
    COleVariant vFileName(_T(fileName));

    m_ecBook.SaveAs(
                vFileName,    //VARIANT* FileName
                vOptional,    //VARIANT* FileFormat
                vOptional,    //VARIANT* LockComments
                vOptional,    //VARIANT* Password
                vOptional,    //VARIANT* AddToRecentFiles
                vOptional,    //VARIANT* WritePassword
                0,    //VARIANT* ReadOnlyRecommended
                vOptional,    //VARIANT* EmbedTrueTypeFonts
                vOptional,    //VARIANT* SaveNativePictureFormat
                vOptional,    //VARIANT* SaveFormsData
                vOptional,    //VARIANT* SaveAsAOCELetter
                vOptional    //VARIANT* ReadOnlyRecommended
/*                vOptional,    //VARIANT* EmbedTrueTypeFonts
                vOptional,    //VARIANT* SaveNativePictureFormat
                vOptional,    //VARIANT* SaveFormsData
                vOptional    //VARIANT* SaveAsAOCELetter*/
                );
    return    TRUE;
}
BOOL CExcelOperate::CloseWorkbook()
{
    COleVariant vTrue((short)TRUE),
                vFalse((short)FALSE),
                vOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

    m_ecBook.Close(vFalse,    // SaveChanges.
             vTrue,            // OriginalFormat.
             vFalse            // RouteDocument.
             );
    m_ecBook = m_ecApp.GetActiveWorkbook();
    if(!m_ecBook.m_lpDispatch)
    {
        AfxMessageBox("Book获取失败!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    if(CreateSheet(1) == FALSE)
    {
        return FALSE;
    }
    return TRUE;
}
void CExcelOperate::CloseApp()
{
    SaveWorkbook();
    COleVariant vTrue((short)TRUE),
                vFalse((short)FALSE),
                vOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
    //m_ecDoc.Save();
    m_ecApp.Quit();
    if(m_ecRange.m_lpDispatch)
        m_ecRange.ReleaseDispatch();
    if(m_ecSheet.m_lpDispatch)
        m_ecSheet.ReleaseDispatch();
    if(m_ecSheets.m_lpDispatch)
        m_ecSheets.ReleaseDispatch();
    if(m_ecBook.m_lpDispatch)
        m_ecBook.ReleaseDispatch();
    if(m_ecBooks.m_lpDispatch)
        m_ecBooks.ReleaseDispatch();
    if(m_ecApp.m_lpDispatch)
        m_ecApp.ReleaseDispatch();

}

BOOL CExcelOperate::GetRangeAndValue(CString begin, CString end)
{
    if(!m_ecSheet.m_lpDispatch)
    {
        AfxMessageBox("Sheet获取失败!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    m_ecRange = m_ecSheet.GetRange(COleVariant(begin), COleVariant(end));
    if(!m_ecRange.m_lpDispatch)
    {
        AfxMessageBox("Range获取失败!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    ret = m_ecRange.GetValue2();//得到表格中的值
    return TRUE;
}

void CExcelOperate::GetRowsAndCols(long &rows, long &cols)
{
    COleSafeArray sa(ret);
    sa.GetUBound(1,&rows);
    sa.GetUBound(2,&cols);
}

//只返回CString类型的，其他类型概视为错误
BOOL CExcelOperate::GetTheValue(int rows, int cols, CString &dest)
{
    long rRows, rCols;
    long index[2];
    VARIANT val;
    COleSafeArray sa(ret);
    sa.GetUBound(1,&rRows);
    sa.GetUBound(2,&rCols);
    if(rows < 1 || cols < 1 || rRows < rows || rCols < cols)
    {
        AfxMessageBox("出错点1");
        return FALSE;
    }
    index[0]=rows;
    index[1]=cols;
    sa.GetElement(index,&val);
    if(val.vt != VT_BSTR)
    {
        CString str;
        str.Format("出错点2, %d",val.vt);
        AfxMessageBox(str);
        return FALSE;
    }
    dest = val.bstrVal;
    return TRUE;
}

//将beginS到endS之间设置为文本格式
BOOL CExcelOperate::SetTextFormat(CString &beginS, CString &endS)
{
    if(GetRangeAndValue(beginS, endS))
    {
        m_ecRange.Select();
        m_ecRange.SetNumberFormatLocal(COleVariant("@"));
        return TRUE;
    }
    return FALSE;
}

//将beginS到endS之间(必须是一列)设置为真正的文本格式
BOOL CExcelOperate::SetRowToTextFormat(CString &beginS, CString &endS)
{
    if(GetRangeAndValue(beginS, endS))
    {
        m_ecRange.Select();
        Range m_tempRange = m_ecSheet.GetRange(COleVariant(beginS), COleVariant(beginS));
        if(!m_tempRange.m_lpDispatch) return FALSE;
        COleVariant vTrue((short)TRUE),
                vFalse((short)FALSE);
        //int tempArray[2] = {1, 2};
        COleSafeArray saRet;
        DWORD numElements = {2};
        saRet.Create(VT_I4, 1, &numElements);
        long index = 0;
        int val = 1;
        saRet.PutElement(&index, &val);
        index++;
        val = 2;
        saRet.PutElement(&index, &val);
        //m_tempRange.GetItem(COleVariant((short)5),COleVariant("A"));
        m_ecRange.TextToColumns(m_tempRange.GetItem(COleVariant((short)1),COleVariant((short)1)), 1, 1, vFalse, vTrue, vFalse, vFalse, vFalse, vFalse, vFalse, saRet, vFalse, vFalse, vTrue);
        m_tempRange.ReleaseDispatch();
        return TRUE;
    }
    return FALSE;
}