使用 VFP 读取 excel 的信息采集表各项内容

第一个按钮的代码

程序代码：

  CREATE TABLE wjmk( fname c(30))  aa=ADIR(mm,'个人信息采集表*.xls')     FOR nn=1 to aa    APPEND BLANK    REPLACE fname with mm(nn,1)  ENDFOR  SELECT wjmk  GO top  thisform.grid2.RecordSource =''  thisform.grid2.ColumnCount =-1  thisform.grid2.RecordSourceType = 1  thisform.grid2.RecordSource ='wjmk'   Thisform.Refresh    RETURN 

第二个按钮的代码

程序代码：

thisform.grid1.Visible = .F.thisform.Refresh*-----------------------------------------------------SELECT wjmkGO topSCAN  M_File=ALLTRIM(fname)   &&&GETFILE('xls','录用名单文件')  IF USED('bmk')    SELECT bmk  ELSE     SELECT 0    USE grxxk alia bmk  ENDIF   IF EMPTY(M_File)    MESSAGEBOX("请选择待导入的EXCEL文档！",0+48,"提示")    RETURN  ELSE   IF !JUSTEXT(M_FILE)$"XLS.xlsx"                             &&获得文件扩展名(JUSTEXT(M_FILE)#"XLS.xlsx")     =MESSAGEBOX("您选择的不是EXCEL文档！",0+48,"提示")     RETURN   ENDIF  ENDIF  myexcel=createobject('excel.application')        && 创建一个对象  IF !VARTYPE(myexcel)$"Oo"                        &&& 如果用户的电脑上未装EXCEL软件，则结束运行。    MESSAGEBOX("建立EXCEL文件失败，请检查OFFICE是否正常！",48,"提醒：")    RETURN  ENDIF  myexcel.visible=.F.                                && 对象不可见  bookexcel=myexcel.workbooks.open(mypath+M_File)            && 打开指定文件  *o_SheetName=myexcel.application.ActiveSheet.Name    && 获取当前激活工作表的名称  *o_UsedRange =bookexcel.worksheets(o_SheetName).UsedRange     && 返回工作表中可使用的区域，UsedRange表的属性  *o_rows=o_UsedRange.rows.count                        && 汇总行  *o_cols=o_UsedRange.columns.count                     && 汇总列   LOCAL m1,m2,m3,m4,m5,m6,m7,m8,m9,m10,m11,m12,m13,m14,m15,m16,m17,m18,m19,m20  LOCAL m21,m22,m23,m24,m25,m26,m27       m1=myexcel.cells(1,2).text      &&身份证号         m2=myexcel.cells(2,2).text      &&姓名            m3=myexcel.cells(2,4).text      &&学校代码       m4=myexcel.cells(2,6).text      &&学校名称全称        m5=myexcel.cells(2,8).text      &&年级       m6=myexcel.cells(3,2).text      &&班级名称             m7=myexcel.cells(3,7).text      &&性别       m8=myexcel.cells(4,2).text      &&民族       m9=myexcel.cells(4,7).text       &&户籍镇街             m10=myexcel.cells(5,2).text      &&监护人      数值型的写法：m10=myexcel.cells(i,10).value       m11=myexcel.cells(6,2).text      &&监护人手机       m12=myexcel.cells(6,5).text      &&家庭住址             m13=myexcel.cells(7,2).text      &&学籍辅号       m14=myexcel.cells(7,4).text      &&身份证号         m15=myexcel.cells(7,6).text      &&姓名            m16=myexcel.cells(8,3).text      &&学校代码       m17=myexcel.cells(8,6).text      &&学校名称全称        m18=myexcel.cells(9,3).text      &&年级       m19=myexcel.cells(9,6).text      &&班级名称             m20=myexcel.cells(10,2).text      &&性别        数值型的写法：m10=myexcel.cells(i,10).value       m21=myexcel.cells(10,4).text      &&民族       m22=myexcel.cells(10,9).text      &&户籍镇街             m23=myexcel.cells(12,2).text      &&监护人       m24=myexcel.cells(13,2).text      &&监护人手机       m25=myexcel.cells(11,2).text      &&家庭住址             m26=myexcel.cells(11,5).text      &&学籍辅号       m27=myexcel.cells(11,9).text      &&身份证号        SELECT bmk       APPEND BLANK       REPLACE bh WITH m1,xm WITH m2,xb WITH m3,csrq WITH m4,mz WITH m5,jg WITH m6,csd WITH m7,jtzz WITH m8,post WITH m9       REPLACE gzdw WITH m10,tel WITH m11,telm WITH m12,cjgzsj WITH m13,rdsj WITH m14,sfzh WITH m15,xl WITH m16,byxxzy WITH m17       REPLACE zjxl WITH m18,zjbyxxzy WITH m19,xrzw WITH m20,jszw WITH m21,jszc WITH m22,jzqk WITH m23,ndkhqk WITH m24       REPLACE hyzk WITH m25,jscs WITH m26,jslssj WITH m27    myexcel.workbooks.close    && 关闭工作簿  myexcel.quit               && 关闭excel  RELEASE myexcel            && 释放对象变量，以完全结束EXCEL的进程  SELECT wjmkENDSCAN*-------------------------SELECT bmkGO topthisform.grid1.ColumnCount =-1thisform.grid1.RecordSource ='bmk'thisform.grid1.RecordSourceType =1thisform.grid1.Visible = .T.thisform.RefreshMESSAGEBOX('恭喜您，员工数据信息导入成功！',64,'提示：',1500)