我如何在.Net2.0中比较两个Excel工作表？

Question

我有两个文本文件（这是一个逗号分隔的文件）。这两个文件的模板如下。

            SD,CurrentDate,RecordCount
    NI,FirstName,LastName,Place,Language
    EQ,Degree,University,Year,Aggregate
    ED,CurrentDate,RecordCount

第一个文件中的数据 - one.txt

          SD,13/06/2010,6
          NI,Rajesh,kumar,xxxx,english
          EQ,X,Stateboard,2004,75
          EQ,XII,Stateboard,2006,85
          EQ,B.E,Oxford,2008,79
             ED,13/06/2010,6

第二个文件中的数据 - Second.txt

          SD,13/06/2010,6
          NI,Rajesh,kumar,,english
          EQ,X,,2004,75
          EQ,XII,Stateboard,2006,
          EQ,,Oxford,2008,79
          ED,13/06/2010,6

现在我已将 one.txt 的值填充到 Excel 工作表（Output.xls）的“sheet1”中，然后我填充

了使用.Net代码将Second.txt的值添加到Excel工作表（Output.xls）的“sheet2”中。

现在我想比较两个工作表数据并填充“sheet3”中的差异。

“Sheet3”的 o/p 将会有。

    Cell1       Cell2           Cell3           Cell4       Cell5
    SD:True     CurrentDate:True    RecordCount:True
    NI:True     FirstName:True      LastName:True       Place:False   Language:True
    EQ:True     Degree:True     University:False    Year:True   Aggregate:True
    EQ:True     Degree:True     University:True     Year:True   Aggregate:False
    EQ:True     Degree:False        University:True     Year:True   Aggregate:True
    SD:True     CurrentDate:True    RecordCount:True

我如何比较这两张纸？通过VBA可以吗？我可以在.Net中调用VBA代码吗？请有人给我解决方案吗？

Answer 1

您似乎想在手动或夸张地填充值后比较 2 张纸。在这种情况下，以下代码将完成这项工作，但您必须修改将在布尔值之前插入列名称的部分

Dim objEX as new Excel.Application
    objEX.Visible = True
    ' Optional if you want to see what is
    ' going on in EXCEL while your code is being executed.


objEX.Workbooks.Open "C:\My Files\Filename.xls"
'Make sure you put the right path of the excel workbook you want to open

With objEX
    .Sheets(1).Activate
    .Range("a1").Select

    .Sheets(2).Activate
    .Range("a1").Select

    .Sheets(3).Activate
    .Range("a1").Select


    'assuming the populated data starts at Cell A1
    For i = 0 To 6      'because you have 6 rows
        For j = 0 To 5  'because you have 5 columns
            If .Sheets(1).ActiveCell.Offset(i, j).Value = .Sheets(2).ActiveCell.Offset(i, j).Value Then
                .Sheets(3).ActiveCell.Offset(i, j).Value = "True"
            Else
                .Sheets(3).ActiveCell.Offset(i, j).Value = "False"
            End If
        Next
    Next


    .ActiveWorkbook.Save
    'Saves the changes you have done

    .ActiveWorkbook.Close
    'Closes the workbook


    .Quit
    'Quits excel instance and releases the process from task manager

End With

    Set objEX = Nothing
    'Garbage Collection and making sure memory is released to other processes.