以下是引用茵梦湖在2012-12-1 00:54:34的发言：



lsfile =getfile("xls")
if justext(lsfile)<>"XLS"
   messageb("数据文件(.xls) 未选定","")
   retu
endif
*
o_excel =createObject("excel.application")
o_excel.workBooks.open(lsfile)
lsfd =""
for jj=1 to o_excel.activesheet.usedrange.columns.count
    jjc =o_excel.cells(1,jj).text
    if !empt(jjc)
       lsfd =lsfd +iif(empt(lsfd),"",",") +allt(jjc)
    endif
endfor
o_excel.workbooks.close
o_excel.quit
*
use 你的dbf表 excl
zap
appe fiel &lsfd from "&lsfile" xls
brow