MFC写Excel操作

来源：互联网发布：nginx 访问目录 403 编辑：程序博客网时间：2024/06/04 19:58

1、新建C++工程

新建自己的C++工程。

2、添加Excel类库

在工程名上右键，选择Add---Class，选择MFC Class From TypeLib，如图：

然后添加如图的几个类。

3、修改头文件

进入刚添加进来的几个类头文件中将#import开头的这句注掉

4、修改提示的错误

将修改过的工程编译一下，出现如下错误：

双击提示，在DialogBox（）前加下划线，如图：

5、添加头文件

在使用导出功能的文件中添加头文件：

6、使用Excel类库提供的函数将需要导出的数据导出为.xls文件

经过以上几步，现在可以使用Excel类库提供的函数导出数据了。

附录一：导出Excel格式的简单流程

CString strFile = _T("E:\\hanhan.xls");

COleVariant

covTrue((short)TRUE),

covFalse((short)FALSE),

covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

CApplication0 app;

CWorkbook0 book;

CWorkbooks0 books;

CWorksheet0 sheet;

CWorksheets0 sheets;

CRange0 range;

CFont1 font;

if (!app.CreateDispatch(_T("Excel.Application")))

{

MessageBox(_T("Error!"));

}

books = app.get_Workbooks();

book = books.Add(covOptional);

sheets = book.get_Worksheets();

sheet = sheets.get_Item(COleVariant((short)1));

range = sheet.get_Range(COleVariant(_T("A1")),COleVariant(_T("A1")));

range.put_Value2(COleVariant(_T("hanhan")));

book.SaveCopyAs(COleVariant(strFile));

book.put_Saved(true);

book.ReleaseDispatch();

books.ReleaseDispatch();

app.Quit();

app.ReleaseDispatch();

附录二：将ListCtrl中的数据导出为Excel格式

CString strFile = _T("E:\\Test.xls");

COleVariant

covTrue((short)TRUE),

covFalse((short)FALSE),

covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

CApplication app;

CWorkbooks books;

CWorkbook book;

CWorksheets sheets;

CWorksheet sheet;

CRange range;

CFont0 font;

if (!app.CreateDispatch(_T("Excel.Application")))

{

MessageBox(_T("创建失败！"));

return;

}

//Get a new workbook.

books = app.get_Workbooks();

book = books.Add(covOptional);

sheets = book.get_Worksheets();

sheet = sheets.get_Item(COleVariant((short)1));

////////////////////////////////////CListCtrl控件report风格//////////////////////////////////////////////////////////

CHeaderCtrl *pmyHeaderCtrl;

pmyHeaderCtrl = m_clcData.GetHeaderCtrl();//此句取得CListCtrl控件的列表头

int iRow,iCol;

int m_cols = pmyHeaderCtrl-> GetItemCount();

int m_rows = m_clcData.GetItemCount();

HDITEM hdi;

TCHAR lpBuffer[256];

bool fFound = false;

hdi.mask = HDI_TEXT;

hdi.pszText = lpBuffer;

hdi.cchTextMax = 256;

CString colname;

CString strTemp;

for(iCol=0; iCol <m_cols; iCol++)//将列表的标题头写入EXCEL

{

GetCellName(1 ,iCol + 1, colname);

range = sheet.get_Range(COleVariant(colname),COleVariant(colname));

pmyHeaderCtrl-> GetItem(iCol, &hdi);

range.put_Value2(COleVariant(hdi.pszText));

int nWidth = m_clcData.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));//设置行的高度

font = range.get_Font();

font.put_Bold(covTrue);

range.put_VerticalAlignment(COleVariant((short)-4108));//xlVAlignCenter = -4108

COleSafeArray saRet;

DWORD numElements[]={m_rows,m_cols}; //5x2 element array

saRet.Create(VT_BSTR, 2, numElements);

range = sheet.get_Range(COleVariant( _T("A2 ")),covOptional);

range = range.get_Resize(COleVariant((short)m_rows),COleVariant((short)m_cols));

long index[2];

range = sheet.get_Range(COleVariant( _T("A2 ")),covOptional);

range = range.get_Resize(COleVariant((short)m_rows),COleVariant((short)m_cols));

for ( iRow = 1; iRow <= m_rows; iRow++)//将列表内容写入EXCEL

