VC使用Excel创建保存新workbook文档删除worksheet

最新推荐文章于 2016-11-16 11:31:16 发布

dongzhiquan

最新推荐文章于 2016-11-16 11:31:16 发布

阅读量2.7k

点赞数

分类专栏： C++ OFFICE 文章标签： excel 文档 application library ini c

本文链接：https://blog.csdn.net/dongzhiquan/article/details/4310051

版权

C++ 同时被 2 个专栏收录

94 篇文章 0 订阅

订阅专栏

OFFICE

29 篇文章 1 订阅

订阅专栏

_Application excelApp;
_Application excelProtectApp;
Workbooks workbooks;
_Workbook workbook;
Worksheets worksheets;
_Worksheet worksheet;
// 文件打开选项
COleVariant   vOptional((long)DISP_E_PARAMNOTFOUND,   VT_ERROR);
    // COM初始化
    if(!AfxOleInit())
    {
  AfxMessageBox( MSG_LIBRARY_INI_FAILED );
  return FALSE;
    }
// Excel
    // Excel
    if( !excelApp.CreateDispatch( "Excel.Application" ) )
    {
  AfxMessageBox( MSG_EXCEL_CREATE_FAILED );
  return FALSE;
    }
if( !excelProtectApp.CreateDispatch( "Excel.Application" ) )
    {
  AfxMessageBox( MSG_EXCEL_CREATE_FAILED );
  return FALSE;
    }
#ifdef _DEBUG
excelApp.SetVisible(TRUE);
    excelApp.SetUserControl(TRUE);
#endif
workbooks = excelApp.GetWorkbooks();
//创建新的workbook
workbook = workbooks.Add( vOptional );
worksheets = workbook.GetWorksheets();
while ( worksheets.GetCount() != 1 )
{
  worksheet = worksheets.GetItem( COleVariant( ( short ) 1 ) );

//删除worksheet
worksheet.Delete();
}

//work保存

workbook.SaveAs((COleVariant)(strValue + cstrFileName),
        covOptional, covOptional, covOptional,
        covOptional, covOptional, C_ACCESSMODE, covOptional, covOptional,
        covOptional,covOptional, covOptional);