逐一读取EXCEL文件单元格内容出错？

Question

下面的程序，执行到msgbox 一句时报错“应用程序定义错误或对象定义报错”，是什么问题？Set xlBook = Exl.Workbooks.Open("C:\1.xls")
Set xlSheet = xlBook.ActiveSheet
For IRow = 0 To xlSheet.UsedRange.Rows.Count
      For ICol = 0 To xlSheet.UsedRange.Columns.Count
              MsgBox xlSheet.Cells(IRow, ICol)
      Next
Next

Answer 1

错在Set xlBook = Exl.Workbooks.Open("C:\1.xls")
改成
set xlbook=getobject("c:\1.xls")

Answer 2

下标从1开始。For IRow = 1 To xlSheet.UsedRange.Rows.Count
      For ICol = 1 To xlSheet.UsedRange.Columns.Count

Answer 3

映象中ccrun(老妖)好象是BCB高手吧？