MFC 对Excel的基本操作
2010-10-27 18:29
381 查看
运行环境:vs2005. excel2003
初始化
if(!AfxOleInit())
{
AfxMessageBox(L"无法初始化COM的动态连接库!");
return;
}
将本地图片加载到excel表
_Application ExcelApp;
Workbooks wbsMyBooks;
_Workbook wbMyBook;
Worksheets wssMysheets;
_Worksheet wsMysheet;
Range rgMyRge;
Shapes shapes;
if (!ExcelApp.CreateDispatch(L"Excel.Application",NULL))
{
AfxMessageBox(L"创建Excel服务失败!");
exit(1);
}
ExcelApp.SetVisible(false);
//利用模板文件建立新文档
//char path[MAX_PATH];
TCHAR path[MAX_PATH];
GetCurrentDirectory(MAX_PATH,path);
CString strPath = path;
strPath += L"//Book1";
wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);
wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t(strPath)));
//得到Worksheets
wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true);
CString str1;
wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true);
rgMyRge.AttachDispatch(wsMysheet.GetCells(),true);
//设置1行1列的单元的值
shapes = wsMysheet.GetShapes();
rgMyRge = wsMysheet.GetRange(COleVariant(L"B1"),COleVariant(L"U35"));
shapes.AddPicture(L"D://a.jpg",FALSE, TRUE,
(float)rgMyRge .GetLeft().dblVal, (float)rgMyRge .GetTop().dblVal, // 从本地添加一个图片
(float)rgMyRge .GetWidth().dblVal, (float)rgMyRge .GetHeight().dblVal);
strPath = path;
strPath += L"//TDVoiceCallExcel.xls";
wsMysheet.SaveAs(strPath,vtMissing,vtMissing,vtMissing,vtMissing,
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing);
ExcelApp.SetVisible(true);
wbMyBook.PrintPreview(_variant_t(false));
//释放对象
rgMyRge.ReleaseDispatch();
wsMysheet.ReleaseDispatch();
wssMysheets.ReleaseDispatch();
wbMyBook.ReleaseDispatch();
wbsMyBooks.ReleaseDispatch();
ExcelApp.ReleaseDispatch();
初始化
if(!AfxOleInit())
{
AfxMessageBox(L"无法初始化COM的动态连接库!");
return;
}
将本地图片加载到excel表
_Application ExcelApp;
Workbooks wbsMyBooks;
_Workbook wbMyBook;
Worksheets wssMysheets;
_Worksheet wsMysheet;
Range rgMyRge;
Shapes shapes;
if (!ExcelApp.CreateDispatch(L"Excel.Application",NULL))
{
AfxMessageBox(L"创建Excel服务失败!");
exit(1);
}
ExcelApp.SetVisible(false);
//利用模板文件建立新文档
//char path[MAX_PATH];
TCHAR path[MAX_PATH];
GetCurrentDirectory(MAX_PATH,path);
CString strPath = path;
strPath += L"//Book1";
wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);
wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t(strPath)));
//得到Worksheets
wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true);
CString str1;
wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true);
rgMyRge.AttachDispatch(wsMysheet.GetCells(),true);
//设置1行1列的单元的值
shapes = wsMysheet.GetShapes();
rgMyRge = wsMysheet.GetRange(COleVariant(L"B1"),COleVariant(L"U35"));
shapes.AddPicture(L"D://a.jpg",FALSE, TRUE,
(float)rgMyRge .GetLeft().dblVal, (float)rgMyRge .GetTop().dblVal, // 从本地添加一个图片
(float)rgMyRge .GetWidth().dblVal, (float)rgMyRge .GetHeight().dblVal);
strPath = path;
strPath += L"//TDVoiceCallExcel.xls";
wsMysheet.SaveAs(strPath,vtMissing,vtMissing,vtMissing,vtMissing,
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing);
ExcelApp.SetVisible(true);
wbMyBook.PrintPreview(_variant_t(false));
//释放对象
rgMyRge.ReleaseDispatch();
wsMysheet.ReleaseDispatch();
wssMysheets.ReleaseDispatch();
wbMyBook.ReleaseDispatch();
wbsMyBooks.ReleaseDispatch();
ExcelApp.ReleaseDispatch();
相关文章推荐
- MFC对EXCEL的一些基本操作
- VC 操作Excel 2007的基本操作!
- c++(MFC)对文件的基本操作
- Visual C# 操作 Excel 文件(一) 基本操作
- VC操作Excel之基本操作
- poi对excel的基本读写操作
- MFC实现excel的读写操作
- java对excel表的操作,jxl的基本操作
- MFC excel 操作资料收集
- Python处理excel基本操作
- VS2008平台下,MFC操作EXCEL简单示例
- 4、VC控制EXCEL的基本操作之选择范围篇
- C#对excel文件的基本操作
- Java读写Excel基本操作
- MFC通过com接口操作Excel
- VB.Net程序设计:Excel的基本操作模式
- c# 读取写入excel单元格(包括对excel的一些基本操作)以下是一些对excel的一些基本操作
- 2.3.1 用NPOI操作EXCEL--基本计算
- vc++连接Excel的基本用法,与操作
- EXCEL Range对象基本操作应用示例(1)