VC Excel 类

最新推荐文章于 2022-09-04 15:07:06 发布
最新推荐文章于 2022-09-04 15:07:06 发布
阅读量1.3k 收藏
点赞数
分类专栏： c&c++ 文章标签： excel parameters function null string path
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/MudiAndy/article/details/4881740
版权

    VC通过COM组件对Excel 进行读写

下载地址：http://download.csdn.net/source/1850105

//*******************************************************************************
//  FILE NAME     : cExcel.h
//                                      
//  DESCRIPTION   :  a class for control excel file
//      compile with VC 6.0                                                     
//               
//  CREATE DATE   : 2009-11-17
//  AUTHOR        : 牧笛Andy            
//  QQ     : 525908322  
// http://hi.baidu.com/andy84/                            
//*******************************************************************************


#ifndef __CEXCEL_H__
#define __CEXCEL_H__

#include "stdafx.h"

//import mso.dll
#import "C:/Program Files/Common Files/Microsoft Shared/OFFICE11/mso.dll" /
rename("RGB", "MSRGB")

//import VBE6EXT.OLB
#import "C:/Program Files/Common Files/Microsoft Shared/VBA/VBA6/VBE6EXT.OLB" raw_interfaces_only, /
rename("Reference", "ignorethis"),/
rename("VBE", "JOEVBE")

//import excel.exe
#import "C:/Program Files/Microsoft Office/OFFICE11/excel.exe" exclude("IFont", "IPicture") /
rename("RGB", "ignorethis"),/
rename("DialogBox", "ignorethis"),/
rename("VBE", "JOEVBE"), /
rename("ReplaceText", "JOEReplaceText"),/
rename("CopyFile","JOECopyFile"), /
rename("FindText", "JOEFindText"),/
rename("NoPrompt", "JOENoPrompt")

using namespace Office;
using namespace VBIDE;
using namespace Excel ;

 
const COleVariant covTrue((short)TRUE);
const COleVariant covFalse((short)FALSE);
const COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

class cExcel
{
public:
 cExcel();
 ~cExcel();
 void StartApp(void);
 void CreateWorkBook(void);
 void OpenWorkBook(CString filename);
 void SelectAcitveSheet(void);
 void SetSheetName(CString sheetname);
 void SelectRange( CString range );
 void SelectRange( int x , int y );
 void SetBackColor( long color );
 void GetFont(void);
 void SetFontName(CString fontname);
 void SetFontSytle(CString fontsytle);
 void SetFontSize(long size);
 void PutValue(CString string);
 void PutValue(int x , int y , CString string );
 CString GetCString( int x , int y );
 double GetValue(int x , int y );
 void Save(CString filename);
 void Save( CString path , CString filename );
 void Quit(void);

private:

 _ApplicationPtr pApp;
 WorkbooksPtr pBooks ;
 _WorkbookPtr pBook ;
 SheetsPtr  pSheets ;
 _WorksheetPtr pSheet;
 RangePtr  pRange;
 InteriorPtr  pInterior;
 FontPtr   pFont;
};

#endif //CEXCEL_H

 

//*******************************************************************************
//  FILE NAME     : cExcel.cpp 
//                                      
//  DESCRIPTION   :  a class for control excel file
//      compile with VC 6.0                                                     
//               
//  CREATE DATE   : 2009-11-17
//  AUTHOR        : 牧笛Andy            
//  QQ     : 525908322
// http://hi.baidu.com/andy84/                                            
//*******************************************************************************

#include "stdafx.h"
#include "cExcel.h"
#include"Assert.h"

//*******************************************************************************
//  FUNCTION      : cExcel                                        
//  DESCRIPTION   :                                                              
//               
//  PARAMETERS    : void
//  RETURN        : void                                                       
//*******************************************************************************
cExcel::cExcel()
{
 pApp = NULL;
 pBooks = NULL;
 pBook  = NULL;
 pSheets = NULL;
 pSheet = NULL;
 pRange = NULL;
 pInterior = NULL;
 pFont = NULL;
}

