嘿嘿,难说。
授人以渔,不授人以鱼。
Close Databases Use Grxx && 表结构 字段内容 C(10) 类型 C(1) 位置 C(4) Local Axx[Reccount()] Eole=CREATEOBJECT('Excel.Application') With Eole For lnI=1 To Adir(Axls,"*.Xls") .Workbooks.Open(Sys(5)+Sys(2003)+"\"+Axls[lnI,1]) Select Grxx Scan Do Case Case Inlist(Alltrim(类型),"C","M") Axx[Recno()]=Alltrim(.Range(位置).Text) Case Alltrim(类型)=="D" Axx[Recno()]=Ctod(Transform(.Range(位置).Text,"@R 9999-99-99")) Case Alltrim(类型)=="N" Axx[Recno()]=Val(.Range(位置).Text) Endcase Endscan Insert Into 个人信息数据库表 From Array Axx Endfor .quit Endwith RELEASE Eole Select 个人信息数据库表 Browse Use In 个人信息数据库表 Use In Grxx