Access to Cells via VBA

[Christian Muschelknautz]

Probably it’s pretty easy to answer my question, nonetheless here it is:
VBA in Excel permits users to access cells via the expression cells(a, b). Is there an equivalent in VBA for FlexPro? In my special case I want to compare variables with the content of cells.
Thanks for support!

[Christian Muschelknautz]

Probably it’s pretty easy to answer my question, nonetheless here it is:
VBA in Excel permits users to access cells via the expression cells(a, b). Is there an equivalent in VBA for FlexPro? In my special case I want to compare variables with the content of cells.
Thanks for support!

[Bernhard Kantz]

Use the Value method of the DataSet object.

Sub Example()
    Dim oDataSet As DataSet
    Dim V(2) As Double
    Set oDataSet = ThisDatabase.RootFolder.Add("data", fpObjectTypeDataSet)
    V(0) = 1
    V(1) = 2
    V(2) = 3
    oDataSet.Value = V
End Sub

See FlexPro Online Help
Automating Tasks
Automation with FlexPro Visual Basic
First Steps with FlexPro Visual Basic
Working with Objects
Working with Data Sets

Support@weisang.com

[Christian Muschelknautz]

First of all thanks for the quick answer. Now I know how to handle “writing to cells” but how can I cope with reading them. In the online manual I could found this example:

Dim S As Signal
Set S = SignalDataSet.Value
Dim Delta As Double
Delta = S.X(1) – S.X(0)

Could you please imbed it into a stand-alone example? Let’s say for a dataset called “Time” which has been imported.
Thanks again…I’m learning …

[Bernhard Kantz]

Here is an example with a time signal which is in the root folder:

Sub ReadData()
    Dim oDataset As DataSet
    Dim fXValues, fYValues, fYFirstValue
    Set oDataset = ThisDatabase.RootFolder.Object("Time", fpObjectTypeDataSet)
    fXValues = oDataset.Value(fpDataComponentX)
    fYValues = oDataset.Value(fpDataComponentY)
    fYFirstValue = oDataset.Value(fpDataComponentY, 1, 1)
End Sub

support@weisang.com

[Fiette Sebastien]

Hello,

Is it possible to copy the complete Y column of a signal into the X column of another signal, without doing a loop ?

Thanks

[Bernhard Kantz]

This is possible. Create a FPScript formula with the script:

Signal(Signal1.Y, Signal2.Y)

VBA-Example:

    Dim oFml As Formula
    
    Set oFml = ThisDatabase.RootFolder.Add("Formula", fpObjectTypeFormula)
    With oFml
        .Formula = "Signal(Signal1.Y, Signal2.Y)"
        .Evaluate
    End With

support@weisang.com

[Autor]

Beiträge