无法保存修改参数　[金字塔]

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

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

公式参数是保存在INI文件中的，路径是Setting\FormulaSettings.ini

其中格式为：

[公式名]

框架名+窗格名+线名+周期=参数值

其中周期数字，请参考 Grid 对象的CycType属性。

建议你图形搞个公式修改参数然后保存试试，然后再打开这个INI文件看看，你应该能明白。

我运行了程序以后，检查了参数，已经修改好了，版本是最新的3.12稳定版。然后去查看老大你给的文件夹，里面的数值没有变化，然后关掉程序再打开，又变回原来的数值了，这是怎么回事？怎么让他保存呢？我还是不懂；