Excel中经常需要使用到自动求和公式，自动求和具体该如何操作呢?接下来小编举例简单的例子告诉大家excel设置自动求和公式的方法。excel设置自动求和公式的方法设置自动求和公式步骤1：将鼠标放在要求和数据区域的紧挨着的下面一个单元格，如下图的D10单元格，然后点击【开始】-【自动求和】按钮就可以自动求D......
ADO 访问 Excel 数据 实现代码及源码下载
Excel函数
2021-11-17 14:19:59
我们都知道可以像操作数据表一样使用 ADO 来访问 Excel 文档, 在 Excel 2003 及以前的版本是使用的Microsoft.Jet.OLEDB.4.0 引擎(简称 Jet 引擎)来访问 Excel 数据，但随着 Offic 2007 的推出， 微软发布了最新的 Microsoft.ACE.OLEDB.12.0 引擎(简称 ACE 引擎). 这个新的数据引擎不仅可以访问 Excel 2007 文件类型， 还兼容支持 Excel 97-2003 文件类型，下面就来简单来说一说这两个引擎。
连接字符串的写法
不同的 ADO 引擎访问 Excel 数据有不同的连接字符串的写法，Excel 2003 版本和 2007 版本的写法分别如下(其中的 [Excel-FullName] 为你需要访问的 Excel 文件全名):
- Excel2003 及以前版本的写法:
Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & [Excel-FullName] & _"; Extended Properties='Excel 8.0; HDR=Yes; IMEX=1'"
- Excel2007 及以后版本的写法:
"Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & [Excel-FullName] & _"; Extended Properties='Excel 12.0; HDR=YES; IMEX=1'"
特别说明:
- HDR=YES 表示第一行是列名而不是数据； HDR=NO 则正好与前面的相反, 系统默认为 HDR=YES。
- IMEX ( IMport EXport mode )有三种模式：
0 表示输出模式: 此时 Excel 文档只能用来做“写入”用途。
1 表示输入模式: 此时 Excel 文档只能用来做“读取”用途。
2 表示链接模式(完全更新能力): 此时 Excel 文档可同时支持“读取”与“写入”用途。
示例代码：
Option Explicit
Sub btnADO_Click()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim xADOCon As Variant
Dim xADORs As Variant
Dim xSQLStr As String
Dim I As Long
ThisWorkbook.Names.Item("Result").RefersToRange.ClearContents
'创建数据库连接
Set xADOCon = CreateObject("Adodb.Connection")
' 打开数据库连接
' 2007及以后版本
xADOCon.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & ThisWorkbook.FullName & "; Extended Properties='Excel 12.0; HDR=YES; IMEX=1'"
' 2003及以前版本
'xADOCon.Open "Provider=Microsoft.jet.OLEDB.4.0; Data Source=" & ThisWorkbook.FullName & "; Extended Properties='Excel 8.0; HDR=YES; IMEX=1'"
' 设置SQL语句
xSQLStr = "SELECT * FROM [Data_1$] WHERE 姓名='王二' OR 姓名='马五' AND 年龄>30"
' 将SQL语句获得的数据传递给数据集
Set xADORs = xADOCon.Execute(xSQLStr)
' 获得SQL结果的列标题
For I = 1 To xADORs.Fields.Count
ThisWorkbook.Names.Item("Result").RefersToRange.Cells(1, I) = xADORs.Fields(I - 1).Name
Next
ThisWorkbook.Names.Item("Result").RefersToRange.Range("a2").CopyFromRecordset xADORs
'关闭数据库连接
xADOCon.Close
Set xADOCon = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
示例文件下载
| 1文件名称 | 1下载链接 |
|---|---|
| ADO.zip | http://pan.baidu.com/s/1qWlXQS8 |
相关文章