{

for ( iCol = 1; iCol <= m_cols; iCol++)

{

index[0]=iRow-1;

index[1]=iCol-1;

CString szTemp;

szTemp=m_clcData.GetItemText(iRow-1,iCol-1);

BSTR bstr = szTemp.AllocSysString();

saRet.PutElement(index,bstr);

SysFreeString(bstr);

}

range.put_Value2(COleVariant(saRet));

// Cnterior cellinterior;

// range = sheet.get_Range(COleVariant( _T("A1 ")),covOptional);

// range = range.get_Resize(COleVariant((short)1),COleVariant((short)m_cols));

// books = range.get_Interior();

// cellinterior.AttachDispatch(books);

// cellinterior.put_ColorIndex(COleVariant((short)37));//设置EXCEL头一行的背景颜色

// for( iRow=1; iRow <= m_rows; iRow++)//设置EXCEL其余的背景颜色（颜色交替变换）

// {

// int state=iRow%2;

// CString index;

// index.Format( _T("A%d "),iRow+1);

// range = sheet.get_Range(COleVariant(index),covOptional);

// range = range.get_Resize(COleVariant((short)1),COleVariant((short)m_cols));

// books=range.get_Interior();

// cellinterior.AttachDispatch(books);

// if(!state)

// cellinterior.put_ColorIndex(COleVariant((short)36));

// else

// cellinterior.put_ColorIndex(COleVariant((short)24));

// }

saRet.Detach();

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////

book.SaveCopyAs(COleVariant(strFile));

// cellinterior.ReleaseDispatch();

book.put_Saved(true);

book.ReleaseDispatch();

books.ReleaseDispatch();

app.Quit();

app.ReleaseDispatch();

由于不需要，Excel单元格样式及颜色等属性设置没有做，有兴趣的可以自己去试试。代码中设置的有错。

自己写的一个获取单元头的函数：

void GetCellName(int nRow, int nCol, CString &strName)

{

int nSeed = nCol;

CString strRow;

char cCell = 'A' + nCol - 1;

strName.Format(_T("%c"), cCell);

strRow.Format(_T( "%d "), nRow);

strName += strRow;

}

遇到的问题，写Excel的过程中打开其他文件，被写的文件会不断的显示刷新。

原因分析：

（1）我是利用excel存储程序过程数据，300ms存储一次。在程序运行过程中，如果手动打开其他excel文件，则程序创建的那个excel文件也会被同时打开。此时如果把二者都关闭了，则程序崩溃。为了程序继续运行，必须保持程序创建的那个excel打开；

（2）如果在程序运行前，先打开一个excel文件然后关闭，再打开程序则不会出现（1）的情况。

问题分析：

// 这个问题的分析请参考 VC 操作XLS文件

“出现上述问题的原因是，当程序新建一个Excel.Application对象时，实际上在进程中新建了一个系统已经安装的Excel程序的实例（此时进程中会有一个EXCEL.EXE），这其实与手动启动Excel程序（注意，是启动Excel程序，不是打开xls文件）是没有分别的。只不过在程序中可以将Excel 对象设置为不可见。

运行了一个EXCEL.EXE之后，就可以打开xls文件了。在程序中，可以使用xlApp.Workbooks.Open来指定使用哪一个Excel 对象来打开xls文件；而在手动打开xls文件时，系统总是自动查找现有的EXCEL.EXE进程中最后建立的那个，并用它来打开xls文件。如果当前还没有EXCEL.EXE进程运行，系统就会新建一个EXCEL.EXE进程，这就是我们一般双击打开xls文件时的情况。

这里需要提到EXCEL.EXE程序的一个特性：一个EXCEL.EXE可以打开多个xls文件。（不信你可以手动打开很多xls文件，然后看看任务管理器里是不是只有一个EXCEL.EXE进程。）有意思的是，当一个EXCEL.EXE打开多个xls文件时，这些xls文件会各自独立出现在任务栏，好像它们源自不同的进程似的，容易给人错觉。”

解决方法：

（1）在创建程序使用的excel之前，先调用EXCEL.EXE创建一个供打开其他excel文件的excel_application_fake_，然后再调用EXCEL.EXE创建一个供程序使用的excel_application_。

[cpp] view plain copy
 
BOOL OperationExcelFile::InitExcel()  
{  
  
    CoUninitialize();  
    if(CoInitialize(NULL)==S_FALSE)   
    {   
        AfxMessageBox(_T("初始化COM支持库失败！"));   
        return FALSE;   
    }  
  
    //创建伪装EXCEL服务器yu20160813  
    //防止程序使用过程中人为打开其他excel造成程序崩溃  
    if (!excel_application_fake_.CreateDispatch(_T("Excel.Application"),NULL))   
    {   
        AfxMessageBox(_T("创建伪装Excel服务失败,你可能没有安装EXCEL，请检查!"));   
        return FALSE;  
    }  
    excel_application_fake_.put_DisplayAlerts(FALSE);   
    excel_books_fake_.AttachDispatch(excel_application_fake_.get_Workbooks(),true);   
  
    //创建Excel 2000服务器(启动Excel)   
    if (!excel_application_.CreateDispatch(_T("Excel.Application"),NULL))   
    {   
        AfxMessageBox(_T("创建Excel服务失败,你可能没有安装EXCEL，请检查!"));   
        return FALSE;  
    }  
    excel_application_.put_DisplayAlerts(FALSE);   
  
    return TRUE;  
}  

（2）在程序退出时，要查看是否有其他excel打开。因为这些excel文件使用excel_application_fake_打开的，如果直接关闭程序这些excel文件也会退出。

[cpp] view plain copy
 
void OperationExcelFile::ReleaseExcel()  
{  
    excel_application_.Quit();  
    excel_application_.ReleaseDispatch();  
    excel_application_=NULL;  
  
    //伪装excel服务退出  
    if( !excel_books_fake_.get_Count() )  
    {  
        excel_application_fake_.Quit();  
        excel_application_fake_.ReleaseDispatch();  
        excel_application_fake_=NULL;  
    }  
}  

0 0