怎么使用EXCEL建立数据库？

巧用Excel建立数据库大法！\x0d\x0a\x0d\x0a日常工作中，我们常常需要建立一些有规律的数据库。例如我为了管理全乡的农业税，需建立一数据库，该数据库第一个字段名为村名，第二个字段名为组别。我乡共19个村，每个村7～17个组不等，共计258个组。这个数据库用数据库软件（哪怕是Visual FoxPro 6.0或是Access97等高档次的）很不好建立——逐个儿输入吗，只有傻瓜才有这种想法。用Access宏或FoxPro编程来输入吧，这些数据似乎还嫌不够规则（每个村对应的组数不一定相同），这个程序编写可就不那么简单了，除非你是编程高手兼编程迷，否则可有小题大作之嫌了。 \x0d\x0a\x0d\x0a其实Excel提供了一些很有用的功能，可让我们任何一个人都可轻松搞定这些数据库： \x0d\x0a\x0d\x0a第一步：打开Excel97（Excel2000当然也行），在A列单元格第1行填上“村名”，第2行填上“东山村”，第19行填上“年背岭村”（注：东山17个组，2＋17=19据此推算），第28行填上“横坡村”（算法同前，牛背岭村9个组：19＋9=28），如此类推把19个村名填好。 \x0d\x0a\x0d\x0a第二步：在第B列第1行填上“组别”，第2行填上“第1组”并在此按鼠标右键选择“复制”把这三个字复制剪贴板，然后在每一个填有村名的那一行的B列点一下鼠标右键选择“粘贴”在那里填上一个“第1组”。 \x0d\x0a\x0d\x0a第三步；用鼠标点击选中A2“东山村”单元格，然后把鼠标单元格右下角（此时鼠标变为单“十”字形），按住鼠标往下拖动，拖过的地方会被自动填上“东山村”字样。用同样的方法可以把其它村名和组别用鼠标“一拖了之”。填组别时你别担心Excel会把组别全部填为“第1组”，只要你别把“第1组”写成“第一组”，Excel会自动把它识别为序列进行处理。所以拖动“第1组”时，填写的结果为“第2组”“第3组”??填完这两个字段后，其它的数据可以继续在Excel中填写，也可等以后在数据库软件中填写，反正劳动强度差不多。 \x0d\x0a\x0d\x0a第四步：保存文件。如果你需要建立的是Access数据库，那么别管它，就用Excel默认的“.xls”格式保存下来。如果你需要建立的是FoxPro数据库，那么请以Dbase 4 （.dbf）格式保存文件。 \x0d\x0a\x0d\x0a第五步：如果需要的是Access数据库，那么你还必需新建一个Access数据库，在“新建表”的对话框里，你选择“导入表”然后在导入对话框中选择你刚刚存盘的“.xls”文件。（什么？你找不到？！这个对话框默认的文件类型是Microsoft Access，只要你改为Microsoft Excel 就能找到了），选择好导入文件后，你只要注意把一个“第一行包含列标题”的复选框 芯托辛耍ㄈ绻悴恍枰_D字段，你可以在Access向你推荐主关键字时拒绝——选择“不要主关键字”），其余的你都可视而不见，只管按“下一步”直至完成。导入完成后你可以打数据库进行使用或修改。如果你需要的是FoxPro数据库，那么更简单，可以直接用FoxPro打开上一步你存盘的“.dbf”文件，根据需要进行一些诸如字段宽度、字段数据类型设置就可以使用了。 \x0d\x0a\x0d\x0a说到这里，你可能会说“呀，太简单了，我也会”，那么好了，我写这篇文章的目的就是要大家尽可能不再做那些很麻烦的事，“该偷懒时就偷懒”嘛。

基本思路

基础实现方法同上篇文章《直接通过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)

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

---