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

Question

这段代码的目的是对比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 wsmysheetSet appexcel = CreateObject("excel.application")
appexcel.Visible = TrueSet wbmybook = appexcel.Workbooks.Open("F:\学习VB\调用的编码成果\appexcel.xls")
Set wsmysheet = wbmybook.worksheets(1)
wsmysheet.ActivateDim secex As Object
Dim se As Object
Dim ec As ObjectSet 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 Doublea = 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 

Answer 1

secex.cells(b, 9).Value 后面的.value去掉

Answer 2

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