VC++ 数据写入EXCEL文档

布满荆棘的人生 2022-07-04 23:40 134阅读 0赞

想要通过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;

以上程序可以成功运行

以下对程序进行修改，可以循环写入数据

sSql = "CREATE TABLE demo (岩石个数 NUMBER,岩石周长 NUMBER,岩石面积 NUMBER,岩石长径 NUMBER)";
    database.ExecuteSQL(sSql);
    for(i=0;i

`运行结果。左MFC的list，右为excel 第一次程序创建excel文件，可以正常写入数据。第二次再执行，写入不了。创建文件的时候，要是有同名文件存在，则不执行插入数据。 向已存在的文件中，追加数据，添加在文件末尾。 网上各种百度，还是没有找到答案。自己试着修改了下，可以正常运行。 void CRWExcel::WriteToExcel() { CDatabase database; CString sSql; CString sItem1, sItem2; CString sDriver; CString sDsn; CString sFile = "D:\\demo.xls"; // 将被读取的Excel文件名 // 检索是否安装有Excel驱动 "Microsoft Excel Driver (*.xls)"  sDriver = GetExcelDriver(); if (sDriver.IsEmpty()) { // 没有发现Excel驱动 AfxMessageBox("没有安装Excel驱动!"); return; } // 创建进行存取的字符串 // sSql.Format("DRIVER={%s};DSN="";FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s", sDriver, sExcelFile, sExcelFile);     sSql.Format("DRIVER={%s};DSN="";FIRSTROWHASNAMES=1;READONLY=FALSE;DBQ=%s", sDriver, sFile);    //CREATE_DB=\"%s\"把这句创建新文件的语句删除 TRY { // 打开数据库(既Excel文件) database.OpenEx(sSql,CDatabase::noOdbcDialog); CRecordset recset(&database); // 插入数值 sSql = "INSERT INTO demo (Name,Age) VALUES ('五天',99)"; database.ExecuteSQL(sSql); sSql = "INSERT INTO demo (Name,Age) VALUES ('徐志慧',99)"; database.ExecuteSQL(sSql); sSql = "INSERT INTO demo (Name,Age) VALUES ('郭徽',99)"; database.ExecuteSQL(sSql); // 关闭数据库 database.Close(); } CATCH(CDBException, e) { // 数据库操作产生异常时... AfxMessageBox("数据库错误: " + e->m_strError); } END_CATCH; } 左图是本文最开始的代码执行结果，右图是追加数据，添加在excel文件demo.xls末尾。 追加数据，添加在excel文件demo1.xls末尾 需要包含头文件和函数 //使用的ODBC对EXCEL的操作，需要加的头文件为： #include <io.h>//操作字符串需要加的 #include <odbcinst.h>//使用ODBC操作EXCEL加的 #include <afxdb.h> #include <Afxdlgs.h>//打开另存为对话框 //名称：GetExcelDriver //功能：获取ODBC中Excel驱动 //作者：徐景周(jingzhou_xu@163.net) //组织：未来工作室(Future Studio) //日期：2002.9.1 / 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; } //（１）这段代码指针的使用非常灵活，定义一个char数组，再定义一个char类型的指针， //指向这个数组，两个的使用就一样了。 //（2）字符串的使用，strstr是找第二个字符串在第一个字符串的位置， //返回的是一个指针，strchr是找第二个参数所指的字符在第一个字符串的位置，返回的也是一个指针。`