以下是引用sdta在2014-7-30 17:07:36的发言：
实际上有了身份证号码，可以不要 性别、出生年月日 字段，可以通过身份证号码获取。
实际上有了身份证号码，可以不要 性别、出生年月日 字段，可以通过身份证号码获取。
有些人的真实出生日期不是身份证上的，看要那日期怎么用了。
授人以渔，不授人以鱼。
程序代码：Eole=CREATEOBJECT('Excel.Application')
Local Axx[24]
With Eole
For lnI=1 To Adir(Axls,"*.Xls")
.Workbooks.Open(Sys(5)+Sys(2003)+"\"+Axls[lnI,1])
Axx[1]=Transform(.Range("B1").Text) && 个人编号
Axx[2]=Alltrim(.Range("B2").Text) && 姓名
Axx[3]=Alltrim(.Range("D2").Text) && 性别
Axx[4]=Ctod(Transform(Transform(.Range("F2").Text),"@R 9999-99-99")) && 出生日期
Axx[5]=Alltrim(.Range("H2").Text) && 民族
Axx[6]=Alltrim(.Range("B3").Text) && 籍贯
Axx[7]=Alltrim(.RANGE("G3").Text) && 出生地
Axx[8]=Alltrim(.Range("B4").Text) && 常住地址
Axx[9]=Transform(.Range("G4").Text) && 邮编
Axx[10]=Alltrim(.Range("B5").Text) && 工作单位
Axx[11]=Transform(.Range("B6").Text) && 办公电话
Axx[12]=Transform(.Range("E6").Text) && 移动电话
Axx[13]=Ctod(Transform(Transform(.Range("B7").Text),"@R 9999-99-99")) && 参加工作时间
Axx[14]=Ctod(Transform(Transform(.Range("D7").Text),"@R 9999-99-99")) && 入党时间
Axx[15]=Alltrim(.Range("F7").Text) && 身份证号码
Axx[16]=Alltrim(.Range("C8").Text) && 全日制学历
Axx[17]=Alltrim(.Range("F8").Text) && 毕业院校及专业
Axx[18]=Alltrim(.Range("C9").Text) && 在职教育
Axx[19]=Alltrim(.Range("F9").Text) && 在职教育毕业院校及专业
Axx[20]=Alltrim(.Range("B10").Text) && 现任职务
Axx[21]=Alltrim(.Range("D10").Text) && 技术职务
Axx[22]=Alltrim(.Range("I10").Text) && 熟悉何种技术有何专长
Axx[23]=Alltrim(.Range("B12").Text) && 奖惩情况
Axx[24]=Alltrim(.Range("B13").Text) && 年度考核情况
Insert Into 个人信息数据库表 From Array Axx
Endfor
.quit
Endwith
RELEASE Eole
Browse
Use In 个人信息数据库表
* 建议：将表中 奖惩情况及年度考核 字段的数据类型改为备注型
读取E表信息到D表（代码可看22楼sdta的）.rar
