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

append from ...

这个东东太简单了，选择另存为  ：**.XLS XL5  后辍扩展名一定要是*.XLS XL5   (另存为EXCEL 版本为97  或95版本才可以的)  
后用APPEND FROM  如E:\X.XLS XL5  就搞定,(先要将*.DBF文件打开才行)

my_file=GETFILE("xls")
IMPORT FROM "&my_file" type XL5
my_dbf=JUSTSTEM(my_file)
SELECT (my_dbf)
FOR iii=1 to FCOUNT(my_dbf)
    mzd=SUBSTR("ABCDEFGHIJKLMNOPQRSTUVWSYZ",iii,1)
    mfilename=FIELD(mzd)
    m_ren="ALTER TABLE "+ "&my_dbf rename column "+ mzd+" to "+ &mfilename
    &m_ren
NEXT
GO 1
DELETE
PACK
BROWSE

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

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

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

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

在VFP8测试通过。

出错内容是什么？

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 编辑 ]

Excel表中列的数据类型与limz表中对应字段的类型不相符，需要将Excel表中的列数据类型修改相符才行。

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

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