.

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

以上是代码。我去，这是什么破代码编辑器如此反人类，还不能缩进。。。