运行到cStr = oRs.GetString()时出现

这个提示不明白。

SET TALK OFF
 SET SAFETY OFF
 CLEAR ALL
 CLEAR
 dir1=GETDIR()
 SET DEFAULT TO &dir1.
 CREATE CURSOR tt (编号 I, 姓名 C(10), 联系电话 C(20), 部门 C(10))
 myexcel=createobject('excel.application')
 myexcel.visible=.t.
 FOR i=1 TO ADIR(xfile,"*.xls*")
     bookexcel=myexcel.workbooks.open(dir1+xfile(i,1))
     o_SheetName=myexcel.application.ActiveSheet.Name
     sj=bookexcel.Worksheets(o_SHEETNAME).usedrange.value   
     FOR j=2 TO ALEN(sj,1)     
         APPEND BLANK
         REPLACE 编号 WITH sj(j,1),姓名 WITH sj(j,2),联系电话 WITH sj(j,3),部门 WITH sj(j,4)
     ENDFOR      
    myexcel.Activeworkbook.close(.F.)
    myexcel.quit
 ENDFOR
 BROWSE
 SET TALK ON
 SET SAFETY ON
 RETURN
以上代码测试可以通过

[此贴子已经被作者于2020-12-7 23:44编辑过]

先定义好dbf的结构。然后存入数组，数组在存入dbf。
LNCOL=oExcel.ActiveSheet.USEDRANGE.COLUMNS.COUNT   &&表有几列
LNrow=oExcel.ActiveSheet.USEDRANGE.rowS.COUNT    &&表有几行

USE (xxx) IN 0 ALIAS dxtz
SELECT  dxtz
ZAP
FOR i=2 TO LNrow STEP 60000  &&数组最多可以65000
    rangefirstrow=MIN(i,LNrow)
    rangenextrow=Min(i+59999,LNrow)
    excelrange="A"+TRANSFORM(rangefirstrow)+":"+excelCOLU(LNCOL)+ TRANSFORM(rangenextrow)    &&选择导入范围
    arrTableInfo=oExcel.ActiveSheet.Range(excelrange).Value    &&工作表内容存入数组
    INSERT INTO dxtz FROM ARRAY arrTableInfo    &&数组存入dbf
    RELEASE  arrTableInfo
ENDFOR

看过各位朋友的表达，我却有不同的思想与各位共享：
我的认识是这样的，
如果你只是偶尔使用EXCEL转化到
DBF表，请把EXCEL另存为SCV格式
如果你经常要做EXCEL转化到DBF，
请你安装EXCEL2003
因为EXCEL03可以直接转化成DBF简单又方便。