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

cdhilite · 发表于 2023-2-7 16:46

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

半百 · 发表于 2023-2-7 16:58

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

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

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

cdhilite · 发表于 2023-2-8 16:40

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

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

cdhilite · 发表于 2023-2-8 17:37

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

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

smiletwo · 发表于 2023-2-8 17:58

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

目标文件用绝对地址啊

cdhilite · 发表于 2023-2-9 10:30

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文件呢？

		自动登录	找回密码
密码			免费注册

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

评分