《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实践经验，全部浓缩在下面的各个教程中：
