初学者请教VBA的SQL问题

jonzgl

网上找了很多教程，也请教了同事。
但是目前对于VBA写入SQL并不太熟悉，特此发帖请教一下。

Sub SQL练习()
       Dim cnn As Object
       Dim SQL1 As Variant
       Dim Rst1 As Object
       SQL1 = "SELECT * FROM [数据源$]"
       Set cnn = CreateObject("adodb.connection")
       cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
       Set RST1 = cnn.Execute(SQL1)
       Worksheets("sheet2").Range("A1").CopyFromRecordset RST1
       Set cnn = Nothing
       cnn.Close
END SUB

上述这段VBA中有以下几点不明白的地方。
【1】Set cnn = CreateObject("adodb.connection")
这段代码中  CreateObject("adodb.connection") 所表达的意思是？

【2】cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
这段代码中，三个参数【Provider】、【Extended Properties】、【Source】分别代表的是什么意思？

【3】Set RST1 = cnn.Execute(SQL1)
这段代码所表达的意思是？

【4】Set cnn = Nothing和cnn.Close
为何结尾处需要申明cnn = Nothing 和进行Close操作？

【5】代码执行错误
在其它场景使用上述代码并修改参数，出现提示
【运行时错误 ‘-2147467259(80004005)’ 自动化(Automation)错误】
这种情况下是哪个位置的参数出错?

以上几点感谢各位的解答，谢谢。

dgenson

这些属于基础知识，百度一下就有了，我没学过vba中用sql，最后你说的两个是用关闭数组或rng用来节约内存的

jonzgl

dgenson 发表于 2019-9-24 21:22
这些属于基础知识，百度一下就有了，我没学过vba中用sql，最后你说的两个是用关闭数组或rng用来节约内存的

上述问题也有查过百度，但是不是特别确定答案。所以想请教一下。
但是第5个问题不确定问题发生的所在，所以发帖请教下各位。

jonzgl

置顶一下下哈

醉清心

Provider是Connection 对象提供者名称的字符串值，03版Excel是“Microsoft.jet.OLEDB.4.0”，其它版本可以使用“Microsoft.ACE.OLEDB.12.0”；


Extended Properties是Excel版本号及其它相关信息，03版本是Excel 8.0，其它版本可以使用Excel 12.0。


其中HDR项是引用工作表是否有标题行，默认值HDR=Yes，意思是引用表的第一行是标题行，标题只能一行，不能多行，亦不能存在合并单元格。HDR=no，意思是引用表不存在标题行，也就是说第一行开始就是数据记录了；此时，相关字段名在SQL语句中可以使用f加序列号表示，第1列字段名是f1，第2列字段名是f2，其余以此类推，f是英文field(字段)的缩写。


IMEX项是汇入模式，默认为0（只读模式），1是只写，2是可读写。当参数设置为1时，除了只写，还有默认全部记录数据类型为文本的用途，关于这一点及其限制前提我们以后再谈。


Data Source是数据来源工作薄的完整路径。
【1】后期绑定
【2】Excel版本
【3】把SQL的记录集，赋值给 RST1
【4】释放内存

醉清心

关键写对SQL语句，其它套用一下就行了

jonzgl

醉清心 发表于 2019-9-28 22:34
Provider是Connection 对象提供者名称的字符串值，03版Excel是“Microsoft.jet.OLEDB.4.0”，其它版本可以 ...

解释的很清晰，感谢帮忙。