跪求高手指点如何实现表格与图片的关联
妹纸我有个excel表格,各种字段,其中一列是身份证号。另外有些以身份证号命名的照片,求高手指点如何将表中的身份证号与照片关联比对,判断是否有照片!不胜感激~
CREATE TABLE 匹配 (身份证号 c(18),是否有照片 l) ***打开表 lsfile =GETFILE("xls") IF JUSTEXT(lsfile)<>"XLS" MESSAGEB("数据文件(.xls) 未选定","") RETU ENDIF ****建立EXCEL对象, myexcel=CREATEOBJECT('excel.application') &&创建一个对象 myexcel.VISIBLE=.F.&&不可见 bookexcel=myexcel.workbooks.OPEN(lsfile) &&打开指定文件 o_sheetname=myexcel.APPLICATION.activesheet.NAME &&获取当前激活工作表的名称 usedrange =bookexcel.worksheets(o_sheetname).usedrange &&返回工作表中可使用的区域,UsedRange表的属性 o_rows=usedrange.ROWS.COUNT &&汇总行 o_cols=usedrange.COLUMNS.COUNT &&汇总列 ***判断身份证号在EXCEL表的哪一列 FOR jj=1 TO o_cols IF ALLTRIM(o_excel.cells(1,jj).TEXT)=="身份证号" EXIT ENDIF ENDFOR FOR ii=2 TO o_rows sfzhao= ALLTRIM(o_excel.cells(ii,jj).TEXT)&&身份证号 iszp=.F.&&没有照片 IF FILE(sfzhao+".jpg")&&如果有照片 iszp=.T. ENDIF INSERT INTO 匹配 VALUES (sfzhao,iszp)&&保存到表里 ENDFOR myexcel.workbooks.CLOSE myexcel.QUIT BROWSE