急用！高手帮个忙！

Question

Private Sub Form_Load()
Dim xlsObj As Excel.Application
       Dim xlsSheet As Excel.Worksheet
       Set xlsObj = CreateObject("excel.application")
       ''''sFilePath 文件路径
       ''''lSheetIndex 要打开的页
       Set xlsSheet = xlsObj.Workbooks.Open("f:\yp\卷子.xls").Sheets("Sheet1")
       ''''获取单元值
       xlsSheet.Cells(row1, col7) = s
       '或者xlsSheet.cell(row, col).Text
 '使用ODBC
       Set cn = New Connection
       cn.CursorLocation = adUseClient
       cn.Open "Provider=MSDASQL;driver={Microsoft Excel Driver (*.xls)};dbq=" & ("f:\yp\卷子.xls")
       Set RS = New Recordset
       RS.Open "select * from [" & sheet1 & "$]", cn, adOpenDynamic, adLockPessimistic
End Sub
请问高手为什么运行时在这“xlsSheet.Cells(row1, col7) = s”会出现“应用程序定义或对象定义错误！”
         如果我想让cells里的函数赋值给一个字母F并让它跟我要比较的函数=DAVERAGE(A2:D16,3,E1:F2)作比较应该怎样修改？先谢谢了。

Answer 1

////''''获取单元值///
应是s = xlsSheet.Cells(row1, col7)/////row1, col7///
如果row1, col7是变量，应0<row1<65536,0<col7<256
如果想取第1行，第7列那一格的值，应s = xlsSheet.Cells(1, 7)/////如果我想让cells里的函数赋值给一个字母F并让它跟我要比较的函数=DAVERAGE(A2:D16,3,E1:F2)作比较应该怎样修改？先谢谢了。//////
F=xlsSheet.Cells(1, 1).Formula
if F="=DAVERAGE(A2:D16,3,E1:F2)"

Answer 2

改正一点
如果row1, col7是变量，应0<row1<=65536,0<col7<=256