ＤＢ与Ｅｘｃｅｌ相互转换的实现方法.docVIP

ＤＢ与Ｅｘｃｅｌ相互转换的实现方法 　　摘要:DB可以实现数据的共享与查询;Excel可以对数据进行处理与分析。随着数据库技术和办公自动化技术的相互结合,急需解决两者之间的相互转换问题。该文以实例探讨了DB与Excel实现相互转换的方法。 　　关键词:DB;Excel;相互转换 　　中图分类号:TP317文献标识码:A文章编号:1009-3044(2009)24-6753-03 　　 　　Approach for Reciprocal Convertion on DB and Excel 　　XU Bin 　　(Department of Computer and Information Technology, Nanjing Yingtian College, Nanjing 210046, China) 　　Abstract: DB can achieve share and query of data;Excel may accomplish process and analyze of data.As combination of database technique and office automation technique,it is necessarily to solve the problem of their convertion.This paper gives example to discuss the methods of reciprocal convertion on DB and Excel. 　　Key words: DB; Excel; reciprocal convertion 　　 　　在实际工作中,常常需要把某些相关数据导入到DB(数据库)中,以便实现数据的共享与查询,如何利用已有的Excel数据已成为一个棘手问题;另外,由于Excel具有强大的数据处理和数据分析功能,也常需要将DB中的数据导入到Excel中进行相应地统计分析。本文通过具体实例讨论了DB与Excel之间实现相互转换的方法。 　　 　　1 Excel与DB的相互转换 　　 　　软件开发工具为VB,数据库为Access。 　　VB是微软公司开发的、事件驱动的编程语言,具有强大的数据处理功能。它提供了对多种数据库的访问方法,可以方便地访问SQL Server、Oracle、Access等数据库。 　　Access 是微软公司开发的基于Windows的桌面关系数据库管理系统。它为建立功能完善的数据库管理系统提供了方便。 　　1.1 DB To Excel 　　实现数据库表中数据自动转存到Excel表中。例如,已有一文件名“AA.mdb”的Access数据库文件,该数据库中有一名为“番禺区农用地标准样地属性数据表”的数据表,数据表如图1所示。 　　在VB中,引用“Microsoft ActiveX Data Objects 2.6 Library”和“Microsoft Excel 11.0 Object Library”,即ADO对象和Excel对象。通过ADO对象访问数据库实现DB到Excel的转换。 　　程序代码如下: 　　Dim cnn As New ADODB.Connection 数据库连接对象 　　Dim rs As New Recordset 记录集对象 　　Dim VBExcel As Excel.Application 定义一个Excel应用 　　Dim Excelbook As Excel.Workbook 定义一个Excel工作簿 　　Dim ExcelSheet As Excel.Worksheet 定义一个Excel工作表 　　Dim ExcelFilename As StringExcel文件名 　　Dim TableName As String 数据库表名 　　Dim s As String 　　Dim i, j As Integer 　　Dim row As Integer 记录数 　　TableName = 番禺区农用地标准样地属性数据表 　　Set VBExcel = CreateObject(Excel.Application) 创建Excel对象 　　Set Excelbook = VBExcel.Workbooks().Add 生成工作簿 　　Set ExcelSheet = Excelbook.Worksheets(Sheet1) 生成工作表 　　s = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= App.Path \AA.mdb 连接Access