《VBA数据库解决方案》教程（版权10090845）是我推出的第二套教程，目前已经是第二版修订了。这套教程定位于中级，是学完字典后的另一个专题讲解。数据库是数据处理的利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，教程第一版的修订内容主要是完成所有程序文件的32位和64位OFFICE系统测试。

这套教程共两册，八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是：VBA数据库解决方案第九讲：打开数据库记录集，把所得的数据回填到工作表

【分享成果，随喜正能量】成年人只能筛选，不能教育。人教人，教不会，事教人，一次就够。吃亏和吃饭一样，吃多了自然就会成长！。

第九讲 打开数据库记录集，把所得的数据回填到工作表

大家好，今日继续讲解VBA数据库解决方案的第9讲内容，打开一个数据库记录集，并把数据放到工作表文件中。

数据库的讲解开始进入到实际操作阶段，数据库的内容涉及到知识较多，还是之前强调的，这是VBA中级及以上水平的范畴，对于基础没有牢固的朋友，一定要下功夫把基础打牢，才可以逐渐过渡到数据库的学习。一定要对照我的第一套教程《VBA代码解决方案》，把各个知识点要弄通，然后再学习这套教程，可以收到事半功倍的效果。

1 应用场景的具体分析

回到我们的话题，实例，有一个数据库文件名为mydata,里面记录了某公司员工的情况，我命名为“职员表”，如下面的截图，我只是给出了两个数据，如何把数据库中的数据中符合部门为总务的数据导出到EXCEL文件中，以利于查看呢？

2 打开数据库，把所得的数据回填到工作表中的代码及代码分析

下面我们看看代码将如何书写：

Sub mynz_9() '第9讲内容，打开一个数据库记录集，并把数据放到工作表文件中

Dim cnADO As Object, rsADO As Object

Dim strPath As String, strSQL As String

Dim i As Integer

Set cnADO = CreateObject("ADODB.Connection")

Set rsADO = CreateObject("ADODB.RecordSet")

strPath = ThisWorkbook.Path & "\mydata.accdb"

cnADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath

strSQL = "SELECT * FROM 职员表 WHERE 部门='总务'"

rsADO.Open strSQL, cnADO, 1, 3

Sheets("9").Select

Cells.ClearContents

For i = 0 To rsADO.Fields.Count - 1

Cells(1, i + 1) = rsADO.Fields(i).Name

Next i

Range("A2").CopyFromRecordset rsADO

rsADO.Close

cnADO.Close

Set rsADO = Nothing

Set cnADO = Nothing

End Sub

代码截图：

代码讲解：

[待续]

本讲内容参考程序文件：VBA与数据库操作（第一册）.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：