vfp 中导入excel表的問題

excel

我给你参考下我之前写的代码，用数组实现就行，不用OLE控件，你照着改改。注意下excel表里的字段类型一定要和DBF表的字段类型保持一致，不然导不进去哈

objexcel = CreateObject(excel.Application)wjm = getfile(xls,文件名,确定,0,请选择商品信息所在的excel文档)IF EMPTY(wjm) RETURNENDIFWAIT wind '正在导入商品信息，请稍候……' nowAIt at 16,53objexcel.Workbooks.Open(wjm)LOCAL nrow as Number ,i as Numberi=0IF objexcel.cells(1,1).value=名称 or objexcel.cells(1,1).value=goods_name aa=2ELSE aa=1ENDIFDO WHILE .t. i=i+1 IF !VARTYPE(objexcel.cells(i,1).value)=C nrow=i-1 EXIT ENDIFENDDOLOCAL arecord(17)sele goodsxx=0yy=0FOR s=aa TO nrow arecord(1)=objexcel.cells(s,1).value arecord(2)=objexcel.cells(s,2).value arecord(3)=objexcel.cells(s,3).value arecord(4)=objexcel.cells(s,4).value arecord(5)=objexcel.cells(s,5).value IF !VARTYPE(objexcel.cells(s,6).value)=N arecord(6)=0 ELSE arecord(6)=objexcel.cells(s,6).value ENDIF IF !VARTYPE(objexcel.cells(s,7).value)=N arecord(7)=0 ELSE arecord(7)=objexcel.cells(s,7).va