本人在实际工作遇到一个问题，就是从一个有多行表头的EXCEL电子表格中读取数据的问题，基本问题都能解决，在读取EXCEL文件单元可数据时，使用m1=myexcel.Cells(2,1).Value可以，但是一旦把两个常量改为变量命令就报错。比如说使用循环，那么CELLS（行号，列号）中的行号或列号势必要使用变量，程序运行时就报错：CELLS不是一个对象。希望能有高手指点迷津。谢谢。

楼上你的运行环境是什么？我是XP+2003+VFP9

SET talk off
SET SAFETY off
M_File=GETFILE('xls','电子表格文件')
IF M_File=" "  
   =MESSAGEBOX("请选择待导入的电子表格文件！",0+48,"提示")
   RETURN
ELSE  
   IF JUSTEXT(M_FILE)#"XLS"
      =MESSAGEBOX("您选择的不是EXCEL文档！",0+48,"提示")
      RETURN
   ENDIF
ENDIF  
USE ?
ZAP  
myexcel=createobject('excel.application')
myexcel.visible=.f.
bookexcel=myexcel.workbooks.open(M_File)
o_SheetName=myexcel.application.ActiveSheet.Name
UsedRange =bookexcel.worksheets(o_SheetName).UsedRange
o_cols=UsedRange.columns.count
IF UsedRange.rows.count<=1  
   =MESSAGEBOX("待导入数据行数太少，请检查！",0+16,"提示")
ELSE  
   for i=5 to UsedRange.rows.count
       APPEND BLANK   
       REPLACE xm WITH myexcel.cells(i,2),zymc WITH myexcel.cells(i,3)
   ENDFOR
ENDIF  
myexcel.workbooks.close &&关闭工作区
myexcel.quit &&关闭excel
brow
这是我的程序原文，运行到REPLACE 那行就报错“CELLS不是一个对象”，然后我将程序挂起，直接到窗口把命令中I换成常量5执行       REPLACE xm WITH myexcel.cells(5,2),zymc WITH myexcel.cells(5,3)就不报错。谢谢各位大侠伸手援助。

谢谢各位大侠的伸手援助，现在问题是解决了，只是我还是不能用单个读取单元格数值方法，最后只好利用数组传送数据，再用循环追加到数据表中。当然在追加之前还是要加分支结构进行数据类别的差别。再次深深的感谢。