主题：[求助]能否将这文件转为Excel 5.0格式

egd文件下载

公式：
EvalFor(GridName,"联系电话1","Char(9)+[联系电话1]") And
EvalFor(GridName,"联系电话2","Char(9)+[联系电话2]") And
EvalFor(GridName,"联系电话3","Char(9)+[联系电话3]") And
EvalFor(GridName,"联系电话4","Char(9)+[联系电话4]") And
EvalFor(GridName,"联系电话5","Char(9)+[联系电话5]") And

Eval("ExportDBFile(docdir+""ABC"",5,"""+Substitute(ListGrids(),"|",""") And ExportDBFile(docdir+""ABC"",5,""")+""")") And

EvalFor(GridName,"联系电话1","Substitute([联系电话1],Char(9),"""")") And
EvalFor(GridName,"联系电话2","Substitute([联系电话2],Char(9),"""")") And
EvalFor(GridName,"联系电话3","Substitute([联系电话3],Char(9),"""")") And
EvalFor(GridName,"联系电话4","Substitute([联系电话4],Char(9),"""")") And
EvalFor(GridName,"联系电话5","Substitute([联系电话5],Char(9),"""")")