//*******************************************************************************
//  FUNCTION      : ~cExcel                                   
//  DESCRIPTION   :                                                              
//               
//  PARAMETERS    : void
//  RETURN        : void                                                       
//*******************************************************************************
cExcel::~cExcel()
{
}

//*******************************************************************************
//  FUNCTION      : StartApp                               
//  DESCRIPTION   : open excel.exe                                                             
//               
//  PARAMETERS    : void
//  RETURN        : void                                                       
//*******************************************************************************
void cExcel::StartApp(void)
{
 CoInitialize ( NULL );
 pApp.CreateInstance(L"Excel.Application");
 pApp->PutVisible(0,VARIANT_TRUE);//VARIANT_TRUE 
 pBooks = pApp->GetWorkbooks();
}
//*******************************************************************************
//  FUNCTION      : CreateWorkBook                               
//  DESCRIPTION   : create *.xls file                                                         
//               
//  PARAMETERS    : void
//  RETURN        : void                                                       
//*******************************************************************************
void cExcel::CreateWorkBook(void)
{
 assert(pBooks != NULL );
 pBook = pBooks->Add((long)xlWorkbook);
}

//*******************************************************************************
//  FUNCTION      : OpenWorkBook                               
//  DESCRIPTION   : open *.xls file                                                         
//               
//  PARAMETERS    : void
//  RETURN        : void                                                       
//*******************************************************************************
void cExcel::OpenWorkBook(CString filename )
{
 assert(pBooks != NULL );
 pBook = pBooks->Open( (LPCSTR)filename );
}

//*******************************************************************************
//  FUNCTION      : SelectAcitveSheet                               
//  DESCRIPTION   :                                                       
//               
//  PARAMETERS    : void
//  RETURN        : void                                                       
//*******************************************************************************
void cExcel::SelectAcitveSheet(void)
{
 assert(pBook != NULL );
 pSheets = pBook->GetWorksheets();
 pSheet = pBook->GetActiveSheet();
}
//*******************************************************************************
//  FUNCTION      : SetSheetName                               
//  DESCRIPTION   :                                                       
//               
//  PARAMETERS    : void
//  RETURN        : void                                                       
//*******************************************************************************
void cExcel::SetSheetName(CString sheetname)
{
 assert(pSheet != NULL );
 pSheet->PutName( (LPCSTR)sheetname);
}
//*******************************************************************************
//  FUNCTION      : SelectRange                               
//  DESCRIPTION   :                                                       
//               
//  PARAMETERS    : CString range (eg. "A1")
//  RETURN        : void                                                       
//*******************************************************************************
void cExcel::SelectRange(CString range )
{
 assert(pSheet != NULL );
 pRange = pSheet->GetRange((LPCSTR) range ,vtMissing);
}

//*******************************************************************************
//  FUNCTION      : SelectRange                               
//  DESCRIPTION   :                                                       
//               
//  PARAMETERS    :  int x , int y
//  RETURN        : void                                                       
//*******************************************************************************
void cExcel::SelectRange( int x , int y )
{
 CString range ;

 x = (0 == x ) ? 1 : x ;
 y = (0 == y ) ? 1 : y ;
 x = (x > 26)? (x%26) : ( x ) ;

 range.Format("%c%d",y+'A'-1, x);
 SelectRange( range );
}

//*******************************************************************************
//  FUNCTION      : SetBackColor                               
//  DESCRIPTION   :                                                       
//               
//  PARAMETERS    :  long color
//  RETURN        :  void                                                       
//*******************************************************************************
void cExcel::SetBackColor( long color )
{
 assert(pRange != NULL );
  pInterior = pRange->GetInterior();
  pInterior->PutColor((long )color);
}

