现在的位置: 首页 > 综合 > 正文

VC操作Excel收集

2013年10月07日 ⁄ 综合 ⁄ 共 10605字 ⁄ 字号 评论关闭

VC操作Excel的方法(2007-01-05 21:18:45)
     A:从classwizard中add class处from type library,去office的安装目录下引入excel.exe(这是office 2003的选择,其他版本都是用olb文件),服务器就算引入了,这时会弹出对话框,要求加入一些类,这些类都是一些接口,里面有大量的方法,类的对象表征着excel文件的一个个部分,常用的有这几个_application,workbooks,_workbook,worksheets,_worksheet,Range,它们分别代表不同的意义._application代表了EXCEL服务器,workbooks表示整个Excel服务器(表现为一个.xls文件)里所有的表,(可以通过"新建"得到多个表,即MDI程序里的一个视窗一样,所有的视窗就是workbooks),
_workbook就是一个表,相当于MDI中的一个视窗, worksheets表示所有的表单,每个表都可能有很多表单(建立一个Excel文件之后,打开,可以看到有sheet1,sheet2等,所有这些sheetn就组成了worksheets), _worksheet就表示一个表单, range表示元素的集合. 搞清楚上面这几个名词的意思非常重要.
     B,在dlg.h中声明下面几个变量:
_Application exlapp;   //组件服务器的各个classes
_Workbook wbk;
Workbooks wbks;
_Worksheet wht;
Worksheets whts;
LPDISPATCH lpDisp;
并在app.cpp的InitInstance方法中加入下面两句AfxInitOle(); AfxEnableControlContainer();
     C,这里我没有像上面一样完全用程序来生成一个Excel文件,而是在开始时就在当前目录下生成了一个Excel文件,在对话框上我设置了两个按钮,下面是"显示"按钮的代码:
//创建Excel服务器
if(!exlapp.CreateDispatch("Excel.Application"))
{
AfxMessageBox("无法启动Excel服务器!");
return;
}
COleVariant avar((long)DISP_E_PARAMNOTFOUND,VT_ERROR);
exlapp.SetVisible(TRUE);//使Excel可见
exlapp.SetUserControl(TRUE);//允许其它用户控制Excel,否则Excel将一闪即逝.

//Open an excel file
char path[MAX_PATH];
GetCurrentDirectory(MAX_PATH,path);
CString strPath = path;
strPath += "\\VCOpExcel";
wbks.AttachDispatch(exlapp.GetWorkbooks());

lpDisp=wbks.Open(strPath,
avar,avar,avar,avar,avar,avar,avar,avar,avar,avar,avar,avar,avar,avar);

wbks.ReleaseDispatch();
exlapp.ReleaseDispatch();
     D,与上面第一种方法一样,可以插入记录:
UpdateData();     //读入数据
if (""==m_name)     //判断名字输入有效
{
  MessageBox("Please input a right name");
  return;
}
if (0>=m_age||100<=m_age)  //判断年龄输入有效
{
  MessageBox("Please input a right age");
  return;
}
char *p=strupr(_strdup(m_gener));
if (strcmp(p,"FEMALE")&&strcmp(p,"MALE")) //判断性别输入有效
{
  MessageBox("Please input a right gener");
  return;
}

Range range;
Range usedRange;
COleVariant  avar((long)DISP_E_PARAMNOTFOUND,VT_ERROR);

if(!exlapp.CreateDispatch("Excel.Application")) //启动服务器
{
  AfxMessageBox("无法启动Excel服务器!");
  return;
}
char path[MAX_PATH];
GetCurrentDirectory(MAX_PATH,path);
CString strPath = path;
strPath += "\\VCOpExcel";
wbks.AttachDispatch(exlapp.GetWorkbooks());
lpDisp=wbks.Open(strPath,            //初始化.
  avar,avar,avar,avar,avar,avar,avar,avar,avar,avar,avar,avar,avar,avar);
wbk.AttachDispatch(lpDisp);
whts.AttachDispatch(wbk.GetWorksheets());
lpDisp=wbk.GetActiveSheet();
wht.AttachDispatch(lpDisp);

usedRange.AttachDispatch(wht.GetUsedRange());
range.AttachDispatch(usedRange.GetRows());
long iRowNum=range.GetCount();//已经使用的行数
range.AttachDispatch(wht.GetCells());

