Vba 从函数返回时未设置对象变量或With block变量

为什么接收到对象变量或块变量未设置错误，代码如下：

我已经将对象声明为'cn'，正确初始化它，然后设置一些属性并打开它，然后返回它

---

我在GetConnection=cn行中得到错误。

如果内存正常。。。在经典vb中处理引用类型（对象）时，需要使用“set”关键字

即：

---

这适用于所有的赋值，而不仅仅是函数返回语句。

太好了，成功了，谢谢！我有点不好意思，我一个人想不出来。

Function GetConnection() As ADODB.Connection
    'Create connection to worksheet
    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";" & "Extended Properties=Excel 8.0;"
    cn.Open
    GetConnection = cn
End Function

Set GetConnection = cn