Ошибка Invalid Qualifier. Я пытаюсь распечатать общие марки из рабочей книги в другую с помощью массива

Question

Код при запуске не показывает ошибок, но значения не печатаются:

Sub HouseOfCommons()

Dim filePath As String
filePath = "D:\"
Dim Brands(100) As String
Dim QuesRange(4) As String

QuesRange(0) = "A10:F125"

QuesRange(1) = "A137:F254"

QuesRange(2) = "A266:F307"

QuesRange(3) = "A319:F362"

QuesRange(4) = "A373: F415"

Dim inputx As String
inputx = InputBox("Enter the brand")



For I = 0 To 4
    Workbooks.Open (filePath + "JP_CP_2019Q3_Data Tables.xlsx")
    ActiveWorkbook.Worksheets("P_2_3w").Select
    If (Workbooks("JP_CP_2019Q3_Data Tables.xlsx").Worksheets("P_2_3w").Range("A137:A500").Find(inputx)) = True Then
        If (Brands.Contains(inputx)) = False Then
        Brands.Add (inputx)
        For x = 1 To UBound(Brands)
        Workbooks.Open ("D:\InProcess.xlsm")
        ThisWorkbook.Sheets("Sheet2").Cells.Value(I, 1) = inputx
        Next x
        End If
    End If
Next I

End Sub

Код должен хранить общие марки в массиве и печатать их в отдельномрабочая книга "InProcess.xlsm"

Answer 1

Вы используете синтаксис .NET, который не поддерживается в VBA:

If (Brands.Contains(inputx)) = False Then

возможная замена:

If IsError(Application.Match(inputx, Brands, 0)) Then

Кажется, у вашего кода другие проблемы, но он не знает, что этоПредполагается, что это трудно предложить предлагаемые исправления.