(saveFormat "2.3")
(date "Wed 05/Dec/2001 08:43:40 ")
(veerev "6.0")
(platform "PC")
(execMode v6)
(filterNAN 0)
(workspaceStackingOrder M)
(SaveCF no)
(device 0 ROOTCONTEXT
(automationRefs
(automationRef 1
(libid "{00020813-0000-0000-C000-000000000046}")
(desc "Microsoft Excel 8.0 Object Library")
(filename "C:\\Program Files\\Microsoft Office\\Office\\EXCEL8.OLB")
(verMajor 1)
(verMinor 2)
(lcid 0)))
(properties
(trigMode deg)
(nextID 144)
(popupTitleText "Untitled")
(popupMoveable 1)
(deleteGlobals 0))
(deviceList
(device 39 FORMULA
(properties
(name "Print the Worksheet ")
(expr 1 "ExcelApp.Workbooks(xlsFileName).PrintOut()"))
(interface
(output 1
(name "Result")
(tag "Result")
(lock name constraints)
(optional yes))))
(device 62 FORMULA
(properties
(name "Set xlsFileSpec")
(expr 1
"xlsFileSpec = installDir()+\"\\\\examples\\\\ActiveXAutomation\\\\Data\\\\\"+xlsFileName"
))
(interface
(output 1
(name "Result")
(tag "Result")
(lock name constraints)
(optional yes))))
(device 92 DECLVAR
(properties
(name "Declare ExcelApp")
(scope glob)
(globalName "ExcelApp"))
(implementation
(value Object
(data  "COM OFF Excel.Application"))))
(device 93 DECLVAR
(properties
(name "Declare Wks")
(scope glob)
(globalName "Wks"))
(implementation
(value Object
(data  "COM OFF Excel.Worksheet"))))
(device 94 DECLVAR
(properties
(name "Declare ExcelWkbk")
(scope glob)
(globalName "ExcelWkbk"))
(implementation
(value Object
(data  "COM OFF Excel.Workbook"))))
(device 97 DECLVAR
(properties
(name "Declare range")
(scope glob)
(globalName "range"))
(implementation
(value Object
(data  "COM OFF Excel.Range"))))
(device 99 FORMULA
(properties
(name "Set xlsFileName")
(expr 1 "xlsFileName = \"weather.xls\""))
(interface
(output 1
(name "Result")
(tag "Result")
(lock name constraints)
(optional yes))))
(device 125 NOTE
(properties
(name "Warranty Disclaimer")
(text2 4 "This example is provided as an"
"illustration \"as is\", and Agilent Technologies"
"makes no warranty of any kind" "with regard to this example.")))
(device 127 DECLVAR
(properties
(name "Declare xlsFileName")
(scope glob)
(globalName "xlsFileName"))
(implementation
(value Text
(data  ""))))
(device 128 DECLVAR
(properties
(name "Declare xlsFileSpec")
(scope glob)
(globalName "xlsFileSpec"))
(implementation
(value Text
(data  ""))))
(device 131 FORMULA
(properties
(name "Start Excel and Load Spreadsheet")
(expr 5 "Set ExcelWkbk=createObject(\"Excel.Sheet\");  // Launch Excel"
"Set ExcelApp=ExcelWkbk.Application;              // Assign the application object"
"ExcelApp.Visible = TRUE;                                   // Make Excel visible"
"ExcelWkbk.Close();                                              // Close  blank wkbk"
"ExcelApp.Workbooks.Open(xlsFileSpec);       // Open our example workbook"))
(interface
(output 1
(name "Result")
(tag "Result")
(lock name constraints)
(optional yes))))
(device 132 FORMULA
(properties
(name "Get Object reference to Worksheet and Create a Range Object")
(expr 4 "Set ExcelWkbk=ExcelApp.Workbooks(1);"
"ExcelWkbk.Windows(1).WindowState=xlMaximized;"
"Set Wks = ExcelApp.Workbooks(xlsFilename).WorkSheets(1);  "
"Wks.EnableCalculation = FALSE;"))
(interface
(output 1
(name "Result")
(tag "Result")
(lock name constraints)
(optional yes))))
(device 133 FORMULA
(properties
(name "Put Data into Spreadsheet")
(expr 8 "Set Range = ExcelApp.Range(ExcelApp.Names(\"Deg_C\").RefersTo());"
"Range.Cells(1,1) = 28;"
"Set Range = ExcelApp.Range(ExcelApp.Names(\"Wind_Speed_mph\").RefersTo());"
"Range.Cells(1,1) = 5;"
"Set Range = ExcelApp.Range(ExcelApp.Names(\"Wind_Direction\").RefersTo());"
"Range.Cells(1,1) = \"N-NW\";"
"Set Range = ExcelApp.Range(ExcelApp.Names(\"Barometric_Pressure_mmHg\").RefersTo());"
"Range.Cells(1,1) = 29.70;"))
(interface
(output 1
(name "Result")
(tag "Result")
(lock name constraints)
(optional yes))))
(device 134 FORMULA
(properties
(name "Have Spreadsheet Recalculate")
(expr 1 "wks.EnableCalculation = TRUE"))
(interface
(output 1
(name "Result")
(tag "Result")
(lock name constraints)
(optional yes))))
(device 136 FORMULA
(properties
(name "Close Excel App")
(expr 2 "ExcelApp.DisplayAlerts =0;" "ExcelApp.Quit()"))
(interface
(output 1
(name "Result")
(tag "Result")
(lock name constraints)
(optional yes))))
(device 138 MESSAGEBOX
(properties
(name "Msg Box - Print (Yes or No)")
(autoTimeout 1)
(popupTitle "VEE Example")
(position 224 207)
(message "Print Spreadsheet")
(symbol Question))
(interface
(output 1
(name "Yes")
(lock name constraints))
(output 2
(name "No")
(lock name constraints))
(output 3
(name "Timeout")
(lock name constraints)))
(implementation
(customButtons 0)
(displayMode 0)
(buttons "Yes  No")
(buttonLabel1 "Yes")
(buttonLabel2 "No")
(buttonLabel3 "")
(bdefault "No")))
(device 140 BEEP
(properties
(frequency 1000)
(duration 0.1)
(volume 80))
(implementation))
(device 141 NOTE
(properties
(text2 5 "Requirements: Excel97" "              File: .\\data\\weather.xls" ""
"This example uses Excel97 and ActiveX Automation "
"to calculate the weather report. ")))
(device 142 MESSAGEBOX
(properties
(autoTimeout 1)
(popupTitle "VEE Example")
(message "Shutdown Excel ?")
(symbol Question))
(interface
(output 1
(name "Yes")
(lock name constraints))
(output 2
(name "No")
(lock name constraints))
(output 3
(name "Timeout")
(lock name constraints)))
(implementation
(customButtons 0)
(displayMode 0)
(buttons "Yes  No")
(buttonLabel1 "Yes")
(buttonLabel2 "No")
(buttonLabel3 "")
(bdefault "Yes")))
(configuration
(connect D15:1 D0:0)
(connect D6:0 D1:0)
(connect D1:0 D10:0)
(connect D10:0 D11:0)
(connect D11:0 D12:0)
(connect D12:0 D13:0)
(connect D18:1 D14:0)
(connect D16:0 D15:0)
(connect D13:0 D16:0)
(connect D15:0 D18:0)))
(contextCarrier
(wndRestoredOrigin 2 2)
(wndRestoredExtent 796 581)
(wndState max)
(active detail)
(detail
(extent 1020 660)
(anchorPt 468 33)
(configuration
(devCarrierFor 39
(active open)
(icon
(extent 141 25))
(open
(extent 276 51))
(pinCenter 90 740))
(devCarrierFor 62
(active icon)
(icon
(extent 92 15))
(open
(extent 396 40))
(terminals on)
(pinCenter -190 20))
(devCarrierFor 92
(active icon)
(icon
(extent 122 16))
(open
(extent 388 126))
(pinCenter 170 190))
(devCarrierFor 93
(active icon)
(icon
(extent 89 15))
(open
(extent 388 126))
(pinCenter 170 220))
(devCarrierFor 94
(active icon)
(icon
(extent 136 15))
(open
(extent 388 126))
(pinCenter 170 160))
(devCarrierFor 97
(active icon)
(icon
(extent 98 15))
(open
(extent 388 126))
(pinCenter 170 130))
(devCarrierFor 99
(active icon)
(icon
(extent 99 15))
(open
(extent 180 34))
(terminals on)
(pinCenter -190 -10))
(devCarrierFor 125
(active icon)
(icon
(extent 338 48)
(iconImage "disclaim.icn")
(label off))
(open
(extent 419 127)
(editing disabled))
(pinCenter 70 10))
(devCarrierFor 127
(active icon)
(icon
(extent 126 15))
(open
(extent 195 103))
(pinCenter 170 70))
(devCarrierFor 128
(active icon)
(icon
(extent 119 15))
(open
(extent 195 103))
(pinCenter 170 100))
(devCarrierFor 131
(active open)
(icon
(extent 204 0))
(open
(extent 534 95))
(pinCenter -190 120))
(devCarrierFor 132
(active open)
(icon
(extent 372 0))
(open
(extent 534 78))
(pinCenter -190 250))
(devCarrierFor 133
(active open)
(icon
(extent 158 0))
(open
(extent 515 137))
(pinCenter -200 400))
(devCarrierFor 134
(active open)
(icon
(extent 187 0))
(open
(extent 534 33))
(pinCenter -190 530))
(devCarrierFor 136
(active open)
(icon
(extent 112 25))
(open
(extent 205 51))
(pinCenter -170 790))
(devCarrierFor 138
(active icon)
(icon
(extent 160 36))
(open
(extent 219 126))
(terminals on)
(pinCenter -190 630))
(devCarrierFor 140
(active icon)
(icon
(extent 33 15))
(open
(extent 162 79))
(pinCenter -190 580))
(devCarrierFor 141
(active open)
(icon
(iconImage "notepad.icn"))
(open
(extent 377 100)
(editing disabled))
(titleBg "Teal")
(pinCenter -270 -80))
(devCarrierFor 142
(active icon)
(icon
(extent 81 34))
(open
(extent 219 126))
(terminals on)
(pinCenter -190 690))
(connect D15:1 D0:0
(points 3 -108 620 90 620 90 694))
(connect D6:0 D1:0
(points 2 -190 0 -190 10))
(connect D1:0 D10:0
(points 2 -190 30 -190 52))
(connect D10:0 D11:0
(points 2 -190 170 -190 190))
(connect D11:0 D12:0
(points 4 -190 291 -190 300 -200 300 -200 311))
(connect D12:0 D13:0
(points 4 -200 471 -200 480 -190 480 -190 493))
(connect D18:1 D14:0
(points 5 -147 680 -130 680 -130 720 -170 720 -170 744))
(connect D16:0 D15:0
(points 2 -190 590 -190 609))
(connect D13:0 D16:0
(points 2 -190 549 -190 570))
(connect D15:0 D18:0
(points 2 -190 650 -190 670)))
(stackingOrder 2 8 9 6 4 5 3 1 11 10 13 0 16 17 14 7 15 18 12))
(numberFormats
(realFormat standard)
(realSigDigits 4)
(realRadixSpec 4)
(integerBase decimal))))