针对Excel表格文件操作的编程实现

针对Excel表格文件操作的编程实现
编译：

简介
通过本文及配套示例源码你可以更加灵活的控制Excel表格文件，其中包括创建新Excel文件、写入表格数据、读取表格数据(包括对原建Excel文件自已手工添加的行、列数据的准确读取)，删除已有Excel表格，对表格中指定行、列、单元格进行查询、插入、替换等操作，同时还可以将生成的Excel文件转换为按指定分隔符分隔的其它文本格式的文件。下面是把此方法用VC6编写的示例程序运行效果：



基本思路
基础实现方法同上篇文章相同，都是通过ODBC来把Excel表格文件当成数据库文件来进行读、写等操作，所以在Excel表格文件中写入的行头名必须是唯一的(不要重名，相当于数据库中的ID值)。本文中对Excel文件的操作都被封装进一个类CSpreadSheet中，通过它我们可以非常简便的实现各种Excel表格数据操作，并且可以对该类进行扩充来满足自己的需求。

具体实现

一、 包含Excel文件操作类头文件

#include "CSpreadSheet.h"

二、 新建Excel文件，并写入默认数据

// 新建Excel文件名及路径，TestSheet为内部表名
CSpreadSheet SS("c:\\Test.xls", "TestSheet");

CStringArray sampleArray, testRow;
	
SS.BeginTransaction();
	
// 加入标题
sampleArray.RemoveAll();
sampleArray.Add("姓名");
sampleArray.Add("年龄");
SS.AddHeaders(sampleArray);

// 加入数据
CString strName[] = {"徐景周","徐志慧","郭徽","牛英俊","朱小鹏"};
CString strAge[]  = {"27","23","28","27","26"};
for(int i = 0; i < sizeof(strName)/sizeof(CString); i++)
{
	sampleArray.RemoveAll();
	sampleArray.Add(strName[i]);
	sampleArray.Add(strAge[i]);
	SS.AddRow(sampleArray);
}
	
SS.Commit();

三、 读取Excel文件数据

CSpreadSheet SS("c:\\Test.xls", "TestSheet");

CStringArray Rows, Column;

//清空列表框
m_AccessList.ResetContent();
for (int i = 1; i <= SS.GetTotalRows(); i++)
{
	// 读取一行
	SS.ReadRow(Rows, i);
	CString strContents = "";
	for (int j = 1; j <= Rows.GetSize(); j++)
	{
		if(j == 1)
			strContents = Rows.GetAt(j-1);
		else
			strContents = strContents +  " --> " + Rows.GetAt(j-1);
	}

	m_AccessList.AddString(strContents);
}

四、 对已存在Excel表格数据进行添加、插入、替换操作

// 初始化测试行数据，进行添加、插入及替换数据操作演示
for (int k = 1; k <= 2; k++)
{
	testRow.Add("Test");
}
	
SS.AddRow(testRow);		// 添加到尾部
SS.AddRow(testRow, 2);		// 插入新行到第二行
SS.AddRow(testRow, 6, true);	// 替换原第四行来新的内容
SS.AddCell("徐景周", 1,2);    // 添加(不存在)或替换(存在)第二行，第一列单元格内容

SS.Commit();	

五、 对已存在Excel表格数据进行行、列、单元格查询

