如何使用VB同时操纵2个不同的EXCEL表进行内容的对比？

Question

如何使用VB同时操纵2个不同的EXCEL表进行内容的对比？

Answer 1

Private Sub Command1_Click()
    Dim xlapp1 As Excel.Application
    Dim xlbook1 As Excel.Workbook
    Dim xlsheet1 As Excel.Worksheet    Dim xlapp2 As Excel.Application
    Dim xlbook2 As Excel.Workbook
    Dim xlsheet2 As Excel.Worksheet    Set xlapp1 = CreateObject("Excel.Application")
    Set xlapp2 = CreateObject("Excel.Application")    Set xlbook1 = xlapp1.Workbooks.Open("d:\test1.xls")
    Set xlbook2 = xlapp1.Workbooks.Open("d:\test2.xls")    Set xlsheet1 = xlbook1.Worksheets(1)
    Set xlsheet2 = xlbook2.Worksheets(1)    If xlsheet2.Cells(1, 1) = xlsheet1.Cells(1, 1) Then
        MsgBox "ok"
    End If    xlapp2.Quit
    Set xlapp2 = Nothing
    xlapp1.Quit
    Set xlapp1 = Nothing
End Sub

Answer 2

Function CompareTwoExcel()

Dim xlapp1 As Excel.Application
    Dim xlbook1 As Excel.Workbook
    Dim xlsheet1 As Excel.Worksheet    Dim xlapp2 As Excel.Application
    Dim xlbook2 As Excel.Workbook
    Dim xlsheet2 As Excel.Worksheet    Set xlapp1 = CreateObject("Excel.Application")
    Set xlapp2 = CreateObject("Excel.Application")    Set xlbook1 = xlapp1.Workbooks.Open("d:\test1.xls")
    Set xlbook2 = xlapp1.Workbooks.Open("d:\test2.xls")
Set Rng = oExcel.ActiveSheet.UsedRange
rowCount = Rng.Rows.Count 
columnCount = Rng.Columns.Count 
    Set xlsheet1 = xlbook1.Worksheets(1)
    Set xlsheet2 = xlbook2.Worksheets(1)
For i=1 to rowCount
For j=1 to columnCount
If xlsheet2.Cells(i, j) = xlsheet1.Cells(i, j) Then
MsgBox "ok"
End If

set xlsheet2= nothing
Set xlbook2=nothing
    xlapp2.Quit set xlsheet1= nothing
Set xlbook1=nothing
    xlapp1.Quit

End Function

Answer 3

各位：请问一下谁知道EVB开发包那里可以下呀？？