VC操作excel

  • Microsoft Foundation Classes (MFC), Microsoft Visual C++, 32-bit Editions, version 6.0 以上
  • Microsoft OLE 库
  第一步:建立一个自动化工程
  1. 启动VC 6.0,打开新建对话框,新建一个MFC AppWizard(exe)工程,这里工程明设置为TestExcel。
  2. 进入MFC 应用程序向导,选择基本对话框,直接点击完成,工程文件结构如下图:
  3. 打开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版本越高,数字越大。
  4. 返回编辑器,查看工程文件,可发现多了EXCEL9.H及EXCEL9.CPP两个文件。
  5. 打开stdafx.h头文件确保包含如下头文件:
    #include <afxdisp.h>
    #include "excel9.h"
  6. 打开TestExcel.cpp文件,修改CTestExcelApp::InitInstance(),加入如下代码:
    BOOL CTestExcelApp::InitInstance()
    {
              if( !AfxOleInit() ){
              AfxMessageBox("初始化Ole出错!");
                        return FALSE;
              }
              AfxEnableControlContaine r();
            ......
            ......
              return FALSE;
    }
    为保证编译时不产生重复定义错误,打开excel9.h文件,在文件开始位置加入如下代码:
    #if !defined _HEAD_FILE_EXCEL9_
    #define _HEAD_FILE_EXCEL9_
      相应的,在文件末尾加入:
    #endif
    到此,OLE自动化工程建立完成。按下F7,看是否能通过编译。
第二步:操作EXCEL文件
  1.   选择ResourceView工作区,打开IDD_TESTEXCEL_DIALOG,在对话框中添加一个按钮控件Button1,双击它,生成一个Button1 Click事件的处理函数:
    void CTestExcelDlg::OnButton1()
    {
      // TODO: Add your control notification handler code here
     
    }
  2. 在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);

    }
  3. 按下Ctrl+F5,执行程序。按下Button1,将会弹出Excel窗口:
  4. 到此,即完成了我们的示例程序,下面将对程序进行详细的说明,如果大家有过使用Visual Basic操作Excel程序的经验,则应该能看懂下面程序:
    void CTestExcelDlg::OnButton1()
    {
      // TODO: Add your control notification handler code here
     
      _Application app;
      Workbooks books;
      _Workbook book;
      Worksheets sheets;
      _Worksheet sheet;
      Range range; //Excel中针对单元格的操作都应先获取其对应的Range对象
      Font font;
      Range cols;
     
      //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);
  5. 如何自动保存我们生成的Excel文件?通过Workbook对象的SaveAs方法即可实现:
      book.SaveAs(COleVariant("C:\\a.xls"),covOptional,
        covOptional,covOptional,
        covOptional,covOptional,(long)0,covOptional,covOptional,covOptional,
        covOptional);
  6. 上面的程序只能实现新建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();
  7. 运行上面程序,单击Button1按钮,会显示出C:\a.xls文件中A1单元格中的内容。注意看以下代码,实现了Variant数据类型转换为CString类,这个只是一个示例,转换较为简单。

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

 

 

 

 

 

 

 

 

 

 

 

 

下面的代码是不是要在mfc里搞的

想要通过ODBC直接读、写Excel表格文件,首先,应确保ODBC中已安装有Excel表格文件的驱动"MICROSOFT EXCEL DRIVER (*.XLS)"。然后,可根据下面步骤进行:
1. 在StdAfx.h文件中加入:
include <afxdb.h>
include <odbcinst.h>

2. 通过ODBC直接创建Excel文件(暂定文件名:Demo.xls)
//创建并写入Excel文件
void CRWExcel::WriteToExcel()
{
CDatabase database;
CString sDriver = "MICROSOFT EXCEL DRIVER (*.XLS)"; // Excel安装驱动
CString sExcelFile = "c:\\demo.xls"; // 要建立的Excel文件
CString sSql;

TRY
{
// 创建进行存取的字符串
sSql.Format("DRIVER={%s};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB="%s";DBQ=%s",sDriver, sExcelFile, sExcelFile);

// 创建数据库 (既Excel表格文件)
if( database.OpenEx(sSql,CDatabase::noOdbcDialog) )
{
// 创建表结构(姓名、年龄)
sSql = "CREATE TABLE demo (Name TEXT,Age NUMBER)";
database.ExecuteSQL(sSql);

// 插入数值
sSql = "INSERT INTO demo (Name,Age) VALUES ('徐景周',26)";
database.ExecuteSQL(sSql);

sSql = "INSERT INTO demo (Name,Age) VALUES ('徐志慧',22)";
database.ExecuteSQL(sSql);

sSql = "INSERT INTO demo (Name,Age) VALUES ('郭徽',27)";
database.ExecuteSQL(sSql);
}

// 关闭数据库
database.Close();
}
CATCH_ALL(e)
{
TRACE1("Excel驱动没有安装: %s",sDriver);
}
END_CATCH_ALL;
}

3. 通过ODBC直接读取Excel文件(暂定文件名:Demo.xls)
// 读取Excel文件
void CRWExcel::ReadFromExcel()
{
CDatabase database;
CString sSql;
CString sItem1, sItem2;
CString sDriver;
CString sDsn;
CString sFile = "Demo.xls"; // 将被读取的Excel文件名

// 检索是否安装有Excel驱动 "Microsoft Excel Driver (*.xls)"
sDriver = GetExcelDriver();
if (sDriver.IsEmpty())
{
// 没有发现Excel驱动
AfxMessageBox("没有安装Excel驱动!");
return;
}

// 创建进行存取的字符串
sDsn.Format("ODBC;DRIVER={%s};DSN='';DBQ=%s", sDriver, sFile);

TRY
{
// 打开数据库(既Excel文件)
database.Open(NULL, false, false, sDsn);

CRecordset recset(&database);

// 设置读取的查询语句.
sSql = "SELECT Name, Age "
"FROM demo "
"ORDER BY Name ";

// 执行查询语句
recset.Open(CRecordset::forwardOnly, sSql, CRecordset::readOnly);

// 获取查询结果
while (!recset.IsEOF())
{
//读取Excel内部数值
recset.GetFieldValue("Name ", sItem1);
recset.GetFieldValue("Age", sItem2);

// 移到下一行
recset.MoveNext();
}

// 关闭数据库
database.Close();

}
CATCH(CDBException, e)
{
// 数据库操作产生异常时...
AfxMessageBox("数据库错误: " + e->m_strError);
}
END_CATCH;
}


// 获取ODBC中Excel驱动
CString CRWExcel::GetExcelDriver()
{
char szBuf[2001];
WORD cbBufMax = 2000;
WORD cbBufOut;
char *pszBuf = szBuf;
CString sDriver;

// 获取已安装驱动的名称(涵数在odbcinst.h里)
if (!SQLGetInstalledDrivers(szBuf, cbBufMax, &cbBufOut))
return "";

// 检索已安装的驱动是否有Excel...
do
{
if (strstr(pszBuf, "Excel") != 0)
{
//发现 !
sDriver = CString(pszBuf);
break;
}
pszBuf = strchr(pszBuf, '\0') + 1;
}
while (pszBuf[1] != '\0');

return sDriver;
}

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值