void CExcelAccessDlg::OnQuery() 
{
	CSpreadSheet SS("c:\\Test.xls", "TestSheet");

	CStringArray Rows, Column;
	CString tempString = "";

	UpdateData();

	if(m_strRow == "" && m_strColumn == "")         // 查询为空
	{
		AfxMessageBox("行号、列号不能同时为空!");
		return;
	}    
	else if(m_strRow == "" && m_strColumn != "")    // 查询指定列数据
	{
		int iColumn = atoi(m_strColumn);
		int iCols = SS.GetTotalColumns();
		if(iColumn > iCols)	// 超出表范围查询时
		{
			CString str;
			str.Format("表中总列数为: %d, ", iCols);
			AfxMessageBox(str + " 查询列数大于Excel表中总列数，请重新输入!");
			return;
		}

		// 读取一列数据，并按行读出
		if(!SS.ReadColumn(Column, iColumn))
		{
			AfxMessageBox(SS.GetLastError());
			return;
		}

		CString tmpStr;
		for (int i = 0; i < Column.GetSize(); i++)
		{
			tmpStr.Format("行号: %d, 列号: %d ,内容: %s\n", i+1,iColumn,Column.GetAt(i));
			tempString += tmpStr;
		}
		
		AfxMessageBox(tempString);
	}
	else if(m_strRow != "" && m_strColumn == "")     // 查询指定行数数据
	{
		int iRow = atoi(m_strRow);
		int iRows = SS.GetTotalRows();
		
		if(iRow > iRows)	// 超出表范围查询时
		{
			CString str;
			str.Format("表中总行数为: %d, ", iRows);
			AfxMessageBox(str + " 查询行数大于Excel表中总行数，请重新输入!");
			return;
		}

		// 读取指定行数据
		if(!SS.ReadRow(Rows, iRow))
		{
			AfxMessageBox(SS.GetLastError());
			return;
		}

		CString tmpStr;
		for (int i = 0; i < Rows.GetSize(); i++)
		{
			tmpStr.Format("行号: %d, 列号: %d ,内容: %s\n", iRow, i+1, Rows.GetAt(i));
			tempString += tmpStr;
		}

		AfxMessageBox(tempString);
	}
	else if(m_strRow != "" && m_strColumn != "")     // 查询指定单元格数据
	{
		int iRow = atoi(m_strRow), iColumn = atoi(m_strColumn);
		int iRows = SS.GetTotalRows(), iCols = SS.GetTotalColumns(); 
		
		if(iColumn > iCols)             // 超出表范围查询时
		{
			CString str;
			str.Format("表中总列数为: %d, ", iCols);
			AfxMessageBox(str + " 查询列数大于Excel表中总列数，请重新输入!");
			return;
		}
		else if(iRow > iRows)
		{
			CString str;
			str.Format("表中总行数为: %d, ", iRows);
			AfxMessageBox(str + " 查询行数大于Excel表中总行数，请重新输入!");
			return;
		}

		// 读取指定行、列单元格数据
		if(!SS.ReadCell(tempString, iColumn, iRow))
		{
			AfxMessageBox(SS.GetLastError());
			return;
		}

		CString str;
		str.Format("行号: %d, 列号: %d ,内容: %s", iRow,iColumn,tempString);
		AfxMessageBox(str);
	}
	
}

六、 将存在的Excel转换另存为指定分隔的文本文件

// 将原Excel文件转换为用分号分隔的文本，并另存为同名文本文件
SS.Convert(";"); 

七、 删除Excel中表格

SS. DeleteSheet();            // 删除Excel文件中所有表格
SS. DeleteSheet(" TestSheet ");  // 删除Excel中TextSheet表格

八、 获取Excel中总行数、总列数、当前行

int iCols = SS.GetTotalColumns();   // 总列数
int iRows = SS.GetTotalRows();    // 总行数
int iCurRow = SS.GetCurrentRow(); // 当前所在行号

九、 获取行头数据

CStringArray rowHeader;
SS.GetFieldNames(rowHeader);
CString tmpStr;
for (int i = 0; i < rowHeader.GetSize(); i++)
{
		tmpStr.Format("行号: %d, 列号: %d ,内容: %s\n", 1, i+1, rowHeader.GetAt(i));
		tempString += tmpStr;
}
AfxMessageBox(tempString);

最后，如果想知道详细实现细节的话，可以在下载示例源码后，仔细查看源码既可(内有详细注释)。

参考文献：
直接通过ODBC读、写Excel表格文件 – 徐景周(译)
A Class to Read and Write to Excel and Text Delimited Spreadsheet – Yap Chun Wei

