申明：以下代码为引用论坛中高人代码改编,非本人版权所有：
运行环境：WIN10+EXCEL2010+VFP9
附表：20210216.XLSX【见下载频道】；
说明：当附表记录条数删减至小于10万条以下读取正常，不删减数据运行时程序报错：“OLE IDispatch 异常代码О出自Provider:内存资源不足，无法完成此操作。..”

改编后运行的代码如下：

SET DEFAULT TO ADDBS(JUSTPATH(SYS(16)))                 
CLEAR
SET SAFETY OFF
cExcel = "D:\20210216.XLSX"
cHDR = "YES"   
cSheet = "[Sheet1$C:O]"
cSQL = "SELECT * FROM " + cSheet
cConn = "Provider=Microsoft.ACE.OLEDB.12.0;";
        + "Extended Properties='Excel 12.0;HDR="+cHDR+";IMEX=1';";
        + "Data Source=" + cExcel
**    * EXCEL2003及之前版本
**    cConn = "Provider=Microsoft.Jet.OLEDB.4.0;";
**           + "Extended Properties='Excel 8.0;HDR="+cHDR+";IMEX=1';";
**           + "Data Source=" + cExcel
oConn = CREATEOBJECT("ADODB.Connection")
oConn.Open(cConn)
oRs = CREATEOBJECT("ADODB.Recordset")
oRs.Open(cSQL, oConn, 1, 3, 1)
oRs.MoveFirst
CREATE CURSOR tt (外购件物 C(40),物料描述 C(50),配料与否 C(8),生产批次 C(20),;
    工厂 C(10),存储位置 C(30),BOM版本号 C(30),上层物代 C(30),上层物描 C(30),生产订单 C(30),生产订物 C(30),生产订描 C(30),需求数量 N(10,3))
cStr = oRs.GetString()
STRTOFILE(cStr, "tmp.txt")
SELECT tt
APPEND FROM tmp.txt DELIMITED WITH TAB
SELECT * FROM tt
oRs.Close
oConn.Close
CLEAR ALL
RETURN

EXCEL表附件：在下载频道搜索资源“20210216”

Office2007测试未见异常
是不是Office的问题，装个正版的试试

是不是跟装了两个版本OFFICE有关，汗，我装了2010版和2003版；

卸载2003版后通过，谢谢版主。@吹水大佬