如何将exle文件导入vf，哪位大侠给帮帮忙

Excel 转 VFP 数据表示例
Excel 转 VFP 数据表示例*本实例演示了如何将Excel工作表中的数据转换为VFP的dbf。
*转换之前必须先按照原来Excel工作表的结构创建一个dbf表
*本例中创建了20个字符型字段和1和备注字段
*本程序只能在VFP7以上版本运行
*cells(i,1)表示在Excel中的 i 行第 1 列
*注意本实例中的insert语句，最后一个单元格的内容并没有存放在一个数组元素或者变量中
*而是直接引用，是因为该单元格的长度可能超过字符型变量所允许的最大长度
*因此直接将其写入备注型字段中，这样可以防止写入时被截断。

set safe off
set talk off
*创建一个 Excel 应用程序实例
objExcel = CreateObject("Excel.Application")
*打开文件
wjm=getfile("xls")
objExcel.Workbooks.Open(wjm)
*确定工作表总行数
LOCAL nrow ,i
i = 0
DO WHILE .t.
i = i + 1
IF !VARTYPE(objexcel.cells(i,1).value) = "C"
nrow = i - 1
EXIT
ENDIF
ENDDO
*开始导入数据
USE excel
DIMENSION arr_temp(20)
FOR i = 3 TO nrow &&前两行不导入
arr_temp(1) = objexcel.cells(i,1).value

arr_temp(2) = objexcel.cells(i,2).value

arr_temp(3) = objexcel.cells(i,3).value