‘‘‘Sub selectAllFromSheet(srcPath, desSheetName)
Dim cnn As Object, rs As Object, i&, SQL]"
Set rs = cnn.Execute(SQL)
Addsheet (desSheetName)
With Sheets(desSheetName) '输出数据
.Range("a1:M10000").ClearContents
.Range("a1").CopyFromRecordset rs
End With
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub’’’
套接字添加 IMEX=1 后得到解决
VBA ADO连接语法及常用关键字和参数
Open 方法 (ADO Recordset)
打开游标。
语法
记录集.打开 源，激活连接，游标类型，锁定类型，提供者计算方式，不明白可按F1
recordset.Open Source, ActiveConnection, CursorType, LockType, Options
CursorType参数
常量 说明
AdOpenForwardOnly （默认值）打开仅向前类型游标。
AdOpenKeyset 打开键集类型游标。
AdOpenDynamic 打开动态类型游标。
AdOpenStatic 打开静态类型游标。
LockType 参数
常量 说明
AdLockReadOnly （默认值）只读 — 不能改变数据。
AdLockPessimistic 保守式锁定（逐个） — 提供者完成确保成功编辑记录所需的工作，通常通过在编辑时立即锁定数据源的记录。
AdLockOptimistic 开放式锁定（逐个） — 提供者使用开放式锁定，只在调用Update 方法时才锁定记录。AdLockBatchOptimistic
开放式批更新—用于批更新模式（与立即更新模式相对）。
Options参数
常量 说明
adCmdText 指示提供者应该将 Source 作为命令的文本定义来计算。
adCmdTable 指示 ADO 生成 SQL 查询以便从在 Source 中命名的表中返回所有行。
adCmdTableDirect 指示提供者更改从在 Source 中命名的表中返回所有行。
adCmdStoredProc 指示提供者应该将 Source 视为存储过程。
adCmdUnknown 指示 Source 参数中的命令类型为未知。
adCmdFile 指示应从在 Source 中命名的文件中恢复保留（保存的）Recordset。
adAsyncExecute 指示应异步执行 Source。
adAsyncFetch 指示在提取 Initial Fetch Size 属性中指定的初始数量后，应该异步提取所有剩余的行。如果所需的行尚未提取，主要的
线程将被堵塞直到行重新可用。
adAsyncFetchNonBlocking 指示主要线程在提取期间从未堵塞。如果所请求的行尚未提取，当前行自动移到文件末尾。
了解ADO的Connection、Recordset、Command的常用方法及联系
连接MDB数据库
Cnn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb" ‘1
连接EXCEL工作表
Cnn.Open"provider=microsoft.jet.oledb.4.0;extended properties=’excel 8.0 ;hdr=no;IMEX=1’;data source=" & 带路径文件名
顺带说一下：
HDR,是否令第一行为字段名,默认为YES;
IMEX,以文本方式读数据。IMEX＝1时解决数字与字符混合时,识别不正常的情况
意义如下:0 ---输出模式;1---输入模式;2----链接模式(完全更新能力)
'连接EXCEL表需注意事项:
'例HDR=NO 首行是否为字段名，IMEX 表示是否强制转换为文本，IMEX＝1时解决数字与字符混合时,识别不正常的情况
'HDR,是否令第一行为字段名,默认为YES;IMEX,以文本方式读数据
'IMEX很关键，默认的IMEX为0，自认为很聪明的把数字和字符串给分开了
————————————————
版权声明：本文为CSDN博主「璀璨_帝禹」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/wijaya/article/details/16342037
