主题：无法保存修改参数

我用了下面的代码修改窗口参数，可是关掉金字塔以后参数又变回原来的参数了，是怎么回事，需要加一句什么语句可以保存参数

Sub OutPyramid(TeName,TeObj,StNum)

   Dim i
   Application.ActivateFrame(TeName)
   Set TSheet=ExcelApp.Application.Sheets("差值")
   iRowNo=Int(TSheet.Range("W1"))
   
    For i=StNum-1 to StNum+6
         Set TGrid=Teobj.GetGridByIndex(i)
         Set TFor=TGrid.GetFormulaByIndex(1)
         Set TVal=TSheet.Cells(iRowNo,i+2)
         TFor.SetParameter(Cstr(Tval))
    Next

End Sub