VC 操作excel

简介
通过本文及配套示例源码你可以更加灵活的控制Excel表格文件，其中包括创建新Excel文件、写入表格数据、读取表格数据(包括对原建Excel文件自已手工添加的行、列数据的准确读取)，删除已有Excel表格，对表格中指定行、列、单元格进行查询、插入、替换等操作，同时还可以将生成的Excel文件转换为按指定分隔符分隔的其它文本格式的文件。下面是把此方法用VC6编写的示例程序运行效果：

基本思路
基础实现方法同上篇文章《直接通过ODBC读、写Excel表格文件》相同，都是通过ODBC来把Excel表格文件当成数据库文件来进行读、写等操作，所以在Excel表格文件中写入的行头名必须是唯一的(不要重名，相当于数据库中的ID值)。本文中对Excel文件的操作都被封装进一个类CSpreadSheet中，通过它我们可以非常简便的实现各种Excel表格数据操作，并且可以对该类进行扩充来满足自己的需求。

具体实现

一、包含Excel文件操作类头文件

#include "CSpreadSheet.h"
二、新建Excel文件，并写入默认数据 // 新建Excel文件名及路径，TestSheet为内部表名
CSpreadSheet SS("c:\\Test.xls", "TestSheet");

CStringArray sampleArray, testRow;

SS.BeginTransaction();

// 加入标题
sampleArray.RemoveAll();
sampleArray.Add("姓名");
sampleArray.Add("年龄");
SS.AddHeaders(sampleArray);

// 加入数据
CString strName[] = {"徐景周","徐志慧","郭徽","牛英俊","朱小鹏"};
CString strAge[] = {"27","23","28","27","26"};
for(int i = 0; i < sizeof(strName)/sizeof(CString); i++)
{
sampleArray.RemoveAll();
sampleArray.Add(strName[i]);
sampleArray.Add(strAge[i]);
SS.AddRow(sampleArray);
}

SS.Commit();

三、读取Excel文件数据 CSpreadSheet SS("c:\\Test.xls", "TestSheet");

CStringArray Rows, Column;

//清空列表框
m_AccessList.ResetContent();
for (int i = 1; i <= SS.GetTotalRows(); i++)
{
// 读取一行
SS.ReadRow(Rows, i);
CString strContents = "";
for (int j = 1; j <= Rows.GetSize(); j++)
{
  if(j == 1)
   strContents = Rows.GetAt(j-1);
  else
   strContents = strContents + " --> " + Rows.GetAt(j-1);
}

m_AccessList.AddString(strContents);
}

四、对已存在Excel表格数据进行添加、插入、替换操作 // 初始化测试行数据，进行添加、插入及替换数据操作演示
for (int k = 1; k <= 2; k++)
{
testRow.Add("Test");
}

SS.AddRow(testRow);  // 添加到尾部
SS.AddRow(testRow, 2);  // 插入新行到第二行
SS.AddRow(testRow, 6, true); // 替换原第四行来新的内容
SS.AddCell("徐景周", 1,2);    // 添加(不存在)或替换(存在)第二行，第一列单元格内容

