UDF从访问数据库中检索数据

我如何创build一个UDF从访问数据库检索数据。

我可以检索数据通过SQL查询使用VBA＆点击button。 数据将在logging集中。 我只是将其粘贴到任何单元格。

现在我的问题是：如何创build一个用户定义的function来做同样的事情。 也就是说，当我在任何Excel单元格中input=bdh(pricing date,product tag)东西时，所有数据都将被返回并粘贴到我input自定义公式的单元格下面。

如果您熟悉bloomberg API，我想要构build一个类似于bdh函数的函数。

Answer 1

也许你可以解决一个更简单的想法？ 例如下面的代码片段取决于用户select两个input单元来控制输出。 你可以添加一个菜单项来运行代码。

 Sub GetMSAccess() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim selrange As Range Set selrange = Selection strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Z:\Docs\Test.accdb" cn.Open strCon sSQL = "SELECT var1, var2 FROM table2 " _ & "WHERE var1='" & selrange.Cells(1, 1).Value _ & "' AND var2=" & selrange.Cells(1, 2).Value rs.Open sSQL, cn ActiveCell.Offset(1, 0).CopyFromRecordset rs End Sub 

例如