现在的VFP9.0支持excel2003格式的导出和导入吗？我的vfp9.0好像就不支持，比如 …… xls 8 就出现错误提示。是不是不支持呀？还是我vfp9.0有问题？

没人回答，自己顶上去。

不完全支持，对excel4.0工作表比较支持。

那该怎么办，每次都要事先转换一下就太麻烦了。有没有什么解决的办法呀？

事先转换一下，也许是最可行的方法。

追问： 能不能用代码来进行事先转换？
       用代码先转换，然后再导入行不行？代码该怎么写呢？

VFP可以写程序直接编辑office文件的，用Ole打开Excel（任何版本均可）文件，直接读写单元格上的数据，生成图表也可以。

收到的鲜花

• qshuju 于 2011-07-04 16:09 送鲜花  3朵  

用Ole打开Excel（任何版本均可）文件
谢谢，我要进一步学习一下了。

给你段vfp直接读取EXCEL文件的示例。

M_File=GETFILE('xls','订单文件')
IF M_File=""
   =MESSAGEBOX("请选择待导入的收订单文件！",0+48,"提示")
   RETURN
ELSE
   IF JUSTEXT(M_FILE)#"XLS"  &&获得文件扩展名
      =MESSAGEBOX("您选择的不是EXCEL文档！",0+48,"提示")
      RETURN
   ENDIF
ENDIF
USE 图书订单表
ZAP
myexcel=createobject('excel.application')      &&创建一个对象
myexcel.visible=.f.&&不可见
bookexcel=myexcel.workbooks.open(M_File)      &&打开指定文件
o_SheetName=myexcel.application.ActiveSheet.Name    &&获取当前激活工作表的名称
UsedRange =bookexcel.worksheets(o_SheetName).UsedRange     &&返回工作表中可使用的区域，UsedRange表的属性
o_rows=UsedRange.rows.count    &&汇总行
o_cols=UsedRange.columns.count    &&汇总列
IF o_rows<=1
   =MESSAGEBOX("待导入数据行数太少，请检查！",0+16,"提示")
ELSE
   FOR i=2 TO o_rows
       m1=myexcel.cells(i,1).value      &&书号     
       m2=myexcel.cells(i,2).value      &&书名      
       m3=myexcel.cells(i,3).value      &&出版社
       m4=myexcel.cells(i,4).value      &&作者      
       m5=myexcel.cells(i,5).value      &&定价
       m6=myexcel.cells(i,6).value      &&数量
       APPEND BLANK
       REPLACE 书号 WITH m1,书名 WITH m2,出版社 WITH m3,作者 WITH m4,定价 WITH m5,数量 WITH m6
    ENDFOR
ENDIF
myexcel.workbooks.close    &&关闭工作区
myexcel.quit    &&关闭excel
brow

　　呵呵，我昨天也为这个事情郁闷，后来找到个方法，不知道对你有没有用。
　　先从你已有的DBF表里面导出一个，存为EXCEL5.0,然后以这个表为模板，将你要导入的EXCEL数据复制到这个模板里面，保存，会提示你版本过低，别理他，以5.0的格式保存，然后就可以用导入向导导入了。