SS.Commit();
五、对已存在Excel表格数据进行行、列、单元格查询void CExcelAccessDlg::OnQuery()
{
CSpreadSheet SS("c:\\Test.xls", "TestSheet");

CStringArray Rows, Column;
CString tempString = "";

UpdateData();

if(m_strRow == "" && m_strColumn == "")         // 查询为空
{
  AfxMessageBox("行号、列号不能同时为空!");
  return;
}
else if(m_strRow == "" && m_strColumn != "")    // 查询指定列数据
{
  int iColumn = atoi(m_strColumn);
  int iCols = SS.GetTotalColumns();
  if(iColumn > iCols) // 超出表范围查询时
  {
   CString str;
   str.Format("表中总列数为: %d, ", iCols);
   AfxMessageBox(str + " 查询列数大于Excel表中总列数，请重新输入!");
   return;
  }

// 读取一列数据，并按行读出
  if(!SS.ReadColumn(Column, iColumn))
  {
   AfxMessageBox(SS.GetLastError());
   return;
  }

CString tmpStr;
  for (int i = 0; i < Column.GetSize(); i++)
  {
   tmpStr.Format("行号: %d, 列号: %d ,内容: %s\n", i+1,iColumn,Column.GetAt(i));
   tempString += tmpStr;
  }

  AfxMessageBox(tempString);
}
else if(m_strRow != "" && m_strColumn == "")     // 查询指定行数数据
{
  int iRow = atoi(m_strRow);
  int iRows = SS.GetTotalRows();

  if(iRow > iRows) // 超出表范围查询时
  {
   CString str;
   str.Format("表中总行数为: %d, ", iRows);
   AfxMessageBox(str + " 查询行数大于Excel表中总行数，请重新输入!");
   return;
  }

// 读取指定行数据
  if(!SS.ReadRow(Rows, iRow))
  {
   AfxMessageBox(SS.GetLastError());
   return;
  }

CString tmpStr;
  for (int i = 0; i < Rows.GetSize(); i++)
  {
   tmpStr.Format("行号: %d, 列号: %d ,内容: %s\n", iRow, i+1, Rows.GetAt(i));
   tempString += tmpStr;
  }

AfxMessageBox(tempString);
}
else if(m_strRow != "" && m_strColumn != "")     // 查询指定单元格数据
{
  int iRow = atoi(m_strRow), iColumn = atoi(m_strColumn);
  int iRows = SS.GetTotalRows(), iCols = SS.GetTotalColumns();

  if(iColumn > iCols)             // 超出表范围查询时
  {
   CString str;
   str.Format("表中总列数为: %d, ", iCols);
   AfxMessageBox(str + " 查询列数大于Excel表中总列数，请重新输入!");
   return;
  }
  else if(iRow > iRows)
  {
   CString str;
   str.Format("表中总行数为: %d, ", iRows);
   AfxMessageBox(str + " 查询行数大于Excel表中总行数，请重新输入!");
   return;
  }

// 读取指定行、列单元格数据
  if(!SS.ReadCell(tempString, iColumn, iRow))
  {
   AfxMessageBox(SS.GetLastError());
   return;
  }

CString str;
str.Format("行号: %d, 列号: %d ,内容: %s", iRow,iColumn,tempString);
AfxMessageBox(str);
}

}

六、将存在的Excel转换另存为指定分隔的文本文件 // 将原Excel文件转换为用分号分隔的文本，并另存为同名文本文件
SS.Convert(";");
七、删除Excel中表格 SS. DeleteSheet(); // 删除Excel文件中所有表格
SS. DeleteSheet(" TestSheet "); // 删除Excel中TextSheet表格

八、获取Excel中总行数、总列数、当前行 int iCols = SS.GetTotalColumns(); // 总列数
int iRows = SS.GetTotalRows(); // 总行数
int iCurRow = SS.GetCurrentRow(); // 当前所在行号

九、获取行头数据 CStringArray rowHeader;
SS.GetFieldNames(rowHeader);
CString tmpStr;
for (int i = 0; i < rowHeader.GetSize(); i++)
{
tmpStr.Format("行号: %d, 列号: %d ,内容: %s\n", 1, i+1, rowHeader.GetAt(i));
tempString += tmpStr;
}
AfxMessageBox(tempString);

最后，如果想知道详细实现细节的话，可以在下载示例源码后，仔细查看源码既可(内有详细注释)。

///com方式
操作系统是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();
_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);
}
/
第一步：建立一个自动化工程
启动VC 6.0，打开新建对话框，新建一个MFC AppWizard(exe)工程，这里工程明设置为TestExcel。
进入MFC 应用程序向导，选择基本对话框，直接点击完成，工程文件结构如下图：

打开MFC ClassWizard窗口(查看—>建立类向导)，选择Automation，单击Add Class按钮，选择From a type library...，弹出文件选择对话框，之后定位到Microsoft Office的安装目录(通常为C:\Program Files\Microsoft Office\Office)，选择EXCEL9.OLB注意，确定后，弹出Confirm Classes窗口，选择列表中的所有类，单击OK按钮。
注意文件名EXCEL9.OLB，因安装的Office版本不同而有所差异，EXCEL9.OLB对应的是Microsoft Office 2000，微软命名方式为Excel+数字的形式，Office版本越高，数字越大。

