EXCEL 跨表比较数据

Public Sub Compare(fullname As String, sheet As String)

    Dim conn, sql, rows, i, cellContents ,rowIndex, colIndex

　　rowIndex = 2

　　colIndex = getColumnIndex("Name")

    '获取目标表数据
    Set conn = CreateObject("adodb.connection")
    conn.Open "provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0';data source=" & fullname
    sql = "select * from [" & sheet & "$]"
    rows = conn.Execute(sql).getrows
    conn.Close

    Do
        '选择原表单元格
        ActiveSheet.Cells(rowIndex, colIndex).Select
　　　　'去除填充色
        With Selection.Interior
            .Pattern = xlNone
            .TintAndShade =
            .PatternTintAndShade =
        End With

        cellContents = ActiveCell.Value
        If cellContents <> "" Then
            For i =  To UBound(rows, )
                If cellContents = rows(, i) Then
                    If rows(, i) <> "apple" Then
                       '填充黄色
                        With Selection.Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color =
                            .TintAndShade =
                            .PatternTintAndShade =
                        End With

                    End If
                    Exit For
                End If
            Next
        End If

        rowIndex = rowIndex + 

    Loop Until cellContents = ""

End Sub