联系方式：
地址：陕西省西安市劳动路2号院六单元
邮编：710082
EMAIL：[e-mail]
未来工作室(Future Studio)

--------------------next---------------------

在一个1M大小的excel文件里操作，直接就没响应了，大家有遇到这个情况吗？大概9000多行的excel表 ( mxling 发表于 2008-8-28 17:54:00)
 
请问如何枚举Excel中的工作表啊？ ( whisperlin 发表于 2007-12-31 14:20:00)
 

codeguru 上有例子,
鉴定完毕. ( yidingyu 发表于 2007-12-4 9:05:00)
 
看了作者写的内容获益匪浅，运行示例程序也很好，可是当要根据自己的需求修改表格格式时，总是出现异常，还请那位高出赐教，每次执行Open时，出现错误
m_sSql.Format("SELECT * FROM [%s$A1:IV65536]", m_sSheetName);
try
{
m_rSheet->Open(CRecordset::forwardOnly, m_sSql, CRecordset::readOnly);
}
catch(...)
{
   delete m_rSheet;
   m_rSheet = NULL;
   m_Database->Close();
   return false;
} ( freemyself 发表于 2007-6-22 16:33:00)
 
读取EXCEL表格的CSpreadSheet类,出来的数据有个" ' ",去掉" ' "不能读,怎么解决 ( lcj_01 发表于 2007-3-16 21:39:00)
 
我现有一个有2000多个英语字符串的Excel表，用VC编了一个小程序，得到Excel表中指定单元格的字符串
的象素宽度，然后我想把这些值写进Excel表中对应字符串右边的列中，但发现当单元格中的字符串包含单引号时，如单元格的字符串为“The book is 'technolgy'”,则会把这个字符串后的所有字任串全部清空。后来我进行断点跟踪，发
现在调用Commit()中的
// Add row
try
{
m_Database->ExecuteSQL(m_stempSql);
}

代码出现问题，提示“SQL语法解析错误“
由于对SQL语法的不熟悉，不知如何转义。不知如何解决，很希望能得到徐工或其他专家的指点，十分的感谢！
( aux0 发表于 2006-10-22 11:07:00)
 

  目前我想得到EXCEL表格中的数据的UNICODE码，然后将得到的UNICODE进行处理，除了“另存为UNICODE文本”还有没有其他的方法？我现在的做法是导入ACCESS中，然后把每个字段的类型改成“OLE对象”，但是这样做太麻烦。
  我想了两个方法，一个是用VC直接将EXCEL导入ACCESS（目前不知道如何导入）；另一个是直接解析EXCEL文件（但是EXCEL文件的格式满复杂的，而且基本上不能保证对文件的解析的正确），就这个问题，想请您帮助解决以下，谢谢！
  
   再次感谢！
( gongxuan 发表于 2006-9-15 9:53:00)
 
问题出在CSpreadSheet类，因为它将所有excel数据库里面的Field定义为字符串类型。所以，对于非字符串的数据类型，比如数字，在写入excel表单的时候会在前面加一个“'”从而表示他是一个字符串，而不是一个数字！ ( Yang_Yaowei 发表于 2006-5-19 23:59:00)
 
我是枫雁,又来了,向大家汇报一下,我后来始终没有去掉单引号"'"。于是我用了另一种简单的办法解决了，就是不用ODBC，用\t来解决。例如 编号\t姓名\t年龄\t，保存成xls后，excel会解析出来，可能满足我的需要。 ( 枫雁 发表于 2006-3-3 10:27:00)
 
徐兄，在读了您的<<直接通过ODBC读写Excel表格文件>>后，收益非浅，我试了一下看能否删除Excel表中对应的内容，要么提示"记录集是只读"，要么提示"该 ISAM 不支持在链接表中删除数据"，请赐教。 ( jackymlm 发表于 2005-11-28 17:06:00)
 
.......................................................

--------------------next---------------------