如何编写一个从SQL数据库返回值的Excel函数？

Question

我想编写以下功能，该功能应在Excel工作表中使用：

=GetRecField("Foo Record Key", "FooField1")

...将通过ODBC在内部连接到SQL数据库，然后在其中执行

SELECT FooField1 FROM MyTable WHERE KEY_FIELD='Foo Record Key';

并将返回结果值作为函数GetRecField的结果。 上面的SQL被授权仅返回一条记录（IOW KEY_FIELD具有唯一约束）。

当然，可以在工作表中多次调用上述函数，因此，请尽量避免盲目使用QueryTables.Add

TIA。

Answer 1

您可以编写一个自定义函数来做到这一点

1. 打开VBA编辑器（ALT-F11）
2. 打开工具->引用，并确保选择了“ Microsoft ActiveX数据对象2.8库”和“ Microsoft ActiveX数据对象Recordset 2.8库”
3. 右键单击VBAProject，然后选择“插入”->“模块”
4. 打开模块。 现在您可以创建一个自定义函数，例如：

Public Function GetItem(field As String, id As Integer) As String
        Set oConnection = New ADODB.Connection
        Dim oRecordset As ADOR.Recordset
        oConnection.Open "provider=sqloledb;data source=yourserver;" & _
            "Trusted_Connection=yes;initial catalog=yourdatabase;"
        Set oRecordset = oConnection.Execute( & _
            "select " & field & " from table where id = " & id)
        If oRecordset.EOF Then
            GetItem = "n/a"
        Else
            GetItem = oRecordset(field)
        End If
    End Function

5. 现在，您可以从单元格中调用该函数：

   = GetItem（“ fieldname”; 2）

需要模块是因为不能从扩展架内部调用非模块函数。

Answer 2

为什么不在单独的工作表（“数据”菜单，“导入外部数据”，“新数据库查询”）上使用Excel的内置数据库查询功能，然后使用VLOOKUP从该工作表中提取值？

Answer 3

我通过在一张工作表中保存数据库连接并在另一张工作表中使用对所需单元格的引用来解决了Excel版本1808（？）中的类似问题。

1. 数据>获取数据>从数据库>从SQL Server数据库
2. 输入服务器和数据库名称。
3. 打开“高级”选项，并逐字输入查询，然后将其命名为“ connection_name”。
4. 现在查询可用，打开数据>查询和连接。
5. 右键单击连接，然后单击“加载到...”。
6. 在未使用的图纸上选择一个未使用的位置，并将其放置在该位置。
7. 在文件其他位置的目标单元格中​​，输入=connection_name[[#All,][Column1]] 。

当然，这似乎是间接的，因为如果没有将其显示在某处的工作表中，我将找不到引用该连接的方法。 但这对我有用，而且我在其他地方找不到类似的说明，因此我认为它可能会提供很多信息。