vba 比较两个excel文件代码

可以使用以下 VBA 代码比较两个 Excel 文件：

Sub CompareExcelFiles()
    
    Dim file1 As Workbook
    Dim file2 As Workbook
    
    ' Replace the file paths with the actual file paths of the two Excel files you want to compare
    Set file1 = Workbooks.Open("C:\path\to\file1.xlsx")
    Set file2 = Workbooks.Open("C:\path\to\file2.xlsx")
    
    Dim sheet1 As Worksheet
    Dim sheet2 As Worksheet
    Dim cell1 As Range
    Dim cell2 As Range
    
    For Each sheet1 In file1.Worksheets
        Set sheet2 = file2.Worksheets(sheet1.Name)
        For Each cell1 In sheet1.UsedRange.Cells
            Set cell2 = sheet2.Cells(cell1.Row, cell1.Column)
            If cell1.Value <> cell2.Value Then
                ' Replace this line with the code you want to execute when a difference is found
                Debug.Print "Difference found at " & sheet1.Name & " - " & cell1.Address & ": " & cell1.Value & " <> " & cell2.Value
            End If
        Next cell1
    Next sheet1
    
    ' Close the Excel files
    file1.Close
    file2.Close
    
End Sub

这个代码将循环遍历第一个 Excel 文件的每个工作表和单元格，并与第二个 Excel 文件进行比较。如果发现两个单元格的值不同，则会输出一条消息，指出找到了差异。你可以根据自己的需要修改代码，比如将消息输出到一个新的 Excel 文件或文本文件中。