//*******************************************************************************
//  FUNCTION      : GetFont                               
//  DESCRIPTION   :                                                       
//               
//  PARAMETERS    :  void
//  RETURN        :  void                                                       
//*******************************************************************************
void cExcel::GetFont(void)
{
 assert(pFont != NULL );
 pFont =pRange->GetFont();
}

//*******************************************************************************
//  FUNCTION      : SetFontName                               
//  DESCRIPTION   :                                                       
//               
//  PARAMETERS    :  CString fontname
//  RETURN        :  void                                                       
//*******************************************************************************
void cExcel::SetFontName( CString fontname)
{
 assert(pFont != NULL );
 pFont->PutName((LPCSTR)fontname);//(L"隶书")
}

//*******************************************************************************
//  FUNCTION      : SetFontSytle                               
//  DESCRIPTION   :                                                       
//               
//  PARAMETERS    :  CString fontsytle
//  RETURN        :  void                                                       
//*******************************************************************************
void cExcel::SetFontSytle( CString fontsytle )
{
 assert(pFont != NULL );
 pFont->PutFontStyle((LPCSTR)fontsytle);//(L"Bold Italic")
}

//*******************************************************************************
//  FUNCTION      : SetFontSize                               
//  DESCRIPTION   :                                                       
//               
//  PARAMETERS    :  long size
//  RETURN        :  void                                                       
//*******************************************************************************
void cExcel::SetFontSize( long size )
{
 assert(pFont != NULL );
 pFont->PutSize((long)size);
}

//*******************************************************************************
//  FUNCTION      : PutValue                               
//  DESCRIPTION   :                                                       
//               
//  PARAMETERS    :  CString string
//  RETURN        :  void                                                       
//*******************************************************************************
void cExcel::PutValue( CString string )
{

 assert(pRange != NULL );
 pRange->PutValue2((LPCSTR)string );
}

//*******************************************************************************
//  FUNCTION      : PutValue                               
//  DESCRIPTION   :                                                       
//               
//  PARAMETERS    :  int x , int y , CString string
//  RETURN        :  void                                                       
//*******************************************************************************

void cExcel::PutValue( int x , int y , CString string )
{
 SelectRange(x, y);
 PutValue( string );
}

//*******************************************************************************
//  FUNCTION      :  PutValue                               
//  DESCRIPTION   :  read  sting                                                   
//               
//  PARAMETERS    :  int x , int y
//  RETURN        :  CString                                                      
//*******************************************************************************

CString cExcel::GetCString( int x , int y )
{
 CString result;
 COleVariant vResult;
 SYSTEMTIME st ;
 CString stry ,strm ,strd ;

 SelectRange(x, y);
 
 assert(pRange != NULL );
 ///
 vResult = pRange->GetValue2();
 
 switch ( vResult.vt )
 {
  case VT_BSTR:    //OLE Automation string
  {
   result = vResult.bstrVal;
   break;
  }
  case VT_R8 : // 8 byte real
  {
   result.Format("%f",vResult.dblVal);
   break;
  }
  case VT_DATE: //date
  {
   VariantTimeToSystemTime(vResult.date, &st);
   stry.Format("%d",st.wYear);
   strm.Format("%d",st.wMonth);
   strd.Format("%d",st.wDay);
   result = stry+"-"+strm+"-"+strd;
   break ;
  }
  case VT_EMPTY: //empty
  {
      result.Empty();
   break ;
  }
  default:
  {
   AfxMessageBox("not string ");
   result.Empty();
   break;
  }
 }

 return result;
}

//*******************************************************************************
//  FUNCTION      :  GetValue                               
//  DESCRIPTION   :                                               
//               
//  PARAMETERS    :  int x , int y
//  RETURN        :  double                                                      
//*******************************************************************************

double cExcel::GetValue(int x , int y )
{
 double result ;
 COleVariant vResult;

 SelectRange(x, y);
 vResult = pRange->GetValue2();

 if(VT_R8 == vResult.vt)
 {
  result = vResult.dblVal ;
 }
 else
 {
  AfxMessageBox(" not VT_R8 ");
 }

 return result ;
}

