主题：无法保存修改参数

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

 

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

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

 

也就是说，从头到尾，我运行了程序，参数修改只是我看到了修改了，其实根本就没有写入相应的文件内；

那SetParameter还有啥意义？没什么意思了啊。直接用WritePrivateProfileString把字符串写进去啊，然后手动保存下啊。。。；

明白了，就是SetParameter用来立即修改参数，能用，但是不能保存（我发现只要点一下调整参数，什么也不动，然后按确定就又会变回原来的参数了。），然后用WritePrivateProfileString再写ini，手动保存下。唉，老大，这个感觉也有点鸡肋啊，我用setp就是修改的，要是软件直接帮我保存了，也是可以的啊；