
具体实现
一、 包含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 = 0i <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 = 1i <= SS.GetTotalRows()i++)
{
// 读取一行
SS.ReadRow(Rows, i)
CString strContents = ""
for (int j = 1j <= Rows.GetSize()j++)
{
if(j == 1)
strContents = Rows.GetAt(j-1)
else
strContents = strContents + " -->" + Rows.GetAt(j-1)
}
m_AccessList.AddString(strContents)
}
基本思路基础实现方法同上篇文章《直接通过ODBC读、写Excel表格文件》相同,都是通过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 = 0i <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 = 1i <= SS.GetTotalRows()i++)
{
// 读取一行
SS.ReadRow(Rows, i)
CString strContents = ""
for (int j = 1j <= 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 = 1k <= 2k++)
{
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 = 0i <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 = 0i <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 = 0i <rowHeader.GetSize()i++)
{
tmpStr.Format("行号: %d, 列号: %d ,内容: %s\n", 1, i+1, rowHeader.GetAt(i))
tempString += tmpStr
}
AfxMessageBox(tempString)
最后,如果想知道详细实现细节的话,可以在下载示例源码后,仔细查看源码既可(内有详细注释)。
想要通过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=1READONLY=FALSECREATE_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
}
3. 通过ODBC直接读取Excel文件(暂定文件名:Demo.xls)
// 读取Excel文件
void CRWExcel::ReadFromExcel()
{
CDatabase database
CString sSql
CString sItem1, sItem2
CString sDriver
CString sDsn
CString sFile = "Demo.xls"// 将被读取的Excel文件名
// 检索是否安装有Excel驱动 "Microsoft Excel Driver (*.xls)"
sDriver = GetExcelDriver()
if (sDriver.IsEmpty())
{
// 没有发现Excel驱动
AfxMessageBox("没有安装Excel驱动!")
return
}
// 创建进行存取的字符串
sDsn.Format("ODBCDRIVER={%s}DSN=''DBQ=%s", sDriver, sFile)
TRY
{
// 打开数据库(既Excel文件)
database.Open(NULL, false, false, sDsn)
CRecordset recset(&database)
// 设置读取的查询语句.
sSql = "SELECT Name, Age "
"FROM demo "
"ORDER BY Name "
// 执行查询语句
recset.Open(CRecordset::forwardOnly, sSql, CRecordset::readOnly)
// 获取查询结果
while (!recset.IsEOF())
{
//读取Excel内部数值
recset.GetFieldValue("Name ", sItem1)
recset.GetFieldValue("Age", sItem2)
// 移到下一行
recset.MoveNext()
}
// 关闭数据库
database.Close()
}
CATCH(CDBException, e)
{
// 数据库 *** 作产生异常时...
AfxMessageBox("数据库错误: " + e->m_strError)
}
END_CATCH
}
// 获取ODBC中Excel驱动
CString CRWExcel::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
}
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)