请教一个vfp导入Excel数据的问题！

在论坛中看到一段从Excel导入VFP数据的代码，示例Excel表有6列，我的表也有6列，但只需要前4列就行，把我原代码的Columns(7)中的7改为6，Resize(row1,6)中的6改为4，Cells(1,7)中的7改为6，Resize(row2,6）中的6改为4，运行提示错误，改回原来的值就可正常运行，哪位大侠能指导一下，什么问题？



CREATE TABLE  tmpzdwyj (驻地网名称 c(20),接入号码 c(20),号码地址 c(40),结算基数 n(10,2))
lcFileName=GETFILE('xlsx','选择XLSX文件','选择文件',0,'选择公客中心提供的驻地网佣金原始数据文件')


SET DEFAULT TO e:\zdwyj

oExcel = CREATEOBJECT('Excel.Application')
oExcel.DisplayAlerts = 0

    tmpExcel = oExcel.WorkBooks.Open(lcFileName).ActiveSheet
    &&tmpExcel.Rows("1:5").Delete
    row1 = oExcel.CountA(tmpExcel.Columns(1))
    row2 = oExcel.CountA(tmpExcel.Columns(7))
    arr1 = tmpExcel.Cells(1,1).Resize(row1,6).Value  
    arr2 = tmpExcel.Cells(1,7).Resize(row2,6).Value  
    INSERT INTO tmpzdwyj FROM ARRAY arr1
    INSERT INTO tmpzdwyj FROM ARRAY arr2
    oExcel.WorkBooks.Close

oExcel.Quit
SELECT * FROM tmpzdwyj