Welcome to WEAP's Website WEAP
WEAP is an initiative of the Stockholm Environment Institute.


About WEAP

Home
Why WEAP?
Features
What's New?
Sample Screens
Demonstration
Publications
History and Credits

Using WEAP
Download
Licensing
User Guide
Tutorial
Videos (YouTube)

User Forum
Discussions
Members List
Edit Profile

Additional Support
Training
University Courses
Collaboration

About Us
SEI-US Water Resources Program
Please Contact Us

Environmental News
Not acting like themselves: Antidepressants in environment alter crayf...
Expose crayfish to antidepressants, and they become more outgoing -- but that might not be such a positive thing for the...

Small streams in agricultural ecosystems are heavily polluted with pes...
Pesticides safeguard agricultural yields by controlling insects, fungi, and weeds. However, they also enter streams and...

Heat from below: How the ocean is wearing down the Arctic sea ice
The influx of warmer water masses from the North Atlantic into the European marginal seas plays a significant role in th...
Source: Science Daily
LEAP
Interested in Energy?
Read about LEAP: SEI's software for energy planning.

Link WEAP and LEAP for combined Water-Energy planning.
Watch a video demo!
   

User Forum

All Topics | Topic "Scripting Example"
Log in to post new messages or reply to existing messages.
 
Author Message
Mr. Mohammed Yassin

Subject: Scripting Example   
Posted: 2/21/2018 Viewed: 3558 times
Dear WEAP users,
I would like to share with you a script that automates WEAP to run number of times (each with a different value of hydropower demand) and then write the results out in one excel sheet.Hope you find it useful

set xla=CreateObject("Excel.Application")
xla.Visible=true
xla.ScreenUpdating=false
set xlw=xla.workbooks.Add
set xls=xlw.sheets.Add
set WEAP=CreateObject("WEAP.WEAPApplication")
WEAP.Verbose=1
WEAP.ActiveArea="Tutorial"
WEAP.Versions("HDresult").Revert
WEAP.ActiveScenario="Reference"
e=0
m=2
xls.Cells(1,1)="Year"
For i=0 To 10
z=2
e=e+0.10
WEAP.Branch("Supply and Resources\River\Main River\Reservoirs\Big City Reservior").Variables("Energy Demand").Expression=e
Call WEAP.LoadFavorite("Hydropower Generation")
For j=WEAP.BaseYear To WEAP.EndYear
xls.Cells(z,1)=j
xls.Cells(1,m)=e
xls.Cells(z,m)=WEAP.ResultValue("\Supply and Resources\River\Main River\Reservoirs\Big City Reservior:Hydropower Generation", j, 1, "Reference", j, 12)
z=z+1
Next
m=m+1
Next
Topic "Scripting Example"