如何在vb.net中将不同excel中的两行比较成一个新的excel？

Imports Microsoft.Office.Interop.Excel

Public Class Form1
    Private Sub btnCompare_Click(sender As Object, e As EventArgs) Handles btnCompare.Click
        ' 创建一个新的Excel应用程序对象
        Dim excelApp As New Application()

        ' 打开第一个Excel文件
        Dim workbook1 As Workbook = excelApp.Workbooks.Open("路径\文件名1.xlsx")
        Dim worksheet1 As Worksheet = workbook1.Sheets(1)

        ' 打开第二个Excel文件
        Dim workbook2 As Workbook = excelApp.Workbooks.Open("路径\文件名2.xlsx")
        Dim worksheet2 As Worksheet = workbook2.Sheets(1)

        ' 创建一个新的Excel文件
        Dim newWorkbook As Workbook = excelApp.Workbooks.Add()
        Dim newWorksheet As Worksheet = newWorkbook.Sheets(1)

        ' 获取第一个Excel文件中的行数
        Dim rowCount1 As Integer = worksheet1.UsedRange.Rows.Count

        ' 获取第二个Excel文件中的行数
        Dim rowCount2 As Integer = worksheet2.UsedRange.Rows.Count

        ' 比较两个Excel文件中的行，并将结果写入新的Excel文件
        For i As Integer = 1 To rowCount1
            For j As Integer = 1 To rowCount2
                ' 获取第一个Excel文件中的行数据
                Dim row1 As Range = worksheet1.Rows(i)

                ' 获取第二个Excel文件中的行数据
                Dim row2 As Range = worksheet2.Rows(j)

                ' 比较两行数据是否相同
                If CompareRows(row1, row2) Then
                    ' 将相同的行数据写入新的Excel文件
                    Dim newRow As Range = newWorksheet.Rows(newWorksheet.UsedRange.Rows.Count + 1)
                    row1.Copy(newRow)
                End If
            Next
        Next

        ' 保存并关闭所有Excel文件
        newWorkbook.SaveAs("路径\新文件名.xlsx")
        newWorkbook.Close()
        workbook1.Close()
        workbook2.Close()
        excelApp.Quit()

        ' 释放Excel对象
        ReleaseObject(newWorksheet)
        ReleaseObject(newWorkbook)
        ReleaseObject(worksheet1)
        ReleaseObject(workbook1)
        ReleaseObject(worksheet2)
        ReleaseObject(workbook2)
        ReleaseObject(excelApp)

        MessageBox.Show("比较完成并生成新的Excel文件。")
    End Sub

    ' 比较两行数据是否相同
    Private Function CompareRows(row1 As Range, row2 As Range) As Boolean
        ' 在这里编写比较两行数据的逻辑
        ' 如果两行数据相同，返回True；否则返回False
        ' 示例代码：比较第一列的值是否相同
        If row1.Cells(1).Value = row2.Cells(1).Value Then
            Return True
        Else
            Return False
        End If
    End Function

    ' 释放Excel对象
    Private Sub ReleaseObject(obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub
End Class