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

x=CREATEOBJECT("Excel.application")
y=x.workbooks.open("e:\a.xlsx")
UsedRange=y.worksheets("sheet1").UsedRange
FOR i=1 TO UsedRange.rows.count
 FOR j=1 TO UsedRange.columns.count   
   MESSAGEBOX(x.cells(i,j).value)
   NEXT j
   NEXT i
我这儿可以

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

y=x.workbooks.open("e:\a.xlsx")
版本比2003高

用变量指定单元格的行列不会有问题的。

我也从未遇到过楼主所描述的问题。楼主能否贴出一段代码，看看问题出在哪？

我是win 7+2013+vfp9

2楼的代码可行。

……

[ 本帖最后由 qjbzjp 于 2014-5-9 07:42 编辑 ]

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)就不报错。谢谢各位大侠伸手援助。