無法保存修改參數

我用了下面的代碼修改窗口參數，可是關掉金字塔以后參數又變回原來的參數了，是怎么回事，需要加一句什么語句可以保存參數

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穩定版。然后去查看老大你給的文件夾，里面的數值沒有變化，然后關掉程序再打開，又變回原來的數值了，這是怎么回事？怎么讓他保存呢？我還是不懂；