在VBA中使用API函数的文章.docx

如何用vba代码将access数据库连接求代码.用vba连接ACESS：Set Conn Server.CreateObjectADODB.ConnectionConn.ConnectionStringProviderMicrosoft.Jet.OLEDB.4.0;Data Source Server.MapPathsample.mdbConn.Open.用vba连接EXCEL,打开EXCEL记录集：Set connExcel Server.CreateObjectADODB.ConnectionconnStrProviderMicrosoft.Jet.OLEDB.4.0;Data Source Server.MapPath InputExcel\sample.xls ;Extended PropertiesExcel 8.0;HDRYES;IMEX1; connExcel.Open connStrSet rs Server.CreateObjectADODB.Recordsetrs.Open Select * From [sheet1$], connExcel, 0, 1.vba数据处理[转载]:用Excel+VBA+SQL Server进行数据处理使用Excel+VBA+SQL Server进行数据处理是一种简单有效方法，掌握以下基础知识实现快速入门掌握excel/vba/sqlserver各1%内容，你就能成为数据处理高手的:：一、Excel基础知识了解工作簿Workbook、工作表Worksheet、单元格Cell等的基本概念，熟悉一些基本操作。二、SQL Server基础知识参见1、数据库有关概念：数据库、表、记录、字段A数据库DatabaseB表Table、记录（行，Row,Record）、字段（列，Column,Field）...2、常见数据操作的SQL命令：select, insert , update ,delete三、VBA基础知识：1、基本概念。2、基本控制结构：·顺序结构:程序按顺序执行;·分支结构命令:if 条件 then如果条件成立执行本语句块end if 或：if ... then... else ...end if 或：if ... then...elseif ......else...end if 等。。·循环结构命令：for i? to ??...next或do while ......loop3、在VBA中操纵对象，先理解操纵EXCEL工作表和数据库对象：将值写入EXCEL单元格，如：thisworkbook.worksheetssheet1.cells1,座机电话号码从EXCEL单元格取得数值，如：xthisworkbook.worksheetssheet1.cells1,2数据库操作：cn.open ...（建立数据连接对象）rs.open ... （建立数据集对象）xrs... （读取数值）rs.close （关闭rs）cn.close （关闭cn）cn.execute （执行sql语句）...四、例子sub test 定义过程名称Dim i As Integer, j As Integer, sht As Worksheet i,j为整数变量；sht 为excel工作表对象变量，指向某一工作表Dim cn As New ADODB.Connection 定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用Dim rs As New ADODB.Recordset 定义记录集对象，保存数据表Dim strCn As String ,strSQL as String 字符串变量strCn Providersqloledb;Server服务器名称或IP地址;Database数据库名称;Uid用户登录名;Pwd密码; 定义数据库链接字符串下面的语句将读取数据表数据，并将它保存到excel工作表中：画两张表想像一下，工作表为一张两维表，记录集也是一张两维表strSQL select 字段1,字段2 from 表名称 定义SQL查询命令字符串cn.Open strCn 与数据库建立连接，如果成功，返回连接对象cnrs.Open strSQL, cn 执行strSQL所含的SQL命令，结果保存在rs记录集对象中i 1Set sht ThisWorkbook.Worksheetssheet1 把sht指向当前工作簿的sheet1工作表Do While Not rs.EOF 当数据指针未移到记录集末尾时，循环下列操作sht.Cellsi, 1 rs字段1 把当前记录的字段1的值保存到sheet1工作表的第i行第1列sht.Cellsi, 2 rs字段2 把当前字段2的值保存