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 [b]Value[/b] method of the DataSet object.
[code]
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
[/code]
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:
[code]
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
[/code]
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:
[code]
Signal(Signal1.Y, Signal2.Y)
[/code]

VBA-Example:
[code]
Dim oFml As Formula

Set oFml = ThisDatabase.RootFolder.Add(“Formula”, fpObjectTypeFormula)
With oFml
.Formula = “Signal(Signal1.Y, Signal2.Y)”
.Evaluate
End With
[/code]

support@weisang.com

[Autor]

Beiträge