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

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

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

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

点击浏览该文件:桌面.rar

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

GetFileName()
利用文件对话框获得一个文件名。

语法：

GetFileName(Filter, Title, Mode)

Filter
过滤器，指定在对话框的文件列表框中显示的文件的类型。
过滤器由description和fifter组成，中间使用使用符号“|”隔开。例如，选择过滤器为Text Files|*.txt，就显示所有的文本文件，前面的Text Files是description，后面的*.txt是fifter，fifter可以有多个文件类型组成，不同的文件类型用分号(;)隔开。
可以同时提供多个过滤器，这样话框显示时将出现一个过滤器列表，用它可以进行选择文件类型，过滤器之间同样使用符号“|”隔开。下列代码给出一个过滤器的例子，该过滤器允许选择文本文件或含有位图和图标的图形文件：
Text Files|*.txt|Pictures Files|*.bmp;*.ico

Tiltle   对话框标题

Mode     对话框类型，0为打开方式，1为保存方式

例子：
1、备份当前文件，备份文件的名称和位置由用户自己确定，可以增加一个按钮或菜单项，将其公式设为：
Save() And BackupFile(GetFileName("易表文件|*.egd","备份",1))

2、假定有一个照片列，希望由用户通过对话框选择照片填入到照片列，公式为：
SetCellText(GridName,Row,"照片",GetFileName("图形文件|*.jpg;*.bmp","选择照片",0))