OLE Automation example under VBA

Simplified example under VBA:

' Example exporting a query to ASCII.

Sub MyExample()

‘ Initialize Project

Dim VisionApp As Object ' Vision.Application

Dim VisionProject As Object ' VisionApp.Project

Set VisionApp = CreateObject("Vision.Application")

Set VisionProject = VisionApp.GetProject

‘ Opening the project

VisionProject.Open ("c:\program files\ClicknDECiDE\ClicknDECiDE Builder\Samples\Sample.wfv")

‘ Selecting the report

Dim VisionProjectItem As Object ' VisionProjectItem

Set VisionProjectItem = VisionProject.Queries("Customer file")

' Your process, example exporting to an output format

‘ Initializing the Export

Dim VisionExportInfosOutput As Object

Set VisionExportInfosOutput = VisionProject.ExportOutputInfos()

' Export Information

VisionExportInfosOutput.OutputAlias = "ASCII"

VisionExportInfosOutput.Filename = "c:\Program Files\ClicknDECiDE\ClicknDECiDE Builder\Automation\Result\MyFileAscii.txt"

VisionExportInfosOutput.QuietMode = True

VisionExportInfosOutput.WndParent = 0

' Giving the Login...

' VisionProject.SetLogin "SourceAlias", "UserID", "Password"

VisionProject.SetLogin "ClicknDECiDE Sample Database", "", ""

' Export Action

VisionProject.Export VisionProjectItem, VisionExportInfosOutput

‘ Closing the project

VisionProject.Close

' Delete Objects

Set VisionApp = Nothing

Set VisionProject = Nothing

Set VisionProjectItem = Nothing

Set VisionExportInfosOutput = Nothing

End Sub