vc 通过ODBC 方式操作EXCEL

 天一个朋友让帮忙写段程序，关于VC操作Excel的，还挺着急。我没做过这个，网上查吧，讲解的倒是不少，不过比较乱，整了两个多小时才弄出来。基于ODBC的，程序有bug，不过为了应付差事，先交了。

这个程序就是把Excel当作一个数据库，使用sql语句进行操作。这个程序通用性不强，不能够处理任意的Excel文件，大概是因为把Excel文件当成数据库，对于文件格式要求的比较严格。

程序参考自：http://www.programfan.com/club/showtxt.asp?id=252948

环境是：VC6.0 + Excel2003

过程如下：

用支持MFC的控制台程序来做个简单的实验。

首先，要在stdafx.h头文件中引入ODBC的头文件：
#include <afxdb.h>
#include <odbcinst.h>

然后，写函数。生成一个demo.xls文件，并插入数据，然后从demo.xls中读取数据，将call price前面几行求和，结果写到call price后面单元格内。

void CalculateExcel()
{
    CDatabase database;
    CString sDriver = "MICROSOFT EXCEL DRIVER (*.XLS)"; // Excel安装驱动
    CString sExcelFile = "demo.xls";
   
    TRY
    {
        // 创建进行存取的字符串
        CString strSql;
        strSql.Format("DRIVER={%s};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s",sDriver, sExcelFile, sExcelFile);
       
        // 创建数据库 (即Excel表格文件)
        if(!database.OpenEx(strSql,CDatabase::noOdbcDialog))
        {
            printf("Excel表格打开失败\n");
            return;
        }

        // 创建表，并插入值
        strSql = "create table demo(A char(20), B double)";
        database.ExecuteSQL(strSql);
        strSql = "insert into demo(A, B) values('asd', 23)";
        database.ExecuteSQL(strSql);
        strSql = "insert into demo(A, B) values('sfs', 564.2)";
        database.ExecuteSQL(strSql);
        strSql = "insert into demo(A, B) values('asfe', 42)";
        database.ExecuteSQL(strSql);
        strSql = "insert into demo(A) values('call price')"; // call price 计算结果写到它后面
        database.ExecuteSQL(strSql);

       
        // 读取所有的值，并将前三项数据求和，将结果写入到call price后面的单元格中
        CRecordset rs(&database);
       
        // 设置读取的查询语句
        strSql = "SELECT * FROM demo";
       
        // 执行查询语句
        rs.Open(CRecordset::forwardOnly, strSql);

        printf("begin……\n");
       
        // 获取查询结果，并计算
        CString strValue1, strValue2;
        float sum = 0.0f;
        while (!rs.IsEOF())
        {
            //读取Excel内部数值
            rs.GetFieldValue("A", strValue1);
            rs.GetFieldValue("B", strValue2);
           
            if (strValue1 != "call price")
            {
                sum += atof(strValue2);
                printf("%s\t\t%s\n", strValue1, strValue2);
            }
           
            // 移到下一行
            rs.MoveNext();
        }
       
        rs.Close();
       
        // 插入数值
        strValue2.Format("%.2f", sum);
        strSql = "UPDATE demo SET B='" + strValue2 + "' WHERE A='call price'";
        database.ExecuteSQL(strSql);
       
        printf("\nthe result:\n%s\t%s\n", strValue1, strValue2);
        printf("\nupdate file end!\n\n");
       
        // 关闭数据库
        database.Close();
    }
    CATCH_ALL(e)
    {
        printf("Excel驱动没有安装: %s\n", sDriver);
    }
    END_CATCH_ALL;
}

程序执行结果如下图：

控制台上：

创建了Excel表格，并将结果写入：