对象不接受方法

Question

我的VBA应用程序出现问题 我需要定义一个Recordset并逐行输入某个字段的结果到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是什么以及如何根据你的循环计算它并不明显。