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

待我称王封你为后i 2023-10-18 08:05 43阅读 0赞

**针对Excel表格文件操作的编程实现**  
编译： \[email= 徐景周 \]jz-x@163.com\[/email\]  
[下载本文示例源代码][Link 1]  
  
简介  
通过本文及配套示例源码你可以更加灵活的控制Excel表格文件，其中包括创建新Excel文件、写入表格数据、读取表格数据(包括对原建Excel文件自已手工添加的行、列数据的准确读取)，删除已有Excel表格，对表格中指定行、列、单元格进行查询、插入、替换等操作，同时还可以将生成的Excel文件转换为按指定分隔符分隔的其它文本格式的文件。下面是把此方法用VC6编写的示例程序运行效果：  
  
![针对Excel表格文件操作的编程实现 - 清雨小竹 - 清雨小竹][Excel_ - _ -]  
  
基本思路  
基础实现方法同上篇文章[《直接通过ODBC读、写Excel表格文件》][ODBC_Excel]相同，都是通过ODBC来把Excel表格文件当成数据库文件来进行读、写等操作，所以在Excel表格文件中写入的行头名必须是唯一的(不要重名，相当于数据库中的ID值)。本文中对Excel文件的操作都被封装进一个类CSpreadSheet中，通过它我们可以非常简便的实现各种Excel表格数据操作，并且可以对该类进行扩充来满足自己的需求。  
**具体实现**  
  
![针对Excel表格文件操作的编程实现 - 清雨小竹 - 清雨小竹][Excel_ - _ - 1] 一、 包含Excel文件操作类头文件  
\#include "CSpreadSheet.h"  
**![针对Excel表格文件操作的编程实现 - 清雨小竹 - 清雨小竹][Excel_ - _ - 1] 二、 新建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*);sampleArray.Add(strAge);SS.AddRow(sampleArray);\}SS.Commit();*  
  
**![针对Excel表格文件操作的编程实现 - 清雨小竹 - 清雨小竹][Excel_ - _ - 1] 三、 读取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);elsestrContents = strContents + " --> " + Rows.GetAt(j-1);\}m\_AccessList.AddString(strContents);\}  
  
![针对Excel表格文件操作的编程实现 - 清雨小竹 - 清雨小竹][Excel_ - _ - 1] 四、 对已存在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_ - _ - 1] 六、 将存在的Excel转换另存为指定分隔的文本文件 // 将原Excel文件转换为用分号分隔的文本，并另存为同名文本文件SS.Convert(";");   
![针对Excel表格文件操作的编程实现 - 清雨小竹 - 清雨小竹][Excel_ - _ - 1] 七、 删除Excel中表格 SS. DeleteSheet(); // 删除Excel文件中所有表格SS. DeleteSheet(" TestSheet "); // 删除Excel中TextSheet表格  
**![针对Excel表格文件操作的编程实现 - 清雨小竹 - 清雨小竹][Excel_ - _ - 1] 八、 获取Excel中总行数、总列数、当前行**int iCols = SS.GetTotalColumns(); // 总列数int iRows = SS.GetTotalRows(); // 总行数int iCurRow = SS.GetCurrentRow(); // 当前所在行号  
![针对Excel表格文件操作的编程实现 - 清雨小竹 - 清雨小竹][Excel_ - _ - 1] 九、 获取行头数据 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

[Link 1]: http://www.vckbase.com/code/downcode.asp?id=1966
[Excel_ - _ -]: http://www.vckbase.com/document/journal/vckbase22/images/ExcelAccess22.gif
[ODBC_Excel]: http://www.vckbase.com/document/viewdoc.asp?id=421
[Excel_ - _ - 1]: http://www.vckbase.com/document/image/paragraph.gif