Прочитайте файл и сравните содержимое в рабочем наборе.

Question

В настоящее время я могу сравнивать разные листы в одном файле. Как я могу добиться этого, если переместить Sheet3 в другой файл (например: File2)? А Sheet1 B2 будет возвращать 'pass' или 'fail' в зависимости от совпадения контента или нет.

Файл1 - Лист1

Файл1 - Лист2

Файл1 - Лист3

Sub Compare()
    Dim dataLength As Integer
    Dim i As Integer

    dataLength = 100

    Sheet1.Range("B2").Value = "Pass"
    For i = 1 To dataLength
        If Sheet3.Cells(1, i) <> Sheet2.Cells(i, 1) Then
            Sheet1.Range("B2").Value = "Fail"
            Exit For
        End If
    Next i
End Sub

Answer 1

1. Открыть внешнюю книгу с помощью Workbooks.Open
2. Используйте внешний лист вместо Sheet3

Примерно так:

Sub Compare()
    Dim dataLength As Long
    dataLength = 100

    Sheet1.Range("B2").Value = "Pass"

    'open the workbook
    Dim ExternalWb As Workbook
    Set ExternalWb = Workbooks.Open(Filename:="C:\your folder\your file.xlsx")

    'get the sheet
    Dim ExternalSheet As Worksheet
    Set ExternalSheet = ExternalWb.Worksheets("Sheet3")


    Dim i As Long
    For i = 1 To dataLength
        If ExternalSheet.Cells(1, i) <> Sheet2.Cells(i, 1) Then
            Sheet1.Range("B2").Value = "Fail"
            Exit For
        End If
    Next i
End Sub