Dim resPortfolio As Portfolio
Dim ExistingPortfolio As Portfolio
ExistingPortfolio.Read(Survey.Directory + "1. ExistingPortfolio.xml",FALSE)
' Read an exisiting portfolio, use the parameter 'False' to load its rows/cols/edges
Dim i
For i = 1 to ExistingPortfolio.Items.Count ' Iterate through all items of the portfolio and...
  ExistingPortfolio.Items[i].TabDef.Weighting = "D1_Q2_Weights" ' Set an exisiting weighting
  ExistingPortfolio.Items[i].TabDef.SetSubPopulation("Short Membership") ' Set an exisiting sub-population
  ExistingPortfolio.Items[i].TabDef.Level = "BrandRatingLoop" ' Set a survey level
  ExistingPortfolio.Items[i].TabDef.ReadTabTemplate("Askia Weighted Tables") ' Set an library tab template
  ExistingPortfolio.Items[i].SetTitle("Updated Portfolio - TabDef "+i) ' Set a title
Next i

ExistingPortfolio.Save(Survey.Directory + "8. Update of an Existing Portfolio.xml")
ExistingPortfolio.Open()