
Untitled
By: a guest on
Apr 28th, 2012 | syntax:
None | size: 0.99 KB | hits: 11 | expires: Never
Object Type Error calling C# from VBA
Dim Identifiers() As Variant
Dim Variables() As Variant
Dim Times() As Variant
...
Dim CIQaddIn As COMAddIn
Dim CIQTool As Object
Dim results As Variant
Set CIQaddIn = Application.COMAddIns("CIQTool")
CIQaddIn.Connect = True
Set CIQTool = CIQaddIn.Object
results = CIQTool.GetCIQData(datasetName, Identifiers, Variables, Times, timeString)
string[] GetCIQData(string DatasetName, object[] Identifiers, object[] Variables, object[] TimeCodes,
string TimeString);
results = CIQTool.GetCIQData(datasetName, Identifiers.ToArray(), Variables.ToArray(), Times.ToArray(), timeString)
Function ShiftArray(ThisArray() As Variant) As Variant
Dim lb As Long, ub As Long
Dim NewArray() As Variant
Dim i As Long
lb = LBound(ThisArray)
ub = UBound(ThisArray)
ReDim NewArray(0 To (ub - lb))
For i = 0 To (ub - lb)
NewArray(i) = ThisArray(i + lb)
Next i
ShiftArray = NewArray
End Function