//*******************************************************************************
//  FUNCTION      :  Save                               
//  DESCRIPTION   :                                               
//               
//  PARAMETERS    :  CString filename
//  RETURN        :  void                                                      
//*******************************************************************************

void cExcel::Save(CString filename)
{
 TCHAR szFilePath[MAX_PATH + 1];
 CString str_url ;

 GetModuleFileName(NULL, szFilePath, MAX_PATH);
 (_tcsrchr(szFilePath, _T('//')))[1] = 0;

 str_url = szFilePath;
 str_url += filename ;
 
 assert(pBook != NULL );
 ///
 pBook->SaveAs( (LPCSTR) str_url ,(long)xlNormal ,(LPCSTR)"", (LPCSTR)"" ,(long)FALSE,(long)FALSE ,xlShared );
}

//*******************************************************************************
//  FUNCTION      :  Save                               
//  DESCRIPTION   :                                               
//               
//  PARAMETERS    :  CString path , CString filename
//  RETURN        :  void                                                    
//*******************************************************************************

void cExcel::Save( CString path , CString filename )
{
 assert(pBook != NULL );
 path += filename ;
 pBook->SaveAs( (LPCSTR) path ,(long)xlNormal ,(LPCSTR)"", (LPCSTR)"" ,(long)FALSE,(long)FALSE ,xlShared );
}

//*******************************************************************************
//  FUNCTION      :  Quit                               
//  DESCRIPTION   :  close excel.exe                                              
//               
//  PARAMETERS    :  void
//  RETURN        :  void                                                    
//*******************************************************************************

void cExcel::Quit(void)
{
 assert(pBook != NULL );
 assert(pBooks != NULL );
 assert(pApp != NULL );
 pBook->PutSaved(0,VARIANT_TRUE);//don't answer to save
 pBooks->Close();
 pApp->Quit();
 CoUninitialize ();
}

 

MudiAndy
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
专栏目录
VC Excel
vicozo的专栏
04-12 1万+
 [原创]在VC中彻底玩转Excel    如今Excel是越来越重要了，在我们自己开发的程序中不免要和Excel打交道了。利用Automation技术，我们可以在不去了解数据库的情况下玩转Excel，而且你会发现一切竟如此轻松！    好了，咱们开始吧，我不喜欢用长篇累牍的代码来故弄玄虚，所以下面的代码都是切中要害的片段，总体上是个连贯的过程，包括启动Excel，读取数据，写入数据，以及最后的关
vc操作Excel(2)
骄扬
11-02 3487
     数据操作      1．获取sheet。void GetSheet(char* pSheetName,_Worksheet& excelSheet){          excelSheet.AttachDispatch(excelSheets.GetItem(_variant_t(pSheetName)));} _Worksheet dataSheet;
