请大家看这个VB调用EXCEL，为什么打开的EXCEL只读的，而且程序不出成果。

Question

第7列和第9列有对应关系，如果第7列的一个值与第8列的一个值相当，则把第9列的相应值给第10列。请您看看为什么结果不出。
Private Sub Command1_Click()
Dim app As Object
Dim bpp As Object
Dim cpp As ObjectSet app = CreateObject("excel.application")
app.Visible = TrueSet bpp = app.Workbooks.Open("D:\office\job\2009\vb result\other success.xls")
Set cpp = bpp.worksheets(1)
cpp.Activate
Dim i, j%
For i = 6 To 200
    j = 6
    Do While (j <= 128)
            If app.cells(i, 8) = app.cells(j, 7) Then app.cells(i, 10) = app.cells(j, 9)
    j = j + 1
    Loop
Next i
cpp.Activate
End Sub 

Answer 1

app.cells(i, 8)    应该是cpp

Answer 2

Do While (j <= 128) 
    If (cpp.cells(i, 8) = cpp.cells(j, 7) Then cpp.cells(i, 10).Formula  = cpp.cells(j, 9).Value
    j = j + 1
Loop楼主用：cpp.cells(i, 8)没报错？