Ошибка выполнения 1004 Ошибка приложения или объекта в vlookup с использованием vba

Question

Работает в течение 2 месяцев, т. Е. (Новый или старый). Я пытаюсь использовать формулу vlookup, старая или новая книга, чтобы выяснить, отсутствует ли идентификатор. Ниже приведен код, используемый для запуска макросов.

Set OB1 = Application.Workbooks.Open(FTO_New_BRNO)

    name1 = ActiveWorkbook.name
    sheet_name1 = ActiveWorkbook.Sheets(1).name

    Set OB2 = Application.Workbooks.Open(FTO_Old_Brno)

   ' name2 = ActiveWorkbook.name
   ' sheet_name2 = ActiveWorkbook.Sheets(1).name



    OB2.Worksheets(1).Activate
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.NumberFormat = "General"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Compare With New Brno Tracker"
    OB2.Worksheets(1).Activate
    Range("C3").Select
     Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],[" & name1 & "]" & sheet_name1 & "!C1,1,0)"

Приведенная выше формула vlookup выдает ошибку ниже

Runtime Error 1004 - "Run-time error '1004': Application-defined or object-defined error"

Answer 1

Спасибо за вашу помощь. Я нашел решения. В макросе есть небольшая настройка, как показано в обновленном коде ниже. Наконец это сработало.

Старый код

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],[" & name1 & "]" & sheet_name1 & "!C1,1,0)"

Новый код

ActiveCell.FormulaR1C1 = "=VLOOKUP(C[-2],'[" & name1 & "]" & sheet_name1 & "'!C1,1,0)"