根据excel建立一个dbf，字段为excel内容（列），再将excel的数据相应加入dbf各字段？如何做？

执行总是出错。不太明白程序。IMPORT FROM "&my_file" type XL5出错，excel为2003版本

[ 本帖最后由 huangp1991 于 2010-3-16 08:52 编辑 ]

根据excel建立一个dbf，字段为excel内容（列），再将excel的数据相应加入dbf各字段？如何做？ dbf原来不存在，没有定义结构。新建一个临时表？？？？

local iRow,iCol
local oExcel,oWorkBook,oSheet  
local cFilePath  
public cFieldName,cFieldVal
oExcel=createobject("excel.application")
oExcel.visible=.f.
cFilePath=getfile("xls")


IF EMPTY(cFilePath)
   messagebox("请选择excel文件")
   RETURN
ENDIF

oWorkBook=oExcel.workbooks.open(cFilePath)
oSheet=oWorkBook.sheets(1)  

use limz  exclusive
zap

for iRow=1 to oSheet.usedRange.rows.count  
  append blank   
 
  for iCol=1 to  oSheet.usedRange.columns.count
    cFieldName=oSheet.cells(1,iCol).value
    cFieldVal=oSheet.cells(iRow+1,iCol).value
   
   
    replace &cFieldName with  cFieldVal   
  endfor
endfor
" replace &cFieldName with  cFieldVal"运行时候总是出错，数据类型不匹配，帮我改一下？   



[ 本帖最后由 huangp1991 于 2010-3-18 14:26 编辑 ]

replace &cFieldName with  trim((cFieldVal))这样就可以了

[ 本帖最后由 huangp1991 于 2010-3-18 14:25 编辑 ]