基于VB的Excel与Access数据交换的实现.pdfVIP

l学术探讨 应用技术与研究 — — — — — 一 “MicrosoftExcel11．0ObjectLibrary”两个选项后 ，单击 “确 Cnn．Executesql在‘图书信息表末尾插入一条新记录 定”按钮，将 ADO对象和 Excel对象引用到工程中，然后在 row =row + l 窗体 Forml中添加两个命令 按钮 “access导 出 excel” Loop fOutExce1)和 “excel导入 Access”按钮(inputAcc)。完成此程 exlapp．ActiveWorkbook．CloseFalse 关‘闭Excel文件但不 序要在D盘根 目录下建立一个包含 “图书信息”表的Access 保存 数据库 (图书管理．mdb)，再建立新购图书．Xls和myex1． exlapp．Quit退‘出Excel应用程序 xls两个工作簿，其中新购图书．xls的结构与 “图书信息”表 Setexlsheet=Nothing 释‘放 Excel工作表对象 的结构一样，用于导入，myex1．xls用于导出报表。程序设计 Setexlapp=Nothing 释‘放Excel工作簿对象 界面如下图 1所示，导入前 “图书信息”表的内容如 图2所 Screen．MousePointer=vbDefault 示，导入后 “图书信息”表的内容如图3所示。 EndSub 4，2 代码的编写及说明 (4)a‘‘ccess导出excel”按钮(OutExce1)单击事件代码 (1)在窗体的通用区声明对象变量： PrivateSubCommand2_ Click() OptionExplicit Dim row AsInteger，colAsInteger Dim exlappAsexce1．Application Setrst．ActiveConnection=cnn 记‘录集中创建连接 Dim exlbookAsexce1．Workbook rst．Open ” 图 书 信 息 ”， can， adOpenStatic， Dim exlsheetAsexce1．W orksheet adLockBatchOptimistic 打‘开图书信息表 说明：声明Excel编程模型对象 Setexlapp=CreateObject(”exce1．application”) 创‘建 Excel Dim cnnAsNew ADODB．Connection 应用程序对象 Dim rstAsNewADODB．Recordset Setexlbook=exlappW．orkbooks．Open(”d：Vnyex1．xls”) 打‘ 说明：声明ADO编程模型对象 开Excel工作簿 (2)在窗体的Load事件中建立与数据库的连接