链接ADO，提示对象'Open'的方法'Connection'失败

湫湫秋

代码运行到 CONN.Open connStr 提示错误，以前运行的时候好好的，就今天突然这样了，换一台电脑也运行的好好的，有哪位大神知道原因吗？！！~~

f8b1987

文档只读属性是否开启，代码确认过没有变动过么？
管理员权限打开excel试试？

湫湫秋

f8b1987 发表于 2024-9-26 16:08
文档只读属性是否开启，代码确认过没有变动过么？
管理员权限打开excel试试？

不是只读，代码也没有修改过，在其他电脑是可以运行的，用管理员身份也不行

micch

wps？Excel？啥版本‘？文件呢？啥也没有

f8b1987

湫湫秋 发表于 2024-9-26 17:31
不是只读，代码也没有修改过，在其他电脑是可以运行的，用管理员身份也不行

凭空猜测可不好说，比如路径问题呢？
路径有长度限制的，还有你存放位置是否远程云盘之类的
驱动是否正常，代码复制到另外一个文件去能不能运行

一招秒杀

有提示调试为什么不调试呢？ 会有错误的详细原因的。

湫湫秋

micch 发表于 2024-9-26 17:39
wps？Excel？啥版本‘？文件呢？啥也没有

因为文件里的代码没有修改过，昨天还能用，第二天就不行了，在其他的电脑上是可以运行的，所以没有发文件上去，不过后来新建了一个文件，链接ADO也不行，应该是驱动的问题，谢谢

湫湫秋

f8b1987 发表于 2024-9-26 22:50
凭空猜测可不好说，比如路径问题呢？
路径有长度限制的，还有你存放位置是否远程云盘之类的
驱动是否正 ...

新建了一个文件，链接ADO也不行，应该是驱动的问题，谢谢

icenotcool

各位老师，可以看看我的求助贴吗？跨表提取不重复数据并按条件汇总（去重求和）-Excel VBA程序开发-ExcelHome技术论坛 -  https://club.excelhome.net/forum ... amp;_dsign=91595a5e
Sub Total()
    Set d = CreateObject("scripting.dictionary")
    Application.ScreenUpdating = False
    arr = Sheets("系统导出").UsedRange
    r = 0
    For j = 1 To UBound(arr)
        If arr(j, 9) = "金额" Then
            If d.exists(arr(j, 9) & "") Then
                X = d(arr(j, 9) & "")
                arr(X, 6) = arr(X, 6) + arr(j, 6)
            Else
                r = r + 1
                d(arr(j, 9) & "") = r
                arr(r, 1) = arr(j, 1)
                arr(r, 2) = arr(j, 2)
                arr(r, 3) = arr(j, 3)
                arr(r, 4) = arr(j, 8)
                arr(r, 5) = arr(j, 7)
                arr(r, 6) = arr(j, 9)
            End If
        End If
    Next j
    If r > 0 Then [A1].Resize(r, 6) = arr
    Application.ScreenUpdating = True
End Sub