range.SetItem(COleVariant(long(iRowNum+1)),COleVariant(long(1)),COleVariant(m_name));
range.SetItem(COleVariant(long(iRowNum+1)),COleVariant(long(2)),COleVariant(m_age));
range.SetItem(COleVariant(long(iRowNum+1)),COleVariant(long(3)),COleVariant(m_gener));

wbk.Save();
wbk.Close(avar,COleVariant(strPath),avar);
wbks.Close();
exlapp.Quit();
(完)


VC中操作excel表格
     操作系统是Microsoft XP,办公套装是Microsoft Office 2003,编程环境是Microsoft Visual Studio 6.0,一切都是Microsoft。我最近要将数据库中的内容查询出来放到excel表格以便打印,所以上网找了这方面的内容,这里主要是抛砖引玉。
     从思路上来看,操作excel表格就是将其打开,然后写入/读出数据,然后关闭。
     首先创建一个程序(我的例子是一个MFC的单文档程序),在程序的入口处和出口处先作这样两个步骤来支持COM库:
     在程序入口处CXXXApp:: InitInstance()函数AfxEnableControlContainer();语句之后加入下面几行:
if (CoInitialize(NULL) != 0)
{
     AfxMessageBox("初始化COM支持库失败!");
     exit(1);
}
假如这个条件不通过就不能运行起程序。
     在程序的出口处CXXXApp:: ExitInstance()函数return语句之前加入下面这句话:CoUninitialize();来释放COM支持库。
这样对COM支持库的代码已经完成。
     下面要从Office的安装目录中找到对VC操作excel文件的动态库,在某些版本下这个文件是Excel8.olb或者Excel9.olb,在我的版本中是excel.exe这个exe也是动态库的形式,是微软公司主要的文件结果之一。选择vc的View菜单里面的ClassWizad命令,会弹出一个对话框;然后点击Add Class…按钮选择From a type library,会弹出一个打开对话框,从这里打开Office安装目录下…\Office11\EXCEL.EXE文件,从里面选择几个要用到的类:_Application,
Workbooks, _Wrokbook, Worksheets, _WorkSheet, Range,点击OK按钮。会在程序中生成一个excel.h和excel.cpp文件,这些文件中包含了刚才我们选择的几个类的代码。下面介绍一下这几个类:
     在vc操纵excel的exe动态库里面有好多个对象模型,就是刚才在创建过程中看到的那个列表,但是经常用到的有这么几个:_Application, Workbooks, _Wrokbook, Worksheets, _WorkSheet, Range,Charts和_Chart,最后面的两个是用来操作图表的,我没有用到所以这里也就不记录了。
     _Application:这里的Application就是Excel本身,众所周知,一个Excel可以包含多个工作簿,每个工作簿又可以包含多个工作表,而每个工作表又可以包含多个区域或者图表,所以这里他们是树型的结构关系,而application最基本的一个功能就是找到它的子项工作簿。果然,我们在引入我们程序的Application类中看到了这样的成员函数:GetWorkbooks()。既然application就是excel,那么打开程序,退出程序,显示/隐藏程序这些基本的操作都可以在这个类的成员函数中找到,果不其然。
     Workbooks:这个对象是一个容器对象,它里面存放着所有打开的工作簿。因此,我们可以猜测它一定有添加,查找,打开/关闭工作簿的功能。(本程序中使用excel的一个xlt模板来生成一个xls文件就是使用了这个容器对象的添加功能。)
     _Workbook:这是一个工作簿,也就相当于一个xls文件。Excel可以同时打开多个工作簿,所以工作簿之间必定能够互相切换,每个工作簿可以关联工作表容器并获得工作表的索引。
     Worksheets:也是一个容器对象,和Workbooks类似。
     _Worksheet:这个就是我们看到的工作表,比如Sheet1,sheet2等等。
     Rang:就是我们看到的能选中的方框的大小。而我们所要作的操作基本上是以区域为单位进行的。

     介绍完这些,就添加一个菜单,来响应操作excel的命令。
     然后下面附带这个函数的内容,注释还算可以吧,并且附上网上不知道谁写的但是转载极多的一个封装类。
