1. Declaration of brio object & document.
Dim mybrioobj As New BrioQry.Application
Dim myDdoc As BrioQry.Document
2. Openning brio file from the location "path".
Set myDdoc = mybrioobj.Documents.Open(path)
3. Create Query Section object, Section name is the name of the query section. A brio file can have query section, filter result/table section, pivot & dashboard.
Dim res As BrioQry.TableSection
Set res= mySdoc.Sections(ResultSectionName)
4. Looping all result/table section columns or fields.
For l = 1 To res.Columns.Count
ColumnName = res.Columns.Item(l).Name.ToString
ColumnType = res.Columns.Item(l).ColumnType
ColumnIndex = res.Columns.Item(l).Index
DataType = res.Columns.Item(l).DataType
NumberFormat = res.Columns.Item(l).NumberFormat
WrapText = res.Columns.Item(l).TextWrap
Visible = res.Columns.Item(l).Visible
Next
5. Looping result section filters.
For l = 1 To res.Limits.Count
LimitName = res.Limits.Item(l).DisplayName
LimitSQL = res.Limits.Item(l).CustomSQL
CustomLimitValues = comstomlimitstring
CustomValueCount = res.Limits.Item(l).CustomValues.Count
Selected Values = selectedValues
SelectedValueCount = res.Limits.Item(l).SelectedValues.Count
LimitOperator = res.Limits.Item(l).Operator
Is Ignore = res.Limits.Item(l).Ignore
Is Nagate = res.Limits.Item(l).Negate
Logical Operator = res.Limits.Item(l).LogicalOperator
Limit Value Type = res.Limits.Item(l).LimitValueType
Include Nulls = res.Limits.Item(l).IncludeNulls
Next
6. Closing Objects
myDdoc.Close 'or mybrioobj.ActiveDocument.Close mybrioobj.Quit
Set mybrioobj = Nothing
Dim mybrioobj As New BrioQry.Application
Dim myDdoc As BrioQry.Document
2. Openning brio file from the location "path".
Set myDdoc = mybrioobj.Documents.Open(path)
3. Create Query Section object, Section name is the name of the query section. A brio file can have query section, filter result/table section, pivot & dashboard.
Dim res As BrioQry.TableSection
Set res= mySdoc.Sections(ResultSectionName)
4. Looping all result/table section columns or fields.
For l = 1 To res.Columns.Count
ColumnName = res.Columns.Item(l).Name.ToString
ColumnType = res.Columns.Item(l).ColumnType
ColumnIndex = res.Columns.Item(l).Index
DataType = res.Columns.Item(l).DataType
NumberFormat = res.Columns.Item(l).NumberFormat
WrapText = res.Columns.Item(l).TextWrap
Visible = res.Columns.Item(l).Visible
Next
5. Looping result section filters.
For l = 1 To res.Limits.Count
LimitName = res.Limits.Item(l).DisplayName
LimitSQL = res.Limits.Item(l).CustomSQL
CustomLimitValues = comstomlimitstring
CustomValueCount = res.Limits.Item(l).CustomValues.Count
Selected Values = selectedValues
SelectedValueCount = res.Limits.Item(l).SelectedValues.Count
LimitOperator = res.Limits.Item(l).Operator
Is Ignore = res.Limits.Item(l).Ignore
Is Nagate = res.Limits.Item(l).Negate
Logical Operator = res.Limits.Item(l).LogicalOperator
Limit Value Type = res.Limits.Item(l).LimitValueType
Include Nulls = res.Limits.Item(l).IncludeNulls
Next
6. Closing Objects
myDdoc.Close 'or mybrioobj.ActiveDocument.Close mybrioobj.Quit
Set mybrioobj = Nothing
No comments:
Post a Comment