主题：VBS关闭当前框架问题

set list = CreateObject("System.Collections.ArrayList") frameArray = Array("f1", "f2", "f3") frameNum = UBound(frameArray) + 1 for i = 0 to frameNum - 1 set frame = Application.ActivateFrame(frameArray(i)) gridNum = frame.GridCount for j = 0 to gridNum - 1 set grid = frame.GetGridByIndex(j) if grid.FormulaCount = 2 then set formula = grid.GetFormulaByIndex(1) a = formula.GetBufData("info", formula.DataSize-1) list.Add a end if next Application.ShowWindow(3) Application.ActivateFrame(frameArray(i)) Application.SendMessage(57602) next list.Clear set list = nothing set frame = nothing set grid = nothing set formula = nothing