view plaincopy to clipboardprint?
_Application _app;   
_Workbook _workBook;   
_Worksheet _workSheet;   
Worksheets workSheets;   
Workbooks workBooks;   
Range range;   
Range copyFrom;   
Range copyTo;   
  
if(!_app.CreateDispatch("Excel.Application", NULL))   
{   
    MessageBox("创建Excel服务失败!", "信息提示", MB_OK);   
    return;   
}   
//利用模板建立新文档   
workBooks.AttachDispatch(_app.GetWorkbooks());   
_workBook.AttachDispatch(workBooks.Add(_variant_t("\"C:\\Documents and Settings\\模板.xlt\"")));//你可以自己创建一个模板,并自由设定目录   
//得到worksheets   
workSheets.AttachDispatch(_workBook.GetWorksheets());   
//得到workSheet   
_workSheet.AttachDispatch(workSheets.GetItem(_variant_t("sheet1")));   
//得到拷贝的母板   
copyFrom.AttachDispatch(_workSheet.GetRange(_variant_t("A3"), _variant_t("Q6")));   
copyTo.AttachDispatch(_workSheet.GetRange(_variant_t("A61"), _variant_t("A61")));   
//得到全部的cells   
range.AttachDispatch(_workSheet.GetCells());   
  
///////////////////////////////////////////////////////////////////////////////////////////////////   
// 上边是头   
  
/*  
中间要做的工作有这两项:设置数据和拷贝格式  
设置数据就是将数据库中查询出来的数据写入表格,拷贝格式就是将表格拷贝到别的地方。  
*/
//写入数据   
range.SetItem(_variant_t((long)3), _variant_t((long)1), _variant_t("写入数据了"));   
range.SetItem(_variant_t((long)5), _variant_t((long)1), _variant_t("重新写入数据了"));   
//拷贝一段区域到另外的一段区域   
copyFrom.Copy(_variant_t(copyTo));   
range.SetItem(_variant_t((long)61), _variant_t((long)1), _variant_t("123"));   
  
//显示excel表格   
    _app.SetVisible(TRUE);   
//保存为文件   
_app.SetDisplayAlerts(FALSE);   //隐藏弹出的对话框   
_workSheet.SaveAs("d:\\Test.xls",vtMissing,vtMissing,vtMissing,vtMissing,   
    vtMissing,vtMissing,vtMissing,vtMissing,vtMissing);   
_app.Quit();   
//下边是尾   
///////////////////////////////////////////////////////////////////////////////////////////////////   
copyFrom.ReleaseDispatch();   
copyTo.ReleaseDispatch();   
range.ReleaseDispatch();   
_workSheet.ReleaseDispatch();   
workSheets.ReleaseDispatch();   
_workBook.ReleaseDispatch();   
workSheets.ReleaseDispatch();   
_app.ReleaseDispatch();  

