MFC读写Excel表


今天有位同学问我MFC如何读写Excel表中数据,其实我也被问到了,因为大多情况是MFC直接读取数据库中的数据,之后在网上找到了一种解决方法。把get到的新技能记录下来,可用于以后参考。其实,解决方法就是把Excel表直接当做数据库来用。具体解决方法如下:

在stdafx.h文件中键入:

#include<afxdb.h>  //用于建立数据库对象,包括CDatabase类

#include<odbcinst.h>

接下来我自己的做法:

创建两个按钮,一个用来读入Excel文件的数据,另外一个用来将数据写入Excel中,

读按钮单击事件

void Cread_write_excelDlg::OnClickedReadButton()
{
    // TODO: Add your control notification handler code here
    CDatabase database;
    CString sSql;
    CString sItem1, sItem2,sItem3;
    CString sDriver;
    CString sDsn;
    CString sFile,sPath;
    //获取主程序所在路径,存在sPath中
    GetModuleFileName(NULL,sPath.GetBufferSetLength (MAX_PATH+1),MAX_PATH);
    sPath.ReleaseBuffer ();
    int nPos;
    nPos=sPath.ReverseFind ('\\');
    sPath=sPath.Left (nPos);
    sFile = sPath + "\\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 Num,Name, Age " //设置索引顺序    
               "FROM [Sheet1$]" ;               
               "ORDER BY Name ";
        // 执行查询语句
        recset.Open(CRecordset::forwardOnly, sSql, CRecordset::readOnly)
        // 获取查询结果
        while (!recset.IsEOF())
        {
            //读取Excel内部数值
            recset.GetFieldValue("Num", sItem1);
            recset.GetFieldValue("Name", sItem2);
            recset.GetFieldValue("Age", sItem3);
            // 移到下一行
            recset.MoveNext();
        }
        // 关闭数据库
        database.Close();                 
    }
    CATCH(CDBException, e)
    {
        // 数据库操作产生异常时...
        AfxMessageBox("数据库错误: " + e->m_strError);
    }
    END_CATCH;
}

写按钮的单击事件

void Cread_write_excelDlg::OnClickedWriteButton()
{
    // TODO: Add your control notification handler code here
    CDatabase database;
    CString sDriver = "MICROSOFT EXCEL DRIVER (*.XLS)"; // Excel安装驱动
    CString sExcelFile,sPath;
    CString sSql;
    //获取主程序所在路径,存在sPath中
    GetModuleFileName(NULL,sPath.GetBufferSetLength (MAX_PATH+1),MAX_PATH);
    sPath.ReleaseBuffer ();
    int nPos;
    nPos=sPath.ReverseFind ('\\');
    sPath=sPath.Left (nPos);
    sExcelFile = sPath + "\\Demo.xls";     // 要建立的Excel文件
    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 Exceldemo (Num Number,Name TEXT,Age NUMBER)";//可以用中文表示序号,姓名,年龄等
            database.ExecuteSQL(sSql);
            // 插入数值
            sSql = "INSERT INTO Exceldemo (Num,Name,Age) VALUES (1,'小西',24)";
            database.ExecuteSQL(sSql);
        }
        // 关闭数据库
        database.Close();
        AfxMessageBox("Excel文件写入成功!");
    }
    CATCH_ALL(e)
    {
        TRACE1("Excel驱动没有安装: %s",sDriver);
    }
    END_CATCH_ALL;
}

其中,函数GetExcelDriver()

CString 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;
}

通过这种方式可以利用MFC读写Excel表


免责声明!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系本站邮箱yoyou2525@163.com删除。



 
粤ICP备18138465号  © 2018-2025 CODEPRJ.COM