怎样把excel电子表导入到visual foxpro 数据库中？

来源：百度知道 编辑：UC知道 时间：2024/05/02 20:32:17
我在visual foxpro6.0下，想把excel电子表导入到visual foxpro ，转换成DBF格式的数据表，最后怎么也转换不成，提示：致命错误：异常代码=C0000005 ，请老师指导一下，是什么原因？对excel电子表有什么格式要求？请高手指点

excel表格导入vfp没有更好的办法，但是可以通过读取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=my