vb调用excel及access.docVIP

其中详细介绍VB对Excel与Access的操作，还是Access与Excel记录的相互导入。希望对你有用。 写入数据库，查询、分析、打印。找了很多的资料，现作一回顾总结，本篇主要写vb控制excel及access。（以下均为本人的一些心得，写的不对的，请各位师傅指正。希望本文能对和我一样菜的朋友有一些帮助。） 一、概述 使用ACCESS存取数据肯定比EXCEL快，数据量越大越明显（本程序当数据量突破1000时，感觉比较明显）。 二、vb控制excel 1、“创建实例法”： ⑴、定义： Public Ex As Object Public Exwbook As Object Public Exsheet As Object ⑵、打开与关闭： Set Ex = CreateObject(Excel.Application) Ex.Visible = False Set Exwbook = Nothing Set Exsheet = Nothing Ex.DisplayAlerts = False 默认回答 Set Exwbook = Ex.Workbooks.Open(P_csszqwjm) ‘打开P_csszqwjm文件 Set Exsheet = Exwbook.Sheets(P_cssz) 设置当前工作表为P_cssz ... Exwbook.Close Ex.DisplayAlerts = True Ex.Quit Set Exsheet = Nothing Set Exwbook = Nothing Set Ex = Nothing ⑶、EXCEL控制命令： 在VB中控制EXCEL只需在VBA语句前加上相应的对象名(或将原来的workbooks、sheet替换为自己设置的变量Exwbook、Exsheet)即可。如： Exwbook.sheet.add ‘增加工作表 Exsheet.cells(1,1)=”试验” 2、使用ADO方法：(具体参见下一部分) Public Adocon As ADODB.Connection ‘链接 Public Adorst As ADODB.Recordset ‘记录集 Adocon.Open Provider=Microsoft.Jet.OLEDB.4.0; _ Data Source=C:Book1.xls; Extended Properties=Excel 8.0; Adorst.Open Select * from [Sheet1$], Adocon, adOpenStatic 打开Sheet1，也可以是定义的名称，或一个Range。 三、VB(VBA)控制ACCESS VB(VBA)控制ACCESS有几种方法，这里只讨论ADO。 1、定义： Public Adocon As ADODB.Connection ‘键接 Public Adorst As ADODB.Recordset ‘记录集 2、打开与关闭： Set Adocon = New ADODB.Connection Set Adorst = New ADODB.Recordset Adocon.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= P_Wjlj P_lssjwjm ‘P_Wjlj、P_lssjwjm分别为文件路径与文件名 Adorst.Open P_lssj, Adocon, adOpenStatic, adLockReadOnly, adCmdTable ‘P_lssj：变量，表名 P_lssjjlzs = Adorst.RecordCount 记录总数 If P_lssjjlzs 0 Then P_sjqsj = Adorst!f_rq 第一条记录日期字段内容 Adorst.MoveLast P_zxsjrq = Adorst!f_rq 最后一条记录日期字段内容 End If Adorst.Close Adocon.Close Set Adorst = Nothing Set Adocon = Nothing 说明： Adocon.Open方法中参数：ConnectionString, UserID, Password, Options ConnectionString 可选，连接字符串 UserID 可选，字符串，包含建立连接时所使用用户名。 Password 可选，字符串，包含建立连接时所使用密码。 Options 可选，ConnectOptionEnum 值。决定该方法是在连接建立之后（异步）还是连接建立之前（同步）返回。可以是如下某个常量： 常量 说明 adConnectUnspecified （默认）同步打开连接。 adAsyn