标题：编译提示“打开文档”错误

 sub  baoh()

    Set Grid = Technic.GetGridByName("Main")

    Set History = Grid.GetHistoryData()

    call Grid.InsertFormula("公式1",-1)'

    Grid.ReInitDataFormula'重新刷新窗格内公式

    set Formula = grid.GetFormulaByName("公式1")

    ReDim ccc(history.count)

    for n1=1 to  history.count-1

      ccc(n1)= history.high(n1)

    next

    formula.VARDATA("bao") = ccc '将处理完毕的数组序列返回公式中

 end sub

   编译会提示错误：“编译器错误 61704 打开文档”，光标停留在上述黄色处。

请问如何处理？