Visual C++基础 - 使用OLE/COM操作Excel类
qq_40896597的博客
09-04 3728
将数据保存至Excel表格中，并操作对应的单元格，比如字体、颜色填充等操作。 详细描述了MFC添加EXCEL的接口以及操作
轻轻松松搞定VC操作Excel之一
weixin_33953384的博客
03-20 141
http://blog.vckbase.com/dlutyuanhongl/archive/2005/03/20/3746.html     时常在论坛上看到有人问这个VC操作Word或者Excel有没有书系统地介绍如何去做，有这个必要吗？其实捅破这层窗户纸，你就会恍然大悟，原来是这么回事啊！在此我觉得有必要把我工作中操纵Excel的一点小体会拿出来和大家共享，也许对初学者能有所帮助，高手就不要...
关于VC C++编程 操作OFFICE,特别是execl的资料搜集
thanklife的专栏
02-16 1625
先列一个特别的. VC++ 中操作Excel文档的方法，读取，查询，写入，修改，删除 https://blog.csdn.net/CreatedSign/article/details/18811481     VC操作Execl生成execl表格进行打印 有的说:Office的自动化接口是语言独立的。你可以自己把c#示例的代码翻译到C++。 微软的帮助文档: https://su...
VC下对Excel进行操作的类，基于VC的Excel文件编程
12-17
如果您需要在VC中对Excel文件进行操作，您只需要将ExcelProc.cpp和ExcelProc.h添加到您的VC工程中，即可调用其方法方便快捷的对Excel文件进行操作，代码已经经过测试通过。
vc关于excel编程的类
10-22
利用vc访问excel文件，包括读写等操作，已经将代码封装为类，使用很方便.欢迎大家使用，提出意见
VC Excel 类
11-26
这就是"VC Excel 类"所涉及的主要内容。 VC++是Microsoft公司推出的一种面向对象的编程语言，它提供了一个集成开发环境，支持多种编程模型，包括MFC（Microsoft Foundation Classes）库，这是一组C++类库，用于简化...
VC Excel 操作类
03-18
总的来说，VC Excel操作类是为了简化Excel文件处理而设计的，通过封装和抽象，降低了开发者与Excel交互的复杂度，提高了开发效率。通过学习提供的示例和源代码，你将能够更好地理解和利用这个工具来满足你的项目需求...
VC操作Excel类
12-07
这个“VC操作Excel类”应该提供了一个简洁的接口，使得开发者可以通过C++代码来创建、读取和修改Excel文件。下面，我们将详细讨论如何在VC6.0下实现这些功能以及相关知识点。 首先，你需要包含必要的头文件和库，如...
一个vc++的Excel操作类
09-04
一个vc++的Excel操作类 一个vc++的Excel操作类，可以在当前目录生成Excel文件，也可以读取外部Excel文件，编译运行如上示，这是个很实用的类库。
vc 操作EXCEL类
11-14
轻松操作excel ,包含对excel 的导入 和导出操作。 列表
CSpreadSheet-VC实现对EXCEL操作的类
06-27
转自老外做的一个CSpreadSheet.h文件，并将其中的类定义与类实现做了分解，在VC中直接添加就可以应用,具体例子参考网上文章。比如：http://hi.baidu.com/caiweiguo/blog/item/fe070cadffd26c044a36d65a.html
VC/C++操作Excel
04-18
通过OLE对Excel的读写操作，下载后看头文件即可调用，本DLL在windows10 Office2016下使用VS2015编译且可正常读写Excel文件，其它版本的Excel调用上有某些细节上的不同，请自行更改。
VC 操作Excel的封装类
07-13
【VC 操作Excel的封装类】是一个针对Visual C++（简称VC）开发环境中的Microsoft Office Excel接口进行封装的代码库。这个封装类旨在简化开发者在VC中与Excel交互的工作，提供了一个更方便、高效的API来执行常见的...
CSpreadSheet-__c.zip_CSpreadSheet_VC excel_excel类
09-24
1. **创建和打开工作簿**：CSpreadSheet类允许开发者轻松创建新的Excel工作簿或者打开已存在的工作簿。通过简单的API调用，开发者可以指定工作簿的名称、位置以及其他属性，极大地简化了这一过程。 2. **操作工作表...
VC Excel类操作类
cc309992527的博客
05-05 548
带注解
类似EXCEL的电子表格VC编程库 (转)
ciya3282的博客
08-15 147
类似EXCEL的电子表格VC编程库 (转)[@more@]*************************************************************************************...
VC中彻底玩转Excel
透明果冻
12-26 4204
  VC中彻底玩转Excel　 作者：龚敏 来源：子玉山庄
vc导入excel封装类
最新发布
09-01
vc导入excel封装类是指在vc（Visual C++）编程环境中，通过封装类的方式实现对Excel文件的导入功能。 首先，需要引入Microsoft Excel的相关函数库，例如使用MFC（Microsoft Foundation Class）库中的COleVariant类...
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值