Excel VBA跨模块调用Connection变量报错：Expected Procedure Not Variable

我来帮你搞定这个问题！你遇到的错误核心是变量作用域没处理对，再加上代码里还有个小语法问题，咱们一步步修正：

问题根源分析 #

1. 你在Module1的ConnectTERDATA过程里直接写了Set cn = New ADODB.Connection，但没在模块级声明这个变量——这意味着cn只是个过程级变量，只能在ConnectTERDATA内部用，Module2根本访问不到它。
2. Module2里的Call Module1.cn是错误用法：Call是用来调用过程/函数的，不能用来引用变量；而且代码末尾多了个多余的End If，这也会导致语法错误。

修正方案 #

第一步：把cn声明为模块级公共变量

在Module1的最顶部（所有过程之外）用Public声明cn，这样整个VBA工程里的所有模块都能访问到这个连接对象。修改后的Module1代码如下：

' 在Module1最顶部，所有过程之前声明公共连接对象
Public cn As ADODB.Connection

Public Sub ConnectTERDATA()
    Dim fso As Object, _
        Fileout As Object, _
        Sql As Object, _
        objNet As Object, _
        FS As Object
    Dim cm As ADODB.Command
    Dim Rec_set As ADODB.Recordset
    Dim ip As String, _
        db As String, _
        Row As Integer, _
        SharepointAddress As String, _
        LocalAddress As String, _
        UserID As String, _
        Pass As String, _
        CommandTimeout As Integer, _
        ws As Worksheet, _
        DS As String
    
    Row = 1
    UserID = InputBox(Prompt:="Enter your User ID")
    Pass = InputBoxDK(Prompt:="Enter your Password")
    
    ' 先检查是否已有活跃连接，避免重复创建
    If Not cn Is Nothing Then
        If cn.State = adStateOpen Then
            MsgBox "Already connected to TERADATA"
            Exit Sub
        End If
    End If
    
    Set cn = New ADODB.Connection
    Set cm = New ADODB.Command
    Set Rec_set = New ADODB.Recordset
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    cn.ConnectionTimeout = 0 ' 等待查询完成，不触发超时错误
    cn.CommandTimeout = 5000
    cn.Open "Data Source=TERA; Database=TERA; Persist Security Info=True; User ID=" & UserID & "; Password=" & Pass & "; Session Mode=ANSI;"
    
    ' 验证连接状态
    If cn.State = adStateOpen Then
        MsgBox "Connected to TERADATA"
    End If
End Sub

第二步：修正Module2的语法错误并正确调用cn

删掉多余的End If，直接通过Module1.cn访问公共变量，同时增加连接状态检查，避免空对象报错：

Public Sub DisconnectTERDATA()
    ' 先检查连接对象是否存在且处于打开状态
    If Not Module1.cn Is Nothing Then
        If Module1.cn.State = adStateOpen Then
            Module1.cn.Close
            Set Module1.cn = Nothing ' 释放对象，避免内存泄漏
            MsgBox "Disconnected from TERADATA"
        Else
            MsgBox "No active connection to TERADATA"
        End If
    Else
        MsgBox "No connection object exists"
    End If
End Sub

额外注意点 #

• 公共变量作用域：用Public在模块顶部声明的变量，是整个VBA工程可见的，这是跨模块共享对象的标准方式。
• 对象释放：断开连接后一定要Set cn = Nothing，手动释放内存，避免长期运行导致内存泄漏。
• 重复连接检查：连接前先判断cn的状态，防止重复创建连接浪费资源。

内容的提问来源于stack exchange，提问作者abinaya