麻烦大佬们我的VBA代码怎么运行不了呢？

cdhilite

麻烦大佬们我的VBA代码怎么运行不了呢？谢谢！

半百

COUNT后边多了个空格，红色的右括号应该是半角的。

fzxba

参考.rar (18.31 KB, 下载次数: 7)

2023-2-7 17:13 上传

点击文件名下载附件

cdhilite

半百 发表于 2023-2-7 16:58
COUNT后边多了个空格，红色的右括号应该是半角的。

谢谢老师的指点！如果是跨工作簿该怎么改代码呢？

cdhilite

fzxba 发表于 2023-2-7 17:13

谢谢老师！很好！另请教一下，如果源文件跨硬盘的文件夹的工作簿应该怎么改代码呢？

smiletwo

cdhilite 发表于 2023-2-8 17:37
谢谢老师！很好！另请教一下，如果源文件跨硬盘的文件夹的工作簿应该怎么改代码呢？

目标文件用绝对地址啊

cdhilite

Sub 复制4() '后期绑定ADO
Dim adConn As Object, adRs As Object
Set adConn = CreateObject("adodb.connection")   '实例化对象
Set adRs = CreateObject("adodb.recordset")      '实例化对象
adConn.Provider = "microsoft.ace.oledb.12.0"    '接口引擎版本
adConn.Open ThisWorkbook.Path & "\客户供应商资料.xlsm" '连接数据库
adRs.Open "供应商信息", adConn                  '操作数据库中的表
Range("a2") = adRs.GetString                '以字符串形式获取查询到的数据
adArr = adRs.GetRows
Workbooks("工作簿3.xlsm").Sheets("sheet2").Range("a2").CopyFromRecordset adRs, 10, 4   '将数据导出到单元格
adRs.Close                                  '关闭Recordset对象
adConn.Close                                '关闭Connection对象
Set adConn = Nothing                        '释放内存中的Connection对象
Set adRs = Nothing                          '释放内存中的Recordset对象
End Sub
请问怎么识别不到我要访问的客户供应商资料.xlsm文件呢？