VC操作excel(创建表格 查找 插入数据)

首先，我们要明白的是用VC编程实现访问Excel数据有很多方法，这里我们使用的是通过ODBC来访问Excel表格的，也就是说，VC将Excel表格当作数据库来处理。
其次，既然是数据库，那么，就需要建立一个与该库对应的dsn，而且在建立dsn之前，首先要确定已经安装了Excel的驱动（已安装office套件），你只需要在控制面板的ODBC选项卡中查看即可。

最后，要访问数据库中的表格，就要先打开该表格，如此，就需要一个与之对应的RecordSet，并且你应该熟悉一些关于SQL语句的基本操作，接下来就是像操作数据库一样操作Excel文件中的数据。

获取Excel驱动接口代码如下：

CString CTTDMDlg::GetExcelDriver( )
{
	wchar_t szBuf[2001];
	wchar_t excl[] = _T("Excel");
	WORD cbBufMax = 2000;
	WORD cbBufOut;
	wchar_t *pszBuf = szBuf;
	CString sDriver;
	// 获取已安装驱动的名称(函数在odbcinst.h里)
	if (!SQLGetInstalledDrivers(szBuf, cbBufMax, &cbBufOut))
		return _T("");
	// 检索已安装的驱动是否有Excel...
	// AfxMessageBox(CString(pszBuf));
	do
	{
		if(wcsstr(pszBuf, excl) != 0)
		{
			//发现 !
			sDriver = CString(pszBuf);
			break;
		}
		wchar_t ze = {'\0'};
		pszBuf = wcschr(pszBuf, ze) + 1;
	}
	while (pszBuf[1] != '\0');
 
	return sDriver;
}

接下来我们根据Excel文件名来读取数据，代码如下：（代码操作部分需要根据你自己的数据结构进行相应调整）

void CTTDMDlg::OnBnClickedBTNRead()
{
	// 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 + _T("\\ReadExcel.xls"); 			// 将被读取的Excel文件名
	// 检索是否安装有Excel驱动 "Microsoft Excel Driver (*.xls)" 
	sDriver = GetExcelDriver();
	if (sDriver.IsEmpty())// 没有发现Excel驱动
	{
		AfxMessageBox(_T("没有安装Excel驱动!"));
		return;
	}
	// 创建进行存取的字符串
	sDsn.Format(_T("ODBC;DRIVER={%s};DSN='';DBQ=%s"), sDriver, sFile);
	TRY
	{
		database.Open(NULL, false, false, sDsn); // 打开数据库(既Excel文件)
		CRecordset recset(&database);
		sSql = _T("SELECT 学号,姓名,班级 FROM [Student$] ORDER BY 学号");        
		// 执行查询语句
		recset.Open(CRecordset::forwardOnly, sSql, CRecordset::readOnly);
		while (!recset.IsEOF())// 获取查询结果
		{
			//读取Excel内部数值
			recset.GetFieldValue(_T("学号"), sItem1);
			recset.GetFieldValue(_T("姓名"), sItem2);
			recset.GetFieldValue(_T("班级"), sItem3);
			m_ListCtrl.AddString( sItem1 + "       "+sItem2+ "       "+sItem3);
			recset.MoveNext();// 移到下一行
		}
		database.Close();     // 关闭数据库                   
	}
	CATCH(CDBException, e)
	{
		AfxMessageBox(_T("数据库错误: ") + e->m_strError);
	}
	END_CATCH;
}

注意，这里的表名Student是Excel中对应的Sheet名，并且需要写成[Student$]，如果不这样写可能会提示你“数据库引擎找不到Student对象”

这样一来Excel数据读取部分就完成了，关于数据写入与更新相信大家就不会陌生了，只要我们打开了数据库连接，组合相应的SQL语句，然后执行便可以插入、更新数据了。

插入数据如下：

// 插入数值
sSql.Format(_T("INSERT INTO Student (学号,姓名,记录) VALUES ('%s','%s','1')"), str1, str2);
database.ExecuteSQL(sSql);

以我的一个点名程序为背景的部分源码如下，大家需要学习如何连接数据库并如何操作：

CDatabase database;
CString sDriver;
CString sExcelFile,sPath; 
CString sDsn;
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 + _T("\\缺勤记录.xls"); 			// 要建立的Excel文件
//Excel驱动 "Microsoft Excel Driver (*.xls)" 
sDriver = GetExcelDriver();
	
if(PathFileExists(sExcelFile))
{
	//AfxMessageBox(_T("Get file"));
	//要写入的文件存在时的操作
}		
else <span style="font-family: Arial, Helvetica, sans-serif;">//要写入的文件不存在时的操作</span>
{
	//AfxMessageBox(_T("no file"));
	TRY
	{
		// 创建进行存取的字符串
		sSql.Format(_T("DRIVER={%s};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s"),sDriver, sExcelFile, sExcelFile);
		if( database.OpenEx(sSql,CDatabase::noOdbcDialog) )// 创建数据库 (既Excel表格文件)
		{
			// 创建表结构(学号、姓名、记录)
			sSql = _T("CREATE TABLE Student (学号 INT,姓名 TEXT,记录 INT)");
			database.ExecuteSQL(sSql);
			// 插入数值
			sSql = _T("INSERT INTO Student (学号,姓名,记录) VALUES ('32212116','陈佩','0')");
			database.ExecuteSQL(sSql);
				
			for(UINT i=0; i<=vNArriveStu.size(); i++)
			{
				CString StuNo = vNArriveStu.at(vNArriveStu.size()-1);
				vNArriveStu.pop_back();//删除最后一个数据
				LVFINDINFO info;
				info.flags = LVFI_PARTIAL|LVFI_STRING;
				info.psz = StuNo;
				int nIndex = m_ListCtrlShow.FindItem(&info);
				CString str1 = m_ListCtrlShow.GetItemText(nIndex, 0);
				CString str2 = m_ListCtrlShow.GetItemText(nIndex, 1);
				// 插入数值
				sSql.Format(_T("INSERT INTO Student (学号,姓名,记录) VALUES ('%s','%s','1')"), str1, str2);
				database.ExecuteSQL(sSql);
			}
				
		}      
		// 关闭数据库
		database.Close();
		AfxMessageBox(_T("Excel文件写入成功！"));
	}
	CATCH(CDBException, e)
	{
		AfxMessageBox(_T("数据库错误: ") + e->m_strError);
	}
	END_CATCH;
}

同理，数据的更新部分只需组合以下语句：

//更新已有记录
sSql.Format(_T("UPDATE Student SET 记录=%d where 学号=%s"), count, str1);
database.ExecuteSQL(sSql);  

更新的连接部分更上面的插入代码是一样的，只是执行操作换成更新的这两句即可......

文章原地址：https://blog.csdn.net/cp32212116/article/details/40211859