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

Question

为什么我收到以下代码的对象变量或未设置 block 变量错误:

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

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

我在 GetConnection = cn 行收到错误。

Answer 1

如果我没记错的话...在经典 vb 中处理引用类型(对象)时需要使用“set”关键字

即:

Set GetConnection = cn

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