excel - 从 Visual Basic for Applications (VBA) 在 Exact Online 上执行 Invantive SQL

Question

我想在 Exact Online 数据源上的 Excel 上的 VBA 代码中运行一些 Invantive SQL 语句。

我可以使用 UDF 函数调用，例如：

I_SQL_SELECT_SCALAR("select fullname from me")

在 Excel 工作表中。

如何从 VBA 中检索全名？

Answer 1

首先，您必须从 Visual Basic 编辑器 -> 工具菜单 -> 参考中引用函数：

然后使用如下代码检索标量值：

Option Explicit

Sub RunSql()
On Error GoTo Catch
Dim result As Variant
'
' Get full name of current user.
'
If Not I_INTEGRATION_ACTIVE() Then
MsgBox "VBA integration not available. Please use the Tools menu to activate it."
End If

result = InvantiveControlUDFs.I_SQL_SELECT_SCALAR("fullname", "Me")
MsgBox ("Result is '" & result & "'.")
'
' Retrieve scalar value: =I_SQL_SELECT_SCALAR(fieldName;tableName;whereClause;orderByClause;postFix;valueNoValue;valueTooManyValues;process)
' Retrieve table: =I_SQL_SELECT_TABLE(sqlStatement;errorOnMoreRows;errorOnMoreColumns;addHeaderRow;process)
' Normally disabled: =I_SQL_SCALAR(process;sql)
'

Finally:
    Exit Sub
Catch:
    HandleError "RunSql"
End Sub

或者检索结果集（通常用于矩阵公式）：

Option Explicit

Sub RunSqlTable()
On Error GoTo Catch
Dim result() As Variant
'
' Get list of GLAccounts.
'
If Not I_INTEGRATION_ACTIVE() Then
MsgBox "VBA integration not available. Please use the Tools menu to activate it."
End If

result = InvantiveControlUDFs.I_SQL_SELECT_TABLE("select * from exactonlinerest..glaccounts")
Finally:
    Exit Sub
Catch:
    HandleError "RunSqlTable"
End Sub

I_SQL_SELECT_TABLE 的使用仅在 2017 年 10 月及更新的版本中可用。