返回编辑器，查看工程文件，可发现多了EXCEL9.H及EXCEL9.CPP两个文件。
打开stdafx.h头文件确保包含如下头文件：
#include <afxdisp.h>
#include "excel9.h"
打开TestExcel.cpp文件，修改CTestExcelApp::InitInstance()，加入如下代码：
BOOL CTestExcelApp::InitInstance()
{
     if( !AfxOleInit() ){
          AfxMessageBox("初始化Ole出错！");
          return FALSE;
     }
     AfxEnableControlContainer();
    ......
    ......
     return FALSE;
}
为保证编译时不产生重复定义错误，打开excel9.h文件，在文件开始位置加入如下代码：
#if !defined _HEAD_FILE_EXCEL9_
#define _HEAD_FILE_EXCEL9_
相应的，在文件末尾加入：
#endif
到此，OLE自动化工程建立完成。按下F7，看是否能通过编译。
第二步：操作EXCEL文件
选择ResourceView工作区，打开IDD_TESTEXCEL_DIALOG，在对话框中添加一个按钮控件Button1，双击它，生成一个Button1 Click事件的处理函数：

void CTestExcelDlg::OnButton1()
{
// TODO: Add your control notification handler code here

}
在OnButton1()函数中，添加代码：

void CTestExcelDlg::OnButton1()
{
// TODO: Add your control notification handler code here
_Application app;
Workbooks books;
_Workbook book;
Worksheets sheets;
_Worksheet sheet;
Range range;
Font font;
Range cols;
COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

if( !app.CreateDispatch("Excel.Application") ){
this->MessageBox("无法创建Excel应用！");
return;
}
books=app.GetWorkbooks();
book=books.Add(covOptional);
sheets=book.GetSheets();
sheet=sheets.GetItem(COleVariant((short)1));
range=sheet.GetRange(COleVariant("A1"),COleVariant("A1"));
range.SetValue(COleVariant("HELLO EXCEL!"));
font=range.GetFont();
font.SetBold(COleVariant((short)TRUE));
range=sheet.GetRange(COleVariant("A2"),COleVariant("A2"));
range.SetFormula(COleVariant("=RAND()*100000"));
range.SetNumberFormat(COleVariant("$0.00"));
cols=range.GetEntireColumn();
cols.AutoFit();

app.SetVisible(TRUE);
app.SetUserControl(TRUE);

}
按下Ctrl+F5，执行程序。按下Button1，将会弹出Excel窗口：

到此，即完成了我们的示例程序，下面将对程序进行详细的说明，如果大家有过使用Visual Basic操作Excel程序的经验，则应该能看懂下面程序：

