VBA比较两个不同工作簿中的单元格值

Sub CompareCellValues()
    Dim wb1 As Workbook, wb2 As Workbook
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim cell1 As Range, cell2 As Range
    Dim value1 As Variant, value2 As Variant
    
    ' 打开第一个工作簿
    Set wb1 = Workbooks.Open("路径\工作簿1.xlsx")
    Set ws1 = wb1.Worksheets("Sheet1")
    
    ' 打开第二个工作簿
    Set wb2 = Workbooks.Open("路径\工作簿2.xlsx")
    Set ws2 = wb2.Worksheets("Sheet1")
    
    ' 定位要比较的单元格
    Set cell1 = ws1.Range("A1")
    Set cell2 = ws2.Range("A1")
    
    ' 获取单元格值
    value1 = cell1.Value
    value2 = cell2.Value
    
    ' 比较单元格值
    If value1 = value2 Then
        MsgBox "两个单元格的值相等。"
    Else
        MsgBox "两个单元格的值不相等。"
    End If
    
    ' 关闭工作簿
    wb1.Close SaveChanges:=False
    wb2.Close SaveChanges:=False
End Sub