主题：[求助]成绩导入问题

在成绩录入-初三-导入成绩中，用以下按钮公式：

ClearGrid("初三") And Do(6) And OpenGrid("Sheet1") And DelFor("年级","班级", "=" ,"") And CopyRows("sheet1","班级", "<>" ,"") And OpenGrid("初三") And DelFor(GridName,"姓名", "=" ,"") And SortCol(GridName,"语文",2) And EvalFor(GridName,"语文排序","If(Row = 1,1,If(Cell(Row-1,""语文"") = [语文],Cell(Row-1,""语文排序""),Cell(Row-1,""语文排序"") + 1))") And SortCol(GridName,"数学",2) And EvalFor(GridName,"数学排序","If(Row = 1,1,If(Cell(Row-1,""数学"") = [数学],Cell(Row-1,""数学排序""),Cell(Row-1,""数学排序"") + 1))") And SortCol(GridName,"英语",2) And EvalFor(GridName,"英语排序","If(Row = 1,1,If(Cell(Row-1,""英语"") = [英语],Cell(Row-1,""英语排序""),Cell(Row-1,""英语排序"") + 1))") And SortCol(GridName,"物理",2) And EvalFor(GridName,"物理排序","If(Row = 1,1,If(Cell(Row-1,""物理"") = [物理],Cell(Row-1,""物理排序""),Cell(Row-1,""物理排序"") + 1))") And SortCol(GridName,"化学",2) And EvalFor(GridName,"化学排序","If(Row = 1,1,If(Cell(Row-1,""化学"") = [化学],Cell(Row-1,""化学排序""),Cell(Row-1,""化学排序"") + 1))") And SortCol(GridName,"政治",2) And EvalFor(GridName,"政治排序","If(Row = 1,1,If(Cell(Row-1,""政治"") = [政治],Cell(Row-1,""政治排序""),Cell(Row-1,""政治排序"") + 1))") And SortCol(GridName,"历史",2) And EvalFor(GridName,"历史排序","If(Row = 1,1,If(Cell(Row-1,""历史"") = [历史],Cell(Row-1,""历史排序""),Cell(Row-1,""历史排序"") + 1))")  And SortCol(GridName,"班级",1) And RemoveGrid("sheet1") And RemoveGrid("sheet2") And RemoveGrid("sheet3") AndOpenGrid("初三") And SetLabel("","导入完毕!")

怎么不能完成任务哟，谢谢高手帮忙改一下。估计是公式错了。管理员密码是888

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:cj .zip

我的意思是：用易表自带的导入数据命令导入成绩（导入时先选excel8.0文件类型，再选成绩表按确定--在易表中追加一个表，再将追加表的数据复制到初三表中的对应列中；复制完后再删除追加表。），这样就可以选择要导入的excel表，不受excel表名的限制。