各路好:麻烦您给虾米小弟我把把脉,这段代码用VB调用EXCEL结果不对,是为什么

各路大虾好:麻烦您给虾米我把把脉,这段代码用VB调用EXCEL结果不对,是为什么?
这段代码的目的是对比wsmybook和se表中的两列单元格,如果在se表的第五行,第9列,找到与appexcel表的第5行,第6列数据相同,则把se表的第五行第8列值赋给appexcel中的第6行第6列,以此类推,其实就是在se表的第9列搜索到与appexcel的第6列的单元格相同的值,然后将se表同行的第8列值赋给与appexcel的第6列同行.第谢谢关注
Private Sub Command1_Click()
Dim appexcel As Object
Dim wbmybook As Object
Dim wsmysheet

Set appexcel = CreateObject("excel.application")
appexcel.Visible = True

Set wbmybook = appexcel.Workbooks.Open("F:\学习VB\调用的编码成果\appexcel.xls")
Set wsmysheet = wbmybook.worksheets(1)
wsmysheet.Activate

Dim secex As Object
Dim se As Object
Dim ec As Object

Set secex = CreateObject("excel.application")
secex.Visible = True
Set se = secex.Workbooks.Open("F:\学习VB\调用的编码成果\secex.xls")
Set ec = se.worksheets(1)

Dim i, j, a, b As Double

a = 6
b = 5
For a = 6 To 204
  For b = 5 To 309

  If secex.cells(b, 9).Value = appexcel.cells(a, 5).Value Then appexcel.cells(a, 6).Value = secex.cells(b, 8).Value
 
  Next b
 Next a
 End Sub 


[解决办法]
secex.cells(b, 9).Value 后面的.value去掉