void CTestExcelDlg::OnButton1()
{
// TODO: Add your control notification handler code here
/*
   先创建一个_Application类，用_Application来创建一个Excel应用程序接口。
   Excel接口类中层次如下所示：
    -_Application
      -Workbooks 工作薄集合
        -_Workbook 工作薄
          -Worksheets 工作表集合
            -_Worksheet 工作表
              -Range单元格区域
   故要操作表，必须先逐步获取Workbooks—>Workbook —>Worksheets —>Worksheet —>Range
*/
_Application app;
Workbooks books;
_Workbook book;
Worksheets sheets;
_Worksheet sheet;
Range range; //Excel中针对单元格的操作都应先获取其对应的Range对象
Font font;
Range cols;
/*
   COleVariant类为VARIANT数据类型的包装，在自动化程序中，通常都使用VARIANT数据类型进行参数传递。故下列程序中，函数参数都是通过COleVariant类来转换了的。
*/
//covOptional 可选参数的VARIANT类型
COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
if( !app.CreateDispatch("Excel.Application") ){
this->MessageBox("无法创建Excel应用！");
return;
}

//获取工作薄集合
books=app.GetWorkbooks();

//添加一个工作薄
book=books.Add(covOptional);

//获取工作表集合
sheets=book.GetSheets();

//获取第一个工作表
sheet=sheets.GetItem(COleVariant((short)1));

//选择工作表中A1:A1单元格区域
range=sheet.GetRange(COleVariant("A1"),COleVariant("A1"));

//设置A1=HELLO EXCEL!"
range.SetValue(COleVariant("HELLO EXCEL!"));

//调整格式，设置粗体
font=range.GetFont();
font.SetBold(COleVariant((short)TRUE));

//选择A2单元格，插入一个公式"=RAND()*100000"，并设置A2数字格式为货币形式
range=sheet.GetRange(COleVariant("A2"),COleVariant("A2"));
range.SetFormula(COleVariant("=RAND()*100000"));
range.SetNumberFormat(COleVariant("$0.00"));

//选择A:A列，设置宽度为自动适应
cols=range.GetEntireColumn();
cols.AutoFit();

//显示Excel表格，并设置状态为用户可控制
app.SetVisible(TRUE);
app.SetUserControl(TRUE);
如何自动保存我们生成的Excel文件？通过Workbook对象的SaveAs方法即可实现：

book.SaveAs(COleVariant("C:\\a.xls"),covOptional,
covOptional,covOptional,
covOptional,covOptional,(long)0,covOptional,covOptional,covOptional,
covOptional);
上面的程序只能实现新建Excel文件的功能，但大多数情况我们需要的是导入excel中的数据，即要打开现存的xls文件，那么可用如下代码：
_Application app;
Workbooks books;
_Workbook book;
Worksheets sheets;
_Worksheet sheet;
LPDISPATCH lpDisp; //接口指针

COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
if( !app.CreateDispatch("Excel.Application") ){
this->MessageBox("无法创建Excel应用！");
return;
}

books=app.GetWorkbooks();
lpDisp = books.Open("C:\\a.xls",
        covOptional, covOptional, covOptional, covOptional,
        covOptional, covOptional, covOptional, covOptional,
        covOptional, covOptional, covOptional, covOptional
        );
book.AttachDispatch( lpDisp );
sheets=book.GetSheets();
sheet=sheets.GetItem(COleVariant((short)1));
range=sheet.GetRange(COleVariant("A1"),COleVariant("A1"));

COleVariant rValue;
rValue=COleVariant(range.GetValue());
rValue.ChangeType(VT_BSTR);
this->MessageBox(CString(rValue.bstrVal));

book.SetSaved(TRUE);
app.Quit();
运行上面程序，单击Button1按钮，会显示出C:\a.xls文件中A1单元格中的内容。注意看以下代码，实现了Variant数据类型转换为CString类，这个只是一个示例，转换较为简单。
COleVariant rValue;
rValue=COleVariant(range.GetValue());
rValue.ChangeType(VT_BSTR);
this->MessageBox(CString(rValue.bstrVal));

VC 操作excel相关推荐

VC操作Excel文件编程相关内容总结
最近在做个数据库程序,因为有些数据用户要求导出到Excel文件显示(需要报给其他单位).所以查阅了一下相关的VC的Excel编程操作,总结一下吧:(所有资料来源于网络) 利用VC操作Excel的方法至 ...
VC操作excel表格
VC操作excel表格(一) 1.The require files When you start to program in VC, you must have the lib files of E ...
VC操作Excel之sercies、Trendline
演示一下如何通过VC操作Excel生成下面这样的一个图表,它有两个系列,每个系列都拥有自己的X轴数据和Y轴数据,同时显示其线性的渐近线(TrendLine)以及获取其渐近线公式,因为在项目当中有时候需 ...
VC操作Excel收集
VC操作Excel的方法(2007-01-05 21:18:45) A:从classwizard中add class处from type library,去office的安装目录下引入exc ...
使用VB或VC操作Excel 2003
1.VB操作EXCEL2003 [vb] view plaincopy '*************************************************************** ...
vc操作excel，包括合并单元格，新增，删除sheet,设置字体，底色（OLE/COM）
1.制作应用软件的时候,经常要把结果以报表的形式输出,当前使用较为广泛的当然是Excel表格,本文简略介绍在VC++6.0中如何使用Excel2003的库函数并对其进行编程.先创建一个对话框工程,命名 ...
vc操作Excel。
pc操作系统情况: Windows XP,office 2003,vc6 经过半下午的搜索发现了vc操作Excel的几种方法 1.ODBC. 暂时还没有试. 2.OLE,即com的方式 ...
VC操作Excel之用ChartWizard自动生成图表
在用VC操作Excel的时候,生成图表有时是不可避免的,这里记下如何通过ChartWizard来简单生成一个图表.首先我们得了解一下图表的组成结构,一个简单的chart通常包括标题.绘图区.图例.数值 ...
VC++操作EXCEL内存泄露问题
一般VC++操作EXCEL的操作步骤我就不写了,度娘一下一大堆. 好久以前写在博客里面的一篇草稿,现在博客开张了,一并放出来吧. 2014年11月为了EXCEL的"切换到.重试.取消&quo ...

VC 操作excel

VC 操作excel相关推荐

最新文章

热门文章