2024年1月20日发(作者：)
VC2010对Excel的操作
1. 创建新的C++工程
创建基于对话框的MFC程序
2. 添加库、添加Excel类库
在工程名上右键，选择“添加”—“类”（或者点击菜单栏的“项目”->“添加类”），选择“TypeLib中的MFC类”（MFC Class From TypeLib）
类来源选“注册表”，在可用的类型库中选择“Microsoft Excel 11.0 Object Library<1.5>”在接口列表框中选择需要的类，在此，我们选择_Application,_Workbook,Worksheet,Range,Workbooks,Worksheets这六个就可以了。
可以看到，六个类被添加了进来。
3. 修改头文件
分别将加进来的六个头文件上面的“#import "C:Program
FilesMicrosoft " no_namespace”注释掉。
4. 添加头文件
在stdAfx.h头文件中添加加进来的这几个头文件
#include "CApplication.h"
#include "CRange.h"
#include "CWorkbook.h"
#include "CWorkbooks.h"
#include "CWorksheet.h"
#include "CWorksheets.h"
5. 修改错误
编译，会出现两个错误：
…crange.h(335): warning C4003: “DialogBoxW”宏的实参不足
…crange.h(335): error C2059: 语法错误:“,”
双击错误提示，定位在错误行，
VARIANT DialogBox()
{
}
VARIANT result;
InvokeHelper(0xf5, DISPATCH_METHOD, VT_VARIANT, (void*)&result, NULL);
return result;
将该函数名“DialogBox()”前面加“_”下划线，即“_DialogBox()”，这样就可以编译成功了。
6. 在对话框中添加一个编辑框，并为其关联一CEdit类型变量m_Path，添加“打开”按钮，实现打开一已经存在的Excel文件。并将路径显示在编辑框中。实现代码如下。
void CExportToExcelDlg::OnBnClickedButtonOpen()
{
CFileDialog file(TRUE,NULL,NULL,OFN_HIDEREADONLY|OFN_OVERWRITEPROMPT,
{
CString strPath=hName();
m_dowTextW(strPath);
CApplication app;
CWorkbook book;
CWorkbooks books;
if (!Dispatch(_T("ation")))
{
}
//Dispatch(_Workbooks(),true);
MessageBox(_T("Error!Creat Excel Application Server Faile!"));
exit(1);
_T("EXCEL文件t(*.xls;*.xlsx)|*.xls;*.xlsx||"),AfxGetMainWnd());
if(l()==IDOK)
}
}
//Dispatch((_variant_t(strPath)));
books = _Workbooks();
book = (_variant_t(strPath));
_Visible(true);
//结尾，释放
eDispatch();
eDispatch();
eDispatch();
();
7. 在对话框中添加“写入”按钮，实现新建一Excel文件（存在则覆盖），并向文件中写入数据。实现代码如下。
void CExportToExcelDlg::OnBnClickedButtonWrite()
{
CString strFile = _T("D:");
COleVariant
CApplication app;
CWorkbook book;
CWorkbooks books;
CWorksheet sheet;
CWorksheets sheets;
CRange range;
CFont font;
if (!Dispatch(_T("ation")))
{
}
books = _Workbooks();
//Dispatch(_Workbooks());可代替上面一行
book = (covOptional);
//Dispatch((covOptional),true); 可代替上面一行
sheets=_Worksheets();
MessageBox(_T("Error!Creat Excel Application Server Faile!"));
covTrue((short)TRUE),
covFalse((short)FALSE),
covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
//Dispatch(_Worksheets(),true); 可代替上面一行
sheet = _Item(COleVariant((short)1));
//Dispatch(_Item(_variant_t("sheet1")),true); 可代替上面一行
//下面两行，是向A1中写入"Yeah!I can write data to excel!"
range = _Range(COleVariant(_T("A1")),COleVariant(_T("A1")));
_Value2(COleVariant(_T("Yeah!I can write data to excel!")));
//下面是向第二行的前十个单元格中输入1到10，十个数字
for(long i=1;i<11;i++)
//设置列宽
range = _Range(COleVariant(_T("A1")),COleVariant(_T("J1")));
_ColumnWidth(_variant_t((long)5));
//显示表格
_Visible(TRUE);
//保存
pyAs(COleVariant(strFile));
_Saved(true);
//结尾，释放
eDispatch();
eDispatch();
eDispatch();
();
}
_Item(_variant_t((long)2),_variant_t((long)i),_variant_t((long)i));
8. 在对话框中添加列表控件，并关联变量m_Grid，并设置显示为报表样式。在对话框中添加“写入列表”按钮，实现将对话框中已有的表写入到Excel中。实现代码如下。
在初始化函数中，先初始化列表。
//设置列表视图的扩展风格
m_endedStyle(LVS_EX_FLATSB
|LVS_EX_FULLROWSELECT
|LVS_EX_HEADERDRAGDROP
|LVS_EX_GRIDLINES);
//扁平风格显示滚动条
//允许整行选中
//允许整列拖动
//单击选中项
//画出网格线
|LVS_EX_ONECLICKACTIVATE
//设置表头
m_Column(0,_T("编号"),LVCFMT_LEFT,100,0);
m_Column(1,_T("姓名"),LVCFMT_LEFT,100,1);
m_Column(2,_T("所属部门"),LVCFMT_LEFT,100,2);
//向列表中插入数据
int count = 0;
m_Item(count,_T("001"));
m_mText(count,1,_T("张一"));
m_mText(count++,2,_T("销售部"));
m_Item(count,_T("002"));
m_mText(count,1,_T("列二"));
m_mText(count++,2,_T("研发部"));
m_Item(count,_T("003"));
m_mText(count,1,_T("宇三"));
m_mText(count++,2,_T("采购部"));
m_Item(count,_T("004"));
m_mText(count,1,_T("宙四"));
m_mText(count,2,_T("宣传部"));
再编写按钮的响应函数
void CExportToExcelDlg::OnBnClickedButtonWritelist()
{
// TODO: 在此添加控件通知处理程序代码
CString strFile = _T("D:");
COleVariant
covTrue((short)TRUE),
covFalse((short)FALSE),
covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
CApplication app;
CWorkbook book;
CWorkbooks books;
CWorksheet sheet;
CWorksheets sheets;
CRange range;
if (!Dispatch(_T("ation")))
{
}
books = _Workbooks();
book = (covOptional);
sheets = _Worksheets();
sheet = _Item(COleVariant((short)1));
//得到全部Cells
Dispatch(_Cells());
CString sText[]={_T("编号"),_T("姓名"),_T("所属部门")};
MessageBox(_T("Error!Creat Excel Application Server Faile!"));
exit(1);
for (int setnum=0;setnum { } for (int num=0;num<3;num++) { if (!setnum) } { } else { } _Item(_variant_t((long)(setnum+1)),_variant_t((long)(num+1)), _variant_t(m_mText(setnum-1,num))); _Item(_variant_t((long)(setnum+1)),_variant_t((long)(num+1)), _variant_t(sText[num])); //保存 pyAs(COleVariant(strFile)); _Saved(true); _Visible(true); //释放对象 eDispatch(); eDispatch(); eDispatch(); eDispatch(); eDispatch(); eDispatch(); (); } 最终结果如下。 按【打开】按钮，出现打开对话框，可选择Excel打开。 按【写入】按钮，打开Excel文件。 按下【写入列表】，打开Excel文件。
发布评论