别人的代码:
view plaincopy to clipboardprint?
.h文件:  
#include "comdef.h"   
#include "excel.h"   
class ExcelFile    
{   
public:   
void ShowInExcel(bool bShow);   
CString GetCell(int iRow, int iColumn);   
int     GetCellInt(int iRow, int iColumn);   
int GetRowCount();   
int GetColumnCount();   
bool LoadSheet(int iIndex);   
CString GetSheetName(int iIndex);   
static void InitExcel();   
static void ReleaseExcel();   
int GetSheetCount();   
bool Open(CString FileName);   
ExcelFile();   
virtual ~ExcelFile();   
protected:   
private:   
static _Application m_ExcelApp;   
  
Workbooks    m_Books;    
_Workbook    m_Book;    
Worksheets   m_sheets;    
_Worksheet   m_sheet;    
Range        m_Rge;    
};   
.cpp文件:   
ExcelFile::ExcelFile()   
{   
}   
ExcelFile::~ExcelFile()   
{   
m_Rge.ReleaseDispatch();    
m_sheet.ReleaseDispatch();    
m_sheets.ReleaseDispatch();    
m_Book.ReleaseDispatch();    
m_Books.ReleaseDispatch();    
}   
void ExcelFile::InitExcel()   
{   
//创建Excel 2000服务器(启动Excel)    
if (!m_ExcelApp.CreateDispatch("Excel.Application",NULL))    
{    
AfxMessageBox("创建Excel服务失败!");    
exit(1);    
}    
}   
void ExcelFile::ReleaseExcel()   
{   
m_ExcelApp.ReleaseDispatch();   
}   
bool ExcelFile::Open(CString FileName)   
{   
//打开excel文件   
//利用模板文件建立新文档    
m_Books.AttachDispatch(m_ExcelApp.GetWorkbooks(),true);    
LPDISPATCH lpDis = NULL;   
lpDis = m_Books.Add(_variant_t(FileName)); // 如何判断文件是否打开?   
if (lpDis)   
{   
m_Book.AttachDispatch(lpDis);    
//得到Worksheets    
m_sheets.AttachDispatch(m_Book.GetWorksheets(),true);    
return true;   
}   
return false;   
}   
int ExcelFile::GetSheetCount()   
{   
return m_sheets.GetCount();   
}   
CString ExcelFile::GetSheetName(int iIndex)   
{   
_Worksheet sheet;   
sheet.AttachDispatch(m_sheets.GetItem(_variant_t((long)iIndex)),true);   
CString name = sheet.GetName();   
sheet.ReleaseDispatch();   
return name;   
}   
bool ExcelFile::LoadSheet(int iIndex)   
{   
LPDISPATCH lpDis = NULL;   
m_Rge.ReleaseDispatch();   
m_sheet.ReleaseDispatch();   
lpDis = m_sheets.GetItem(_variant_t((long)iIndex));   
if (lpDis)   
{   
        m_sheet.AttachDispatch(lpDis,true);   
        m_Rge.AttachDispatch(m_sheet.GetCells(), true);   
        return true;   
}   
return false;   
}   
int ExcelFile::GetColumnCount()   
{   
Range range;   
     Range usedRange;   
     usedRange.AttachDispatch(m_sheet.GetUsedRange(), true);   
     range.AttachDispatch(usedRange.GetColumns(), true);   
     int count = range.GetCount();   
     usedRange.ReleaseDispatch();   
     range.ReleaseDispatch();   
     return count;   
     }   
     int ExcelFile::GetRowCount()   
     {   
     Range range;   
     Range usedRange;   
     usedRange.AttachDispatch(m_sheet.GetUsedRange(), true);   
     range.AttachDispatch(usedRange.GetRows(), true);   
     int count = range.GetCount();   
     usedRange.ReleaseDispatch();   
     range.ReleaseDispatch();   
     return count;   
     }   
     CString ExcelFile::GetCell(int iRow, int iColumn)   
     {   
     Range range;   
     range.AttachDispatch(m_Rge.GetItem (COleVariant((long)iRow),COleVariant((long)iColumn)).pdispVal, true);   
         COleVariant vResult =range.GetValue2();   
     CString str;   
     if(vResult.vt == VT_BSTR)       //字符串   
     {   
     str=vResult.bstrVal;   
     }   
     else if (vResult.vt==VT_INT)   
     {   
             str.Format("%d",vResult.pintVal);   
     }   
     else if (vResult.vt==VT_R8)     //8字节的数字    
     {   
     str.Format("%f",vResult.dblVal);   
     //str.Format("%.0f",vResult.dblVal);   
     //str.Format("%1f",vResult.fltVal);   
     }   
     else if(vResult.vt==VT_DATE)    //时间格式   
     {   
     SYSTEMTIME st;   
     VariantTimeToSystemTime(vResult.date, &st);   
     }   
     else if(vResult.vt==VT_EMPTY)   //单元格空的   
     {   
         str="(NULL)";   
     }    
     range.ReleaseDispatch();   
     return str;   
     }   
     int ExcelFile::GetCellInt(int iRow, int iColumn)   
     {   
     Range range;   
     range.AttachDispatch(m_Rge.GetItem(COleVariant((long)iRow),COleVariant((long)iColumn)).pdispVal, true);   
     COleVariant vResult =range.GetValue2();   
     int num;   
     num = (int)vResult.date;   
     range.ReleaseDispatch();   
     return num;   
     }   
     void ExcelFile::ShowInExcel(bool bShow)   
     {   
     m_ExcelApp.SetVisible(bShow);   
     }  

抱歉!评论已关闭.