Use Grxx in 0 && 表结构 字段内容 C(10) 类型 C(1) 位置 C(4)
SELECT grxx
Local Axx[Reccount()] && 无效的下标引用

或者
Use Grxx in 0 && 表结构 字段内容 C(10) 类型 C(1) 位置 C(4)
Local Axx[Reccount("Grxx")] && 无效的下标引用

楼主的基础实在是太弱了

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

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

能否补齐每行代码的注释

这里的位置，是叫你换成数据在EXCEL中的单元格坐标

尽管查了很多资料，也看不懂这几行的代码？能否帮加个注释

    *************************************
    * 名称：读取E表中的个人信息
    * 思路：
    *************************************
    SET ENGINEBEHAVIOR 70
    SET SAFETY OFF 
    SET TALK OFF 
    *---
    PUBLIC mypath
    cCurrentProcedure = SYS(16,1)
    nPathStart = AT(":",cCurrentProcedure)- 1
    nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart)
    mypath=SUBSTR(cCurrentProcedure, nPathStart, nLenofPath)
    SET DEFAULT TO (mypath)
    t=SECONDS()
    CLOSE DATABASES    
    SELECT 0
    USE 信息汇总表 ALIAS bmk
    ZAP 
    SELECT 0
    USE grxx ALIAS kg
    MyExcel=createobject('excel.application')          &&创建一个对象
    IF !VARTYPE(myexcel)$"O.o"      &&& 如果用户的电脑上未装EXCEL软件，则结束运行。
     MESSAGEBOX("建立EXCEL文件失败，请检查OFFICE是否正常！",48,"提醒：")
     RETURN 
    ENDIF
    MyExcel.visible=.T.                    &&& 对象不可见
    MyExcel.DisplayAlerts = .F.            &&& 关闭EXCEL的系统对话框
    FOR i=1 TO 9   
      filemc="个人信息采集表00"+STR(i,1)+".xls"
      Mb_excel=myexcel.workbooks.open(mypath+"\"+filemc)     && 打开指定文件
      SELECT bmk 
      APPEND BLANK 
      SELECT kg
      GO TOP 
      SCAN   
        c_fnam=ALLTRIM(kg.字段内容)
        c_wz=ALLTRIM(kg.位置)
        SELECT bmk
        REPLACE ('bmk.'+c_fnam) WITH Mb_excel.activesheet.cells(&c_wz.).text
        SELECT kg
      ENDSCAN  
      MyExcel.ActiveWorkbook.close     
    ENDFOR  
    *-------    
    MyExcel.DisplayAlerts = .T.   &&& 恢复EXCEL的系统对话框 
    MyExcel.WorkBooks.close       &&& 关闭工作区  
    MyExcel.QUIT                  &&& 关闭excel
    RELEASE MyExcel               &&& 释放对象变量，以完全结束EXCEL的进程
    CLOSE DATABASES 
    ? SECONDS()-t
    MESSAGEBOX('读取结束！',64,'提示：',1000)
    QUIT    

range("A3") 可识别。RANGE(3,1) 无法识别