现有多张样式相同的个人信息采集表（Excel格式）如何利用VFP程序自动读取到dbf汇总表中，望高手赐教，万分感谢！！！

个人信息采集表的样式是这样的：


下列代码有两处错误（红色显示），请各位大侠赐教，万分感谢！！！
Close Databases
Use Grxx && 表结构 字段内容 C(10) 类型 C(1) 位置 C(4)
Local Axx[Reccount()] && 无效的下标引用
Eole=CREATEOBJECT('Excel.Application')
With Eole
    For lnI=1 To Adir(Axls,"*.Xls")
        .Workbooks.Open(Sys(5)+Sys(2003)+"\"+Axls[lnI,1])
        Select Grxx
        Scan
            Do Case
               Case Inlist(Alltrim(类型),"C","M")
                    Axx[Recno()]=ALLTRIM(.Range(位置).Text)
               Case Alltrim(类型)=="D"
                    Axx[Recno()]=Ctod(Transform(.Range(位置).Text,"@R 9999-99-99"))
               Case Alltrim(类型)=="N"
                    Axx[Recno()]=Val(.Range(位置).Text)
            Endcase
        Endscan
        Insert Into 信息汇总表 From Array Axx && 找不到变量“Axx”
    Endfor
    .quit
Endwith
RELEASE Eole
Select 信息汇总表
Browse
Use In 信息汇总表
Use In Grxx

[此贴子已经被作者于2021-4-13 08:45编辑过]

代码如何改，望赐教！！！

@sdta 非常感谢指导！！！Grxx.dbf已创建，仍提示 Local Axx[Reccount()] “ 无效的下标引用”，望指教！

完整代码如下：
Close Databases
use 信息汇总表 in 0
zap
Use Grxx in 0 && 表结构 字段内容 C(10) 类型 C(1) 位置 C(4)
Local Axx[Reccount()] && 无效的下标引用
Eole=CREATEOBJECT('Excel.Application')
With Eole
    For lnI=1 To Adir(Axls,"*.Xls")
        .Workbooks.Open(Sys(5)+Sys(2003)+"\"+Axls[lnI,1])
        Select Grxx
        Scan
            Do Case
               Case Inlist(Alltrim(类型),"C","M")
                    Axx[Recno()]=ALLTRIM(.Range(位置).Text)
               Case Alltrim(类型)=="D"
                    Axx[Recno()]=Ctod(Transform(.Range(位置).Text,"@R 9999-99-99"))
               Case Alltrim(类型)=="N"
                    Axx[Recno()]=Val(.Range(位置).Text)
            Endcase
        Endscan
       Insert Into 信息汇总表 From Array Axx && 找不到变量“Axx”
    Endfor
    .quit
Endwith
RELEASE Eole
Select 信息汇总表
Browse
Use In 信息汇总表

@sdta 非常感谢！！！完美解决问题。