Gets member information for one data cell.
EssVGetDataPoint (sheetName, cell, range, aliases) By Val sheetName As Variant By Val cell As Variant By Val range As Variant By Val aliases As Variant
Text name of the worksheet containing the currency information. sheetName is of the form "[Book.xls]Sheet". If sheetName is Null or Empty, the active worksheet is used.
Cell name that describes the reference cell to get the member combination information for.
Range name that describes the reference area of the data used as the source of the retrieve.
Boolean value that indicates whether alias names are returned.
Returns an array of member names.
Declare Function EssVGetDataPoint Lib "ESSEXCLN.XLL" (ByVal sheetName As Variant, ByVal cell As Variant, ByVal range As Variant, ByVal aliases As Variant) As Variant Declare Function EssVFreeDataPoint Lib "ESSEXCLN.XLL" (ByVal Info As Variant) As Long Sub DataPointsSub() Dim vt As Variant Dim cbItems As Variant Dim i As Integer Dim pMember As String vt = EssVGetDataPoint(Null, range("B3"), range("A1:F7"), False) If IsArray(vt) Then cbItems = UBound(vt) - LBound(vt) + 1 MsgBox ("Number of elements = " + Str(cbItems)) For i = LBound(vt) To UBound(vt) MsgBox ("Member = " + vt(i)) Next X = EssVFreeDataPoint(vt) Else MsgBox ("Return Value = " + Str(vt)) End If End Sub