Don't like ads? PRO users don't see any ads ;-)
Guest

Untitled

By: a guest on Apr 28th, 2012  |  syntax: None  |  size: 0.99 KB  |  hits: 11  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. Object Type Error calling C# from VBA
  2. Dim Identifiers() As Variant
  3. Dim Variables() As Variant
  4. Dim Times() As Variant
  5. ...
  6. Dim CIQaddIn As COMAddIn
  7. Dim CIQTool As Object
  8. Dim results As Variant
  9. Set CIQaddIn = Application.COMAddIns("CIQTool")
  10. CIQaddIn.Connect = True
  11. Set CIQTool = CIQaddIn.Object
  12.  
  13. results = CIQTool.GetCIQData(datasetName, Identifiers, Variables, Times, timeString)
  14.        
  15. string[] GetCIQData(string DatasetName, object[] Identifiers, object[] Variables, object[] TimeCodes,
  16.                                 string TimeString);
  17.        
  18. results = CIQTool.GetCIQData(datasetName, Identifiers.ToArray(), Variables.ToArray(), Times.ToArray(), timeString)
  19.        
  20. Function ShiftArray(ThisArray() As Variant) As Variant    
  21.     Dim lb As Long, ub As Long
  22.     Dim NewArray() As Variant
  23.     Dim i As Long
  24.     lb = LBound(ThisArray)
  25.     ub = UBound(ThisArray)
  26.  
  27.     ReDim NewArray(0 To (ub - lb))
  28.  
  29.     For i = 0 To (ub - lb)
  30.         NewArray(i) = ThisArray(i + lb)
  31.     Next i
  32.  
  33.     ShiftArray = NewArray    
  34. End Function