Объект не принимает метод

Question

У меня проблема с приложением VBA.
Мне нужно определить набор записей и ввести результат определенного поля, строка за строкой, в рабочую таблицу Excel. Проблема в том, когда я делаю это

With appXLS.Worksheets("Resultado Geral")
    For intPosition = LBound(Arr) To (UBound(Arr) - 1)
        teste = Arr(intPosition, 0) & "_Status"
        .Cells(i, 6) = MyRecBase.Fields(teste)
    Next
End With

Отображает проблему (ошибка «438») и отмечает строку «.Cells». Но самая большая проблема заключается в том, что я использую тот же метод несколькими строками раньше.

Пожалуйста, помогите мне. Буду признателен.

Заранее спасибо

Answer 1

Проверьте строку в вашем коде:

.Cells(i, 6) = MyRecBase.Fields(teste)

, поскольку неясно, что такое i и как оно рассчитывается на основе вашего цикла.