public bool CallSP(string queryString, object paramNames, object paramValues)

CallSP は、ストアドプロシージャを呼び出します。成功した場合はtrue を返し、そうでない場合はfalse を返します。各パラメータの名前と値のペアを2つの配列としてCallSP に渡すことができます。これは、多くのパラメータとXML 集計の操作で役立ちます。この場合、CallSP のクエリ文字列引数は、パラメータの名前でなければなりません。以下に例を示します。

 CallSP("GetOAuthAccessToken",nameArray,valueArray)

Dim nameArray
nameArray = Array("Revision", "VendorId")
Dim valueArray
valueArray = Array("Jon Doe", "v1")
Dim module As New ExcelComModule
module.SetProviderName ("SAPAribaProcurement")
module.SetConnectionString ("ANID=AN02000000280;API=PurchaseOrdersBuyerAPI-V1;APIKey=wWVLn7WTAXrIRMAzZ6VnuEj7Ekot5jnU;AuthScheme=OAuthClient;InitiateOAuth=GETANDREFRESH;OAuthClientId=testClient;OAuthClientSecret=testClientSecret;UseSandbox=false;")
Query = "INSERT INTO Orders (Revision, VendorId) VALUES (@Revision, @VendorId)"
If module.Insert(Query, nameArray, valueArray) Then
  MsgBox "The insertion was successful."
Else
  MsgBox "The insertion failed."
End If
module.Close
Dim module As New ExcelComModule
module.SetProviderName ("SAPAribaProcurement")
module.SetConnectionString ("ANID=AN02000000280;API=PurchaseOrdersBuyerAPI-V1;APIKey=wWVLn7WTAXrIRMAzZ6VnuEj7Ekot5jnU;AuthScheme=OAuthClient;InitiateOAuth=GETANDREFRESH;OAuthClientId=testClient;OAuthClientSecret=testClientSecret;UseSandbox=false;")
Dim nameArray
nameArray = Array("GrantType")
Dim valueArray
valueArray = Array("openapi_2lo")
StoredProc = "GetOAuthAccessToken"
Cursor = Application.Cursor
Application.Cursor = xlWait
If module.CallSP(StoredProc, nameArray, valueArray) Then
  MsgBox "Execution was successful."
  Dim ColumnCount As Integer
  ColumnCount = module.GetColumnCount
  For Count = 0 To ColumnCount - 1
    Application.ActiveSheet.Cells(1, Count + 1).Value = module.GetColumnName(Count)
  Next 
  Dim RowIndex As Integer
  RowIndex = 10 
  While (Not module.EOF)
    For columnIndex = 0 To ColumnCount - 1
      If Conversion.CInt(module.GetColumnType(columnIndex)) = Conversion.CInt(vbDate) And Not IsNull(module.GetValue(columnIndex)) Then
        Application.ActiveSheet.Cells(RowIndex, columnIndex + 1).Value = Conversion.CDate(module.GetValue(columnIndex))
      Else
        Application.ActiveSheet.Cells(RowIndex, columnIndex + 1).Value = module.GetValue(columnIndex)
      End If
    Next
    module.MoveNext
    RowIndex = RowIndex + 1
  Wend
Else
  MsgBox "Execution failed."
End If
Application.Cursor = Cursor
module.Close