Providing software solutions since 1976

• Log in
• Create profile
• Welcome
  [Log out]
• Edit profile

• Print  |
• Feedback  |
• Share

  • E-mail

  
  
  

  E-mail This Page

  Your Name:*
  Your E-mail:*
  Recipient E-mail:*
  Send a copy to me
  Personal Message:
  
  

  * indicates a required field

The code included below is a VBScript example that will execute a PFD
within an Enterprise Guide project file. Please refer to the Ole
Automation section in Enterprise Guide Help for documentation for
getting started and for downloading MS files necessary for running
VBScript programs.


'This VBScript example will execute a PFD called ProcessFlow1,
'which is within a project called ProcessFlowProject.seg.
'The results from the Summary Statistics task associated with a table
'called SASHELP.CLASS
'within the PFD, will then be saved to an html file.
'The results from the Bar Chart task associated with a table called
'SASHELP.AIR
'within the PFD, will then be saved to a second html file.

Dim objGuide
Dim objProject

Set objGuide = WScript.CreateObject("SASEGuide.Application")
Set objProject =
objGuide.Open("c:\userdata\vbscript\ProcessFlowProject.seg")

'---- Run ProcessFlow1 which could be any of several PFDs in
ProcessFlowProject.seg
Dim objPfd
Set objPfd=objProject.ProjectItems("ProcessFlow1")
objPfd.Run

'---- Get the results generated by the Summary Statistics task linked to
'---- the data table, SASHELP.Class
Dim objSummaryStatisticsResults
Set
objSummaryStatisticsResults=objProject.ProjectItems("CLASS").Tasks("Summ
ary Statistics").Results("HTML")

'---- Save the Summary Statistics results to an html file on the server
objSummaryStatisticsResults.SaveAs
("C:\userdata\vbscript\ProcessFlowProjectSummaryStatistics.html")

'---- Get the results generated by the Bar Chart task linked to the data
'---- table, SASHELP.AIR
Dim objBarChartResults
Set objBarChartResults=objProject.ProjectItems("AIR").Tasks("Bar
Chart").Results("HTML")

'---- Save the Bar Chart results to an html file on the server
objBarChartResults.SaveAs
("C:\userdata\vbscript\ProcessFlowProjectBarChart.html")

objProject.Close
objGuide.